Question

我正在尝试将某个工作簿的内容复制到另一个工作簿。但是，我缩进以保持源格式。但是，我的代码会生成应用程序/对象未定义的错误。任何帮助将不胜感激。

Public Sub CommandButton1_Click()
Worksheets("Sheet1").Range("A2:D349").Copy Destination:=Worksheets("Sheet6").Range("A2")
Worksheets("Sheet1").Range("A2:D349").PasteSpecial Paste:=xlPasteFormats
End Sub

Answer 1

指定目的地时，剪贴板上没有任何内容，因此您必须将步骤分开：

Public Sub CommandButton1_Click()
Worksheets("Sheet1").Range("A2:D349").Copy 
Worksheets("Sheet6").Range("A2").PasteSpecial xlPasteAll
Worksheets("Sheet1").Range("A2:D349").PasteSpecial Paste:=xlPasteFormats
End Sub

Excel Pastespecial VBA

1 个答案: