我有一个宏,可以从一系列的工作表中复制摘要行。 摘要行采用特殊格式进行了字体/字体颜色/背景颜色设置,但是当粘贴到“摘要表”中时,需要仅粘贴值而不带格式。
For LoopIndex = StartIndex To EndIndex
' start in a task sheet
Sheets(LoopIndex).Select
CopiedCells = ActiveSheet.Range("A156:L156").Copy
' now move to Summary sheet
Sheets("Summary Sheet").Select
ActiveSheet.Range("A8").Select
ActiveCell.EntireRow.Insert
ActiveCell.PasteSpecial Paste:=xlPasteValues
' tried variations of: ActiveCell.PasteSpecial paste:=xlValues, operation:=xlPasteSpecialOperationNone
Application.CutCopyMode = False ' clears clipboard
Next LoopIndex
我做的所有研究都表明PastSpecial, xlValues,xlPasteValues应该可以工作,但是没有什么能够去除格式,不知道我在这里做错了什么。它确实粘贴了值而不是引用的值,所以这很好。我有一个宏在循环中重置格式,但我想使它更有效率。我正在使用Excel 2007。