来自另一张工作表的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