Sub edit_fill_auto()
	'例として最初にA1に1,A2に2と入れておきます。
	Set sourceRange = Worksheets("Sheet1").Range("A1:A2")
	'データのキーとなるものを指定します
	Set fillRange = Worksheets("Sheet1").Range("A1:A20")
	'データの入力先をA1〜A20に指定します
	sourceRange.AutoFill Destination:=fillRange
	'連続データを作成します
End Sub


Sub edit_fill_auto2()
	Selection.DataSeries _
		Rowcol = xlRows, _ '範囲に行を指定します
		'引数としてxlColumns（列）があります 
		Type = xlDataSeriesLinear, _ '種類に加算を指定します
		'引数としてxlGrowth（乗算）
		'xlChronological（日付）
		'xlAutoFill（オートフィル）があります 
		Date = xlDay, _ '増加単位に日付を指定します
		'TypeにxlChronologicalが選択されている場合のみ有効です
		'引数としてxlWeekday(週日）
		'xlMonth（月）
		'xlYear（年）があります
		Step = 1, _
		'連続データの増分値を指定します
		Stop = 10, _
		'連続データの停止値を指定します
		Trend = false
		'データ予測チェックボックス
		'Trueを指定すると選択範囲の増加値が自動的に計算されます。
		'TrueにするとStep(増加値)は無視されます
End Sub