『エクセル』 vbaでオートフィルができない

質問

Sub Macro1()
Range("a1:a10").Select
Selection.AutoFill Destination:=Range("A1:A10"), Type:=xlFillSeries
End Sub

がエラーになります。
内容は「RangeクラスのAotofillメソッドが失敗しました」
となります。

Sub Macro2()
Dim i As Long
For i = 1 To 10
Cells(i, 1) = i
Next
End Sub
や
Sub Macro3()
Dim i As Long
i = 1
While i <= 10
Cells(i, 1) = i
i = i + 1
Wend
End Sub
と同じような動きをAutoFillを使ってＶＢＡで行いたいのですが
むりでしょうか？

というのも、
A1に長い関数式を入れて
A10000までオートフィルしたいのですが
手作業だと時間がかかるためマクロで行いたいです。

アドバイス宜しくお願い致します。

回答No.1

n-jun · ベストアンサー

Ａ１をオートフィルしたいのなら、

Sub Macro1()
Range("a1").Select
Selection.AutoFill Destination:=Range("A1:A10"), Type:=xlFillSeries
End Sub
とか
Sub try()
Range("A2:A10").Formula = Range("A1").Formula
End Sub
などはどうですか？

お礼

Range("A2:A10").Formula = Range("A1").Formulaでできました。ありがとうございます。

回答No.2

imogasi

この程度だと、エクセルの操作があり、従ってマクロの記録が取れるのでは。やってみましたか。
こんなところへ質問を出す前に、まずやるべきことです。
そのコードの修正がわからないなら、質問の論点がもっと絞られるはずです。
マクロの記録のありがたさをもっと活用すべきです。
操作を知らないなら、エクセルの勉強が先です。

お礼

マクロの記録でとっても
Sub Macro1()
Selection.AutoFill Destination:=Range("A1:A10"), Type:=xlFillSeries
Range("a1:a10").Select
End Sub
ど同じくエラーになるので質問しました。