计算VBA中所选(大)范围内不同值的数量？

Function CountDistinctValues(rng As Range) As Long
    Dim cell As Range
    Dim dict As Object
    Set dict = CreateObject("Scripting.Dictionary")
    For Each cell In rng
        If Not dict.exists(cell.Value) Then
            dict.Add cell.Value, 1
        End If
    Next cell
    CountDistinctValues = dict.Count
End Function

Sub TestCountDistinctValues()
    Dim rng As Range
    Set rng = Range("A1:A10")
    Dim count As Long
    count = CountDistinctValues(rng)
    MsgBox "不同值的数量为：" & count
End Sub