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

関連記事

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

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

: 直前のセル・直後のセルを参照する（Previous プロパティ・Next プロパティ）

Previous プロパティ・Next プロパティ Previous プロパティ …

: セル・セル範囲を切り取る（Cut メソッド）

Cut メソッド Cut メソッドは、指定したセル範囲を切り取り、引数に指定した …

: セルを挿入する（Insert メソッド）

Insert メソッド Insert メソッドで、指定した場所に新規の空白セルを …

: セルを参照する（Range プロパティ）

Range プロパティ任意のセルにアクセスするには Range プロパティを使 …

: 重複するデータを削除（RemoveDuplicates メソッド）

RemoveDuplicates メソッド指定したセル範囲から重複データを含む …

: フリガナの設定（SetPhonetic メソッド）

フリガナの設定（SetPhonetic メソッド） SetPhonetic メソ …

: 指定した行数・列数移動したセル・セル範囲を参照（Offset プロパティ）

Offset プロパティ Offset プロパティは、基準となるセル・セル範囲か …

: 終端セルを参照する（End プロパティ）

End プロパティ End プロパティは、基準となるセルが含まれる領域の指定した …

: 書式で検索（Find メソッド,FindFormat プロパティ）

書式で検索書式を条件にセルを検索する場合、まず、その書式条件を CellFor …

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