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 を使っています。コメントデータの処理方法の詳細はこちらをご覧ください。

関連記事

: セルが結合セルの一部である場合、その結合セルの範囲を取得（MergeArea プロパティ）

MergeArea プロパティ MergeArea プロパティは、指定したセルが …

: 文字列の一部の書式を変更（Characters プロパティ）

文字列の一部を参照（Characters プロパティ） Characters プ …

: 罫線の設定（Borders プロパティ）

罫線の設定罫線を一括（上下左右すべて）で設定するには、Borders プロパテ …

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

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

: 別シートのセルを選択（Goto メソッド／ PreviousSelections プロパティ）

Goto メソッド次の例のように、1 行で、Activate メソッドや S …

: 文字列を縮小して全体を表示（ShrinkToFit プロパティ）

ShrinkToFit プロパティ ShrinkToFit プロパティは、セルに …

: セルの値を置換・書式設定（Replace メソッド,ReplaceFormat プロパティ）

セルの値の置換と書式設定検索条件に一致するセルの書式を設定するには、まず、Ap …

: 列名を取得、列番号を取得（Address プロパティ,Column プロパティ）

列番号を取得するセル番地（「A1」や「B3」）や列名（「A」「B」「C」&#8 …

: オートフィルタ（日付フィルタ）AutoFilter メソッド

日付フィルタを使用してレコードを抽出する Excel 2007 から「日付フィル …

: セル範囲を結合・結合を解除（Merge メソッド・UnMerge メソッド）

Merge メソッド・UnMerge メソッドセルを結合するには、指定したセル …

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