エクセルマクロで、グループや分類ごとに連番を振るVBAコードをご紹介します。
このページのマクロコードは、コピペで使えます。
ぜひ、お試しください。
グループごとに連番を振る
以下のExcelVBAを実行すると、グループ毎に連番を振ります。
Sub 項目ごとに連番をつける()
Dim i As Long
Dim j As Long
Dim Cnt As Long
Dim LastRow As Long
Dim GetName As String
'最終行
LastRow = Cells(Rows.Count, 1).End(xlUp).Row
'2~最終行までループ
For i = 2 To LastRow
'連番用
Cnt = 1
'グループを変数へ格納
GetName = Cells(i, 2)
For j = 2 To LastRow
If Cells(j, 2) = GetName Then
'同じグループに連続した番号を入力
Cells(j, 3) = Cnt
Cnt = Cnt + 1
End If
Next j
Next i
End Sub
マクロ実行後
B列に入力されているグループごとに、C列に連番を振りました。
VBAなら、データがグループごとに並んでいなくても連番をふることができます。
この記事がお役に立てれば幸いです。

【エクセルマクロ】連番処理を自動化する:超便利7選
...
「たった1秒で仕事が片づくExcel自動化の教科書【増強完全版】」
「5時間かかる作業が3時間でできます」ではなく「1秒で終わらせます」へ
毎日の業務を瞬時に終わらせるしくみを解説
リンク