將粘貼值和格式從一張紙復制到另一張紙時出現 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