ExcelVBA マクロでオートフィルを使用する

Excelで選択されているセルの右下をえいやって引っ張ると連続データが作成される。
この機能をオートフィルというらしい。(機能は知ってたけど名前は知らなかった)
この機能をマクロで使用する。

参考サイト
・Office TANAKA - Excel VBA Tips[連続データを作成する]

/*---------------------------------------------------------------------------*/
    With Range("A1:A2")
        .Value = "1月"
        .AutoFill Destination:=.Resize(12)
    End With
/*---------------------------------------------------------------------------*/

これだけで１２月までの連番が出来上がる。

しかし、このやり方だと設定されていない値は連番にならない。

そういう時は2つ以上データを入力してからオートフィルを行う。

/*---------------------------------------------------------------------------*/
    Range("A1") = "1"
    Range("A2") = "2"
    Range("A1:A2").AutoFill Destination:= Range("A1:A2").Resize(100)
 /*---------------------------------------------------------------------------*/

これであっという間に1から100までの連番が出来上がり。

Resizeの代わりにRangeで範囲を指定することもできる。