VBA：执行阶段错误438

Question

我正在尝试将工作表1的范围D11：N11复制到背景工作表上的不同范围。 列保持不变，但行根据单元格B2中的值而变化。 通过使用="D"&[reference cell]&":N"[reference cell]确定单元格B2中的值，该值表示介于D2:N2和D53:N53之间的某个值。

如果在下面运行宏，则在带有星号的行会出现438错误（此对象不支持此属性或方法）。

我应该如何更改我的代码？

Sub IndirectCellSelect()

Dim rng1 As Range
Set rng1 = Sheets("Background Sheet").Range("B2")


With ThisWorkbook

    With Sheets("Sheet 1")

        .Range("D11:N11").Copy


    With Sheets("Background Sheet")

        .Range(rng1.Text).Paste  ***

    End With
    End With

End With

End Sub

Answer 1

Copy >> Paste是1行代码行。

另外，由于您已经Set rng1 ，因此可以直接Paste到其中的值。

Sub IndirectCellSelect()

Dim rng1 As Range

With ThisWorkbook
    Set rng1 = .Sheets("Background Sheet").Range(Range("B2").Value)
    .Sheets("Sheet1").Range("D11:N11").Copy Destination:=rng1
End With

End Sub

Answer 2

这应该工作：

Sub IndirectCellSelect()

   Dim rng1 As Range
   Set rng1 = Sheets("Background Sheet").Range("B2")

   Sheets("Sheet 1").Range("D11:N11").Copy Destination:=Range(rng1.Text)

End Sub

此外，您会希望您的B2单元格公式包括:对前N ：

="D"&[reference cell]&":N"[reference cell]