VBA 将粘贴值和格式从一个 Sheet 复制到另一个时出现错误 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

不要复制整个 sheet，只需复制 UsedRange。

Souce.UsedRange.Copy

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

Target.UsedRange.Clear

VBA 将粘贴值和格式从一个 Sheet 复制到另一个时出现错误 1004

VBA Error 1004 when Copy Pasting Values and Formatting from one Sheet to Another

excel

vba

runtime-error

out-of-memory