Excel 用字典计算唯一值的个数，自定义函数

2017-5-9 10:12 

本帖最后由 little-key 于 2017-5-9 10:18 编辑

昨天写了一个用字典求汇总的方法
其实利用key的唯一性，求唯一值的个数，也是很方便的
而且效率非常高。

1. Function UniqueValue(rn As Range)

2. Dim arr, i&, d As Object

3. arr = rn

4. Set d = CreateObject('scripting.dictionary')

5. For i = 1 To UBound(arr)

6. If Not d.Exists(arr(i, 1)) Then d(arr(i, 1)) = i

7. Next i

8. UniqueValue = d.Count

9. Set d = Nothing

10. End Function

将上述代码放在VBE 窗口的模块中，就可以在工作表上，和常规函数一样，使用UniqueValue求唯一值的个数了。