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

関連記事

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

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

: ハイパーリンク（Hyperlink オブジェクト）

Hyperlink オブジェクト Hyperlinks コレクションのメンバー …

: セル範囲を結合・結合を解除（MergeCells プロパティ）

MergeCells プロパティ MergeCells プロパティは、指定したセ …

: A1 形式と R1C1 形式を変換、相対参照と絶対参照を変換（ConvertFormula)

ConvertFormula メソッド数式で参照しているアドレスの相対参照と絶 …

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

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

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

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

: 網かけ（パターン）の取得・設定（Pattern プロパティ）

網かけ（パターン）を取得・設定するセルの背景に網かけ（パターン）を設定したり、 …

: 対象のセルが参照している全てのセルを取得（Precedents プロパティ）

Precedents プロパティ Precedents プロパティは、対象のセル …

: A1参照形式、R1C1参照形式の設定・取得（ReferenceStyle プロパティ）

ReferenceStyle プロパティ ReferenceStyle プロパテ …

: セル内の編集を禁止する（EditDirectlyInCell プロパティ）

EditDirectlyInCell プロパティエクセルでは、セルをダブルクリ …

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