Hsieh

回復 1# rouber590324

1. Sub ex()
   
2. Set d = CreateObject("Scripting.Dictionary")
   
3. For Each a In Range([B2], [B65536].End(xlUp))
   
4.    If d.exists(a.Value) = False Then d(a.Value) = d.Count + 1
   
5.    a.Offset(, -1) = d(a.Value)
   
6. Next
   
7. End Sub

複製代碼