复制时运行时错误“1004”

Question

运行此代码时，我遇到了臭名昭着的运行时错误，我不明白为什么：

With ThisWorkbook.Sheets("Data") .Range(Cells(row1, column1), Cells(row2, column1)).Copy End With

row1，column1和row2都被定义为整数。

第二行代码会弹出错误。

我可以获得一些见解吗？

Answer 1

你忘记了“。”在Cells之前（因为您在工作表数据的With范围内）

With ThisWorkbook.Sheets("Sheet2")
    .Range(.Cells(1, 1), .Cells(2, 2)).Copy
End With

测试了上面的例子，现在它适用于我。

Answer 2

你在哪里应对这个范围。正确的格式是

source.copy目的地

Sheets("Count").Range("C2:D3").Copy Sheets("Count").Range("E2:F3")