在range对象中使用完全限定的单元格时出现运行时错误“1004”

Question

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'的方法'range'失败”，下面粘贴的第6行代码由调试器突出显示。当将引用更改为1样式表示法时，代码将按预期在目标工作表中生成粘贴的值。

Answer 1

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

如果只有一个单元格，则移除范围：

wsCopy.Cells(2,8).Copy

当使用两个单元格时，它将如下所示：

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

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

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