Excel宏宏/ VBA错误1004-复制粘贴变量

Question

为什么这样做：

Sheets("Sheet1-Orig").Range(Sheets("Sheet1-Orig").Cells(20, 1), Sheets("Sheet1-Orig").Cells(LastRow1, 3)).Copy Destination:=Sheets("3-Orig_Merged").Range("A1")

但这抛出了1004：

Sheets("Sheet2-Orig").Range(Sheets("Sheet1-Orig").Cells(2, 1), Sheets("Sheet1-Orig").Cells(LastRow2, 3)).Copy Sheets("3-Orig_Merged").Cells(LastRow1 - 18, 1)

获取应用程序定义或对象定义的错误。 驾驶。 我。 坚果...

谢谢！

Answer 1

尽管下面有更多的代码行，但我发现它更易于使用（稍后再调试）：

With Sheets("Sheet1-Orig")
    .Range(.Cells(20, 1), .Cells(LastRow1, 3)).Copy
End With
Sheets("3-Orig_Merged").Range("A1").PasteSpecial