我有一个宏可以从一系列工作表中的每一个中复制摘要行。摘要行使用字体/字体颜色/背景颜色进行了特殊格式化,但是当粘贴到“摘要表”时,它只需要粘贴值而不进行格式化。
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。