Excel VBA范围从另一个工作表复制

Question

我有一行代码，我遇到问题排查。

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

我在这上面得到1004 application or object defined error。如果我删除工作表选择或用硬编码引用替换范围块（例如e4：e50），代码就可以工作，但不能一起工作。

Answer 1

现在，您可以看到一个工作表，而单元格正在查看活动工作表。你需要确保他们正在查看相同的表格。

你可以这样做：

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

或者您可以使用With Block来减少输入

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