たとえば、これがある場合:
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
私はそれをいじっていましたが、それを機能させることができないようです。