VBA 連続データの作成　AutoFillメソッド

連続データの作成　AutoFillメソッド

構文

Range.AutoFill(Destination, Type)

Sub test1()
　　’　12ヶ月一遍入力
　　With Range("A1")
　　　　.Value = "1月"
　　　　.AutoFill Destination:=Range("A1:A12")
　　End With

End Sub

実行結果

Resizeで範囲指定

Sub test2()

　’　12ヶ月一遍入力
    With Range("A1")
        .Value = "1月"
        .AutoFill Destination:=.Resize(12, 1)
    End With

End Sub

横へオートフィル

Sub test3()

    With Range("A1")
        .Value = "1月"
        .AutoFill Destination:=.Resize(12, 1)
    End With

End Sub

実行結果