怎样用Excel VBA 建立一个小循环

Question

如果下一行等于上一行 则顺序排序
如果下一行不等于上一行 则1

Answer 1

Sub PaiXu()
    n = 1
    For i = 1 To Range("A65536").End(xlUp).Row
        Cells(i, 2) = n
        n = IIf(Cells(i, 1) = Cells(i + 1, 1), n + 1, 1)
    Next
End Sub