Excel Pastespecial VBA

我试图将某个工作簿的内容复制到另一个工作簿。 但是，我缩进来保持源格式。 但是，我的代码产生应用程序/对象未定义的错误。 任何帮助将非常感激。

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