Excel マクロ B列の最終行までA列に連番を入れる VBA Excel-エクセル 2021.02.13 Sub B列の最終行までA列に連番を入れる() Dim i, 指定行, 連番 ‘指定行の指定 指定行 = 1 ‘連番開始番号の入力 連番 = 1 For i = 指定行 To Cells(Rows.Count, 2).End(xlUp).Row Cells(i, 1).Value = 連番 連番 = 連番 + 1 Next End Sub