将粘贴值和格式从一张纸复制到另一张纸时，VBA错误1004

Question

我正在尝试将Rec1的内容和格式复制到Rec2。但是，我不断收到错误1004和一条消息，指出Excel没有足够的内存来执行任务。请注意，工作表中还有其他宏

Private Sub CommandButton3_Click()


Dim Source As Worksheet
Dim Target As Worksheet

Set Source = ThisWorkbook.Worksheets("Rec1")
Set Target = ThisWorkbook.Worksheets("Rec2")

Target.Cells.Clear

Source.Cells.Copy

Target.Range("A1").PasteSpecial Paste:=xlPasteValuesAndNumberFormats, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False 

End Sub

Answer 1

不是复制整个工作表，只需复制UsedRange。

Souce.UsedRange.Copy

您还可以清除目标的使用范围：

Target.UsedRange.Clear