Sub B列の最終行までA列に連番を入れる()
Dim i, 指定行, 連番
'最初の行を何行目にするか指定
最初の行 = 1
'連番開始番号の入力
連番 = 1

For i = 最初の行 To Cells(Rows.Count, "B").End(xlUp).Row 'B列の最終行まで
Cells(i, 1).Value = 連番
連番 = 連番 + 1 '1個づつ加算
Next
End Sub

Follow me!