サイトアイコン SE日記

ExcelのVBA・マクロで複数のセルの値を基準として連続した値を入力する方法

ここでは、ExcelのVBA・マクロで複数のセルの値を基準として連続した値を入力する方法を紹介します。

ExcelのVBA・マクロで複数のセルの値を基準として連続した値を入力するには、AUTOFILLメソッドを使って連続した値を設定します。

<サンプル>
Sub test16()
Range(“A1”).Value = “番号”
Range(“A2”).Value = “10”
Range(“A3”).Value = “20”
Range(“A4”).Value = “30”
Range(“B1”).Value = “名前”
Range(“C1”).Value = “値”
Range(“B2”).Value = “高橋”
Range(“B3”).Value = “鈴木”
Range(“B4”).Value = “田中”
Range(“B5”).Value = “松井”
Range(“B6”).Value = “野村”
Range(“B7”).Value = “谷重”
Range(“C2:C7”).Value = 100

Range(“A2:A4”).AutoFill Destination:=Range(“A2:A7”)

End Sub

ここでは、「Range(“A2:A4”).AutoFill Destination:=Range(“A2:A7”)」で、A2からA4セルに設定した値から連続した番号をA7セルまで入力している。結果は40、50、60と番号が入力される。

ちなみに、下記のように文字をA,B,Cとした場合は、A,B,Cが繰り返し入力される。

<サンプル>
Sub test16()
Range(“A1”).Value = “グループ”
Range(“A2”).Value = “A”
Range(“A3”).Value = “B”
Range(“A4”).Value = “C”
Range(“B1”).Value = “名前”
Range(“C1”).Value = “値”
Range(“B2”).Value = “高橋”
Range(“B3”).Value = “鈴木”
Range(“B4”).Value = “田中”
Range(“B5”).Value = “松井”
Range(“B6”).Value = “野村”
Range(“B7”).Value = “谷重”
Range(“C2:C7”).Value = 100

Range(“A2:A4”).AutoFill Destination:=Range(“A2:A7”)

End Sub

モバイルバージョンを終了