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

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

1 个答案: