來自另一張工作表的Excel VBA范圍副本

Question

我有一行代碼在解決問題時遇到問題。

Sheets("data").Range(cells(2,1), cells(2, column).Copy

我在此上收到1004 application or object defined error 。 如果刪除工作表選擇或將范圍塊替換為硬編碼的引用（例如e4：e50），該代碼將起作用，但無法一起使用。

Answer 1

現在，您可以看到Range在一張紙上，而Cell在看活動紙。 您需要確保他們正在看同一張紙。

您可以按照以下步驟進行操作：

Sheets ("data").Range(Sheets ("data").cells (2,1), Sheets ("data").cells (2, column)). Copy

或者，您可以使用帶阻止功能來減少打字

With Sheets ("data")
    .Range(Sheets (.cells (2,1), .cells (2, column)). Copy
End With