请教各位大神如何用VBA实现COUNTIF的第几次出现功能

菜鸟多年

现有几万条数据，想要统计每个值是第几次出现，用函数太卡了，麻烦各位大神告知下用VBA代码如何实现？

sqrall900

vba只是为了多次重复操作方便，如果你就算一次结果，建议还是用你这个公式，只是需要等待几分钟，但是为了写个代码，花太多时间就没必要了

onthetrip

1. Private Sub test()
   
2. Dim arr, dic As Object, i&
   
3. arr = Range([a2], Cells(Rows.count, 2).End(xlUp)).Value
   
4. Set dic = CreateObject("scripting.dictionary")
   
5. For i = 1 To UBound(arr, 1)
   
6.     If Not dic.exists(arr(i, 1)) Then
   
7.         dic(arr(i, 1)) = 1
   
8.     Else
   
9.         dic(arr(i, 1)) = dic(arr(i, 1)) + 1
   
10.     End If
    
11.     arr(i, 2) = dic(arr(i, 1))
    
12. Next
    
13. [a2].Resize(UBound(arr, 1), 2) = arr
    
14. dic.RemoveAll: Set dic = Nothing
    
15. End Sub

复制代码