Excel VBA 連続データを作成するAutoFillメソッド

• オブジェクト（必須）
  連続データやコピーの基準となる値が入力されているセルやセル範囲をRange【ﾚﾝｼﾞ】オブジェクトで指定します。
• Destination【ﾃﾞｽﾃｨﾈｰｼｮﾝ】（必須）
  オートフィルの書き込み先のセル範囲をRange【ﾚﾝｼﾞ】オブジェクトで指定します。※このとき必ずオブジェクトで指定した基準となるセルを含めます。
• Type【ﾀｲﾌﾟ】（省略可）
  オートフィルのタイプをxlAutoFillType列挙型の定数または値で指定します。

  xlAutoFillType列挙型

  定数	値	内容
  xlFillDefault【ﾌｨﾙﾃﾞﾌｫﾙﾄ】	0	標準のオートフィル（既定値）
  xlFillCopy【ﾌｨﾙｺﾋﾟｰ】	1	コピー
  xlFillSeries【ﾌｨﾙｼﾘｰｽﾞ】	2	連続データ
  xlFillFormats【ﾌｨﾙﾌｫｰﾏｯﾂ】	3	書式のみコピー
  xlFillValues【ﾌｨﾙﾊﾞﾘｭｰ】	4	値のみコピー
  xlFillDays【ﾌｨﾙﾃﾞｲｽﾞ】	5	曜日単位の連続データ
  xlFillWeekdays【ﾌｨﾙｳｨｰｸﾃﾞｲｽﾞ】	6	平日（土日を除く）の連続データ
  xlFillMonths【ﾌｨﾙﾏﾝｽ】	7	月単位の連続データ
  xlFillYears【ﾌｨﾙｲﾔｰｽﾞ】	8	年単位の連続データ
  xlLinearTrend【ﾗｲﾅｰﾄﾚﾝﾄﾞ】	9	加算
  xlGrowthTrend【ｸﾞﾛｳｽﾄﾚﾝﾄﾞ】	10	乗算
  xlFlashFill【ﾌﾗｯｼｭﾌｨﾙ】	11	フラッシュフィル

Sub オートフィル()
With Range("A1")
    .NumberFormatLocal = "mm/dd(aaa)"
    .Value = "1/1"
    .AutoFill Range("A1:L1"), xlFillMonths
end With
Range("A1:L1").AutoFill Range("A1:L31"), xlFillDays
End Sub

3行目【.NumberFormatLocal = “mm/dd(aaa)”】
With【ｳｨｽﾞ】ステートメントで指定したA1セルにセルの表示形式を設定するRange【ﾚﾝｼﾞ】オブジェクトのNumberFormatLocal【ﾅﾝﾊﾞｰﾌｫｰﾏｯﾄﾛｰｶﾙ】プロパティを使用して「月/日（曜日）」の表示形式を設定します。

4行目【.Value = “1/1″】
With【ｳｨｽﾞ】ステートメントで指定したA1セルに値を設定するRange【ﾚﾝｼﾞ】オブジェクトのValue【ﾊﾞﾘｭｰ】プロパティを使用して文字列の「1/1」を設定します。

5行目【.AutoFill Range(“A1:L1”), xlFillMonths】
With【ｳｨｽﾞ】ステートメントで指定したA1セルを基準としてAutoFill【ｵｰﾄﾌｨﾙ】メソッドを実行します。書き込み先を表す引数Destination【ﾃﾞｽﾃｨﾈｰｼｮﾝ】にはA1セルからL1セルを指定し、オートフィルのタイプを指定するType【ﾀｲﾌﾟ】には月単位の連続データを表す定数を指定して1行目のセルに1月から12月の連続データを作成します。

7行目【Range(“A1:L1”).AutoFill Range(“A1:L31”), xlFillDays】
6行目で作成した月単位の連続データが設定されているA1セルからL1セルのセル範囲にAutoFill【ｵｰﾄﾌｨﾙ】メソッドを実行します。書き込み先を表す引数Destination【ﾃﾞｽﾃｨﾈｰｼｮﾝ】にはA1セルからL31セルを指定し、オートフィルのタイプを指定するType【ﾀｲﾌﾟ】には日単位の連続データを表す定数を指定して日付の連続データを作成します。