Question

我试图将工作表1中的范围D11：N11复制到背景图纸上的变化范围。列保持不变，但行根据单元格B2中的值而变化。单元格B2中的值是使用="D"&[reference cell]&":N"[reference cell]显示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＆gt;＆gt; 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。

button2.setOnClickListener(new View.OnClickListener() {
    @Override
    public void onClick(View v) {
        String value = SearchText.getText().toString();
    }
});

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]

VBA：运行时错误438

2 个答案: