復制時出現運行時錯誤“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

你在哪里應對范圍。 正確的格式是

源.復制目標

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