VBA帮助:迭代通过另一个列值并创建单独的唯一计数器*参见说明*

Sub CreateUniqueCounter()
    Dim rng As Range
    Dim cell As Range
    Dim counter As Long
    Dim dict As Object
    
    Set dict = CreateObject("Scripting.Dictionary")
    counter = 1
    
    '假设数据在A列中，从第2行开始
    Set rng = Range("A2:A" & Cells(Rows.Count, "A").End(xlUp).Row)
    
    For Each cell In rng
        If Not dict.exists(cell.Value) Then
            dict.Add cell.Value, counter
            counter = counter + 1
        End If
        cell.Offset(0, 1).Value = dict(cell.Value)
    Next cell
End Sub