Excel（エクセル）のマクロ・ＶＢＡ・関数・操作などのメモ

連続データを入力する（AutoFill メソッド）

2015/09/22

AutoFill メソッド

Excel で、連続するデータを入力する「オートフィル」機能を VBA で実行します。

【書式】

object.AutoFill ( destination [, type ] )

引数・戻り値

object ・・・対象となる Range オブジェクトを指定します。
destination ・・・連続データの書き込み先となるセル範囲（Range オブジェクト）を指定します（省略不可）。

type ・・・オートフィルの種類を表す XlAutoFillType 列挙型 の定数またはその値を指定します（省略可能）。

名前	値	説明
xlFillDefault	0	Excel が決定（既定値）
xlFillCopy	1	値と形式
xlFillSeries	2	連続する数値（たとえば、’1, 2′ は ‘3, 4, 5’ となります）
xlFillFormats	3	書式のみ
xlFillValues	4	値のみ
xlFillDays	5	曜日名
xlFillWeekdays	6	平日の名前
xlFillMonths	7	月
xlFillYears	8	年
xlLinearTrend	9	加算による連続データ
xlGrowthTrend	10	乗算による連続データ
xlFlashFill	11	前のユーザーアクションの検出されたパターンに基づいた値（Excel 2013 以降）

AutoFill メソッド使用例

サンプルVBAソース

　
Sub Sample_AutoFill()


    'Type:省略（Excelが自動判定）
    Range("A2:A4").AutoFill Destination:=Range("A2:A16")
    
    'Type:連続
    Range("B2").AutoFill Destination:=Range("B2:B16"), _
                         Type:=xlFillSeries
    
    'Type:曜日
    Range("C2").AutoFill Destination:=Range("C2:C16"), _
                         Type:=xlFillDays
    
    'Type:書式のみ
    Range("D2").AutoFill Destination:=Range("D2:D16"), _
                         Type:=xlFillFormats
        
    'Type:Excelが自動判定
    Range("E3").AutoFill Destination:=Range("E3:E16"), _
                         Type:=xlFillDefault
                         
End Sub

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

　

Sub Sample_AutoFill()

'Type:省略（Excelが自動判定）

Range("A2:A4").AutoFill Destination:=Range("A2:A16")

'Type:連続

Range("B2").AutoFill Destination:=Range("B2:B16"), _

Type:=xlFillSeries

'Type:曜日

Range("C2").AutoFill Destination:=Range("C2:C16"), _

Type:=xlFillDays

'Type:書式のみ

Range("D2").AutoFill Destination:=Range("D2:D16"), _

Type:=xlFillFormats

'Type:Excelが自動判定

Range("E3").AutoFill Destination:=Range("E3:E16"), _

Type:=xlFillDefault

End Sub

　

実行結果

サンプルVBAソース実行前

実行後

- セルの操作 AutoFill メソッド, Range オブジェクト, VBA基本, エクセルVBA, セルの操作

Tweet

Message コメントをキャンセル

このサイトはスパムを低減するために Akismet を使っています。コメントデータの処理方法の詳細はこちらをご覧ください。

関連記事

: ２つ以上のセル範囲を１つにまとめて参照（Union メソッド）

Union メソッド Union メソッドは、２つ以上のセル範囲を１つにまとめて …

: オートフィルタ（抽出件数の取得・結果集計）AutoFilter メソッド

ワークシート関数の Subtotal 関数の使い方 VBA には、オートフィル …

: オートフィルタ（色で抽出する）AutoFilter メソッド

オートフィルタ（色で抽出する）フォントの色、セルの背景色（条件付き書式による設 …

: フリガナ（Phonetic プロパティ）

Phonetic プロパティ文字列（漢字など）をキーボードから入力した時の「読 …

: フリガナ（Phonetics プロパティ）

Phonetics プロパティ Phonetics コレクションを返します。値の …

: セルをアクティブにする・セルを選択する（Activate, Select）

セルをアクティブにする・選択する【書式：セルをアクティブにする】 object …

: 並べ替え（Sort オブジェクト, SortFields コレクション）

Sort オブジェクトによる並べ替え Excel 2007 以降のバージョンでの …

: セルを削除する（Delete メソッド）

Delete メソッド Delete メソッドで、指定したセル・セル範囲を削除し …

: 行の高さを取得・設定・する（RowHeight プロパティ）

RowHeight プロパティ RowHeight プロパティは、対象セルの高さ …

: オートフィルタ（日付・時刻のグループ化）AutoFilter メソッド

グループ化された日付や時刻で、レコードを抽出する Excel 2007 から日付 …

PREV: ハイパーリンク（Hyperlink オブジェクトのメソッド）
NEXT: ブック・シートの名前を取得・設定（Name プロパティ）