excel - 在范围对象中使用完全限定单元格时出现运行时错误 '1004'

Question

我正在尝试从一个工作簿中复制值并使用范围对象的单元格属性将它们粘贴到另一个工作簿中。如何正确声明范围引用，以免收到“1004”运行时错误？

我正在使用 Excel 2013，并且正在使用事件工作表运行“练习簿”工作簿中的代码。

我研究了许多类似的问题，Run time error 1004 in Range(Cells()) ，但他们没有帮助我。我已经确保我的推荐信是完全合格的。

Sub Transfer()

    Dim wsCopy As Worksheet
    Dim wsDest As Worksheet

    Set wsCopy = Workbooks("Practicebook2").Worksheets("Sheet1")
    Set wsDest = Workbooks("Practicebook").ActiveSheet
    wsCopy.Range(wsCopy.Cells(2,8)).Copy
    wsDest.Range("J5").PasteSpecial

End Sub

当我运行代码时，出现错误消息“对象'_Worksheet'的方法'范围'失败”，调试器突出显示下面粘贴的第6行代码。更改对 A1 样式表示法的引用时，代码会按预期在目标工作表中生成粘贴的值。

Answer 1

Range 需要一个字符串或两个单元格来定义范围。

只有一个 CELL 删除范围:

wsCopy.Cells(2,8).Copy

当使用两个单元格时，它会是这样的:

wsCopy.Range(wsCopy.Cells(2,8),wsCopy.Cells(4,10)).Copy

相反，如果您在单元格中将所需范围作为字符串，则需要附加 .Value到 Cells()

wsCopy.Range(wsCopy.Cells(2,8).Value).Copy

现在它将将该单元格中的值作为字符串传递给 Range。

也跳过双行:

wsCopy.Cells(2,8).Copy wsDest.Range("J5")

Copy 接受目标的参数。