不重复计数的数组公式因为数据量太大死了，请教更好的办法（有附件）

附件

不重复计数的数组公式因为数据量太大死了，请教更好的办法.rar(355.3 KB)

2011-8-6 00:05, 下载次数: 7

（2003版） 不重复计数的数组公式因为数据量太大死了，请教更好的办法.rar(195.6 KB)

2011-8-6 00:05, 下载次数: 17

复制内容到剪贴板

代码:

Sub 按钮5_单击()
Dim brr() As String
arr = Range("a1").CurrentRegion
Set d = CreateObject("scripting.dictionary")
ReDim brr(1 To UBound(arr), 1 To 2)
For a = 2 To UBound(arr)
    If Not d.exists(arr(a, 2)) Then
        n = n + 1
        d(arr(a, 2)) = n
        brr(n, 1) = arr(a, 2)
        brr(n, 2) = 1
    Else
        brr(d(arr(a, 2)), 2) = d(arr(a, 2)) + 1
    End If
Next
[h2].Resize(n, 2) = brr
End Sub