为什么 Range 有效，而 Cells 无效？

我试图通过将一个范围内的值分配给另一个范围来将一些数据从一个工作簿移动到另一个工作簿中。当我使用正常的 Range 语法指定目标范围 (Range("A1:B2")) 时，我的代码可以工作，但是如果我尝试使用 Range, Cells 语法 (Range(Cells(1,1),Cells(2) ,2))) 我的代码不起作用。

我激活目标工作簿 (ActiveWorkbook) 并在源工作簿 (ThisWorkbook) 中运行代码。

这段代码的工作原理：

ActiveWorkbook.Worksheets(1).Range("A1:B2").Value _
= ThisWorkbook.Worksheets(1).Range(Cells(1, 1), Cells(2, 2)).Value

但这段代码没有：

ActiveWorkbook.Worksheets(1).Range(Cells(1, 1), Cells(2, 2)).Value _
= ThisWorkbook.Worksheets(1).Range(Cells(1, 1), Cells(2, 2)).Value

我得到的错误是运行时错误“1004”：应用程序定义或对象定义的错误。

有谁知道为什么使用 cells 对象会给我带来问题，或者是否还有其他我不知道的问题？

问题是Cells是不合格的，这意味着这些单元格引用的工作表根据代码所在的位置而不同。任何时候你打电话Range or Cells or Rows or UsedRange或返回 Range 对象的任何内容，并且您不指定它位于哪个工作表上，工作表将根据以下方式分配：

• 在工作表的类模块中：该工作表无论处于活动状态如何
• 在任何其他模块中：ActiveSheet

您有资格Range参考，但是Cells引用不合格，很可能指向 Activesheet。就像写作一样

ThisWorkbook.Worksheets(1).Range(ActiveSheet.Cells(1, 1), ActiveSheetCells(2, 2)).Value

除非 ThisWorkbook.Worksheets(1) 恰好处于活动状态，否则这当然没有任何意义。我经常喜欢使用 With 块，以便确保一切都完全合格。

With Sheets(1)
    .Range(.Cells(1,1), .Cells(2,2)).Value = "something"
End With

但是您引用了两个不同的工作表，因此最好使用短工作表变量，例如：

Dim shSource As Worksheet
Dim shDest As Worksheet

Set shSource = ThisWorkbook.Worksheets(1)
Set shDest = Workbooks("myBook").Worksheets(1)

shDest.Range(shDest.Cells(1, 1), shDest.Cells(2, 2)).Value = _
    shSource.Range(shSource.Cells(1, 1), shSource.Cells(2, 2)).Value

但实际上，如果你要硬编码Cells争论，你可以像这样清理它

shDest.Cells(1, 1).Resize(2, 2).Value = shSource.Cells(1, 1).Resize(2, 2).Value