IT備忘録

------------------------------
Sub Macro1()

Dim i_End As Integer
Dim i, j As Integer

i_End = Range("D65536").End(xlUp).Row
j = 1

    For i = 2 To i_End

        If Cells(i, 2) = Cells(i - 1, 2) Then
            j = j + 1
            Cells(i, 3) = j

        Else
            j = 1
            Cells(i, 3) = j

        End If

    Next i

End Sub
------------------------------