0

たとえば、これがある場合:

Sub ExampleThing()

    Counter = 13
    For i = 1 To Counter
        Range("A" & i) = Rnd
    Next

    Range("B1").Formula = "=(PI()*A1)"
    Range("B1").Select
    Selection.AutoFill Destination:=Range("B1:B" & Counter), Type:=xlFillDefault

End Sub

Destination で Range() を使用する代わりに、Cells() を使用したい場合はどうすればよいでしょうか? 同様に、範囲関数内にセル参照を含める代わりに、次のように Cells() に置き換えます。

Selection.AutoFill Destination:=Range("Cells(1,2):Cells(Counter,2)"), Type:=xlFillDefault

私はそれをいじっていましたが、それを機能させることができないようです。

4

1 に答える 1