range.copy目标“A1”与“Cells（1,1）”Excel / VBA

Question

考虑以下内容：

    Sheets("X").Activate
    Sheets("X").Range(Cells(1, 1), Cells(1, 30)).Copy Destination:=Sheets("Y").Range("A1") 'Syntax 1
    Sheets("X").Range(Cells(1, 1), Cells(1, 30)).Copy Destination:=Sheets("Y").Range(Cells(1, 1)) 'Syntax 2

为什么语法1工作而语法2遇到“应用程序定义或对象定义的错误”？

Answer 1

您尚未限定工作表名称。 因此，复制发生在ActiveSheet上，然后尝试从ActiveSheet引用Cell（1,1），但在Y表上：

Sheets("Y").Range(Cells(1, 1))

表格（“Y”）是表格Y. Cells（1,1）是ActiveSheet。

该副本仅起作用，因为您首先激活表单X. 删除该行，选择另一个工作表，它也将失败。

Answer 2

Unqualified Cells(1,1)属于ActiveSheet，它当前是Sheets（“X”），因此它不属于Sheets("Y") 。

OTOH：这应该有效：

Destination:=Sheets("Y").Range(Sheets("Y").Cells(1, 1), Sheets("Y").Cells(1, 1)) 
'                             ^^^^^^^^^^^^^

不要使用不合格的范围。 从代码中完全删除Activate stuf。