Excel VBA セル範囲に連続データを作成する DataSeries メソッド

• オブジェクト（必須）
  連続データを作成するセル範囲をRange【ﾚﾝｼﾞ】オブジェクトで指定します。
• Rowcol【ﾛｳｶﾗﾑ】（省略可能）
  連続データの方向を以下の定数で指定します。

  定数	内容
  xlRows	行方向
  xlColumns	列方向

  省略した場合は、Raneg【ﾚﾝｼﾞ】オブジェクトで指定した範囲が使用されます。

• Type【ﾀｲﾌﾟ】（省略可）
  連続データの種類をXlDataSeriesType列挙型の定数で指定します。

  XlDataSeriesType列挙型

  定数	値	内容
  xlDataSeriesLinear	-4132	加算と仮定して値を指定します 例えば、’1, 2′ の場合は、’3, 4, 5′ となります
  xlGrowth	2	乗算と仮定して値を指定します 例えば、、’1, 2′ の場合は、’4, 8, 16′ となります
  xlChronological	3	日付の値を入力します
  xlAutoFill	4	オートフィル設定に従って 連続データを入力します

• Date【ﾃﾞｲﾄ】（省略可）
  引数 Type が xlChronological（日付） のとき日付の増加単位をXlDataSeriesDate列挙型の定数で指定します。

  XlDataSeriesDate列挙型

  定数	値	内容
  xlDay	1	日
  xlWeekday	2	平日
  xlMonth	3	月
  xlYear	4	年

• Step【ｽﾃｯﾌﾟ】（省略可）
  連続データの加算値を設定します。既定値は 1 です。
• Stop【ｽﾄｯﾌﾟ】（省略可）
  連続データの停止位置をRangeオブジェクトで設定します。省略した場合は、対象セル範囲の終端まで繰り返されます。
• Trend【ﾄﾚﾝﾄﾞ】（省略可）
  対象セル範囲に入力されている値を元に予測した値を入力する方法をブール型の値で指定します。

  設定値	内容
  True	直線（加算）または指数曲線（乗算）に当てはめて 予測した結果で残りのセルを埋めます
  False	標準の連続データを作成します。

  省略した場合はFalseです。

Sub 連番作成()
Dim データ範囲 As Range
Set データ範囲 = Range("A1").CurrentRegion
With データ範囲.Columns(1).Offset(0, データ範囲.Columns.Count)
               .Cells(1).Value = 0
               .Cells(2).Value = 1
               .DataSeries Type:=xlDataSeriesLinear
               .Cells(1).Value = "元の順番"
End With
End Sub

3行目【Set データ範囲 = Range(“A1”).CurrentRegion】
Range【ﾚﾝｼﾞ】オブジェクトのCurrentRegion【ｶﾚﾝﾄﾘｰｼﾞｮﾝ】プロパティ使用してA1セルから始まるデータ範囲を取得してオブジェクト変数「データ範囲」にSetキーワードを使用して代入します。

4行目【With データ範囲.Columns(1).Offset(0, データ範囲.Columns.Count)】
データ範囲のColumns【ｶﾗﾑｽﾞ】プロパティの引数に1を設定して、データ範囲の1列目を指定します。指定したデータ範囲の1列目を基準としてOffset【ｵﾌｾｯﾄ】プロパティを使用して引数の列方向の移動をデータ範囲の列の集まりを表すColumns【ｶﾗﾑｽ】コレクションのCount【ｶｳﾝﾄ】プロパティを使用して
データ範囲の列数を取得して設定し、With【ｳｨｽﾞ】ステートメントで指定します。

結果的にデータ範囲の最終列の次の列が参照されます。

5行目【.Cells(1).Value = 0】
With【ｳｨｽﾞ】ステートメントで指定したデータ範囲の最終列の次の列をCells【ｾﾙｽﾞ】プロパティで引数を1に設定し、その行の1行目のセルを参照して
Value【ﾊﾞﾘｭｰ】プロパティを使用して0を代入します。

6行目【.Cells(2).Value = 1】
With【ｳｨｽﾞ】ステートメントで指定した、データ範囲の最終列の次の列Cells【ｾﾙｽﾞ】プロパティで引数を2に設定し、その行の2行目のセルを参照してValue【ﾊﾞﾘｭｰ】プロパティを使用して1を代入します。

7行目【.DataSeries】
With【ｳｨｽﾞ】ステートメントで指定したデータ範囲の最終列の次の列をDataSeries【ﾃﾞｰﾀｼﾘｰｽﾞ】メソッドを使用して、1行目のセルの値0と、2行目のセルの値1を基準に連番を作成します。

連続データの種類を設定する引数Typeには、加算データと仮定するxlDataSeriesLinearを設定します。その他の引数は既定値なので省略します。

8行目【.Cells(1).Value = “元の順番”】
With【ｳｨｽﾞ】ステートメントで指定したデータ範囲の最終列の次の列の1行目のセル（5行目で0を代入したセル）にValue【ﾊﾞﾘｭｰ】プロパティを使用して文字列を代入します。