【エクセルマクロ】グループごとに連番を振る：作業効率アップテクニック

エクセルマクロで、グループや分類ごとに連番を振る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