从vba范围中获取唯一字符串的计数

Sub GetUniqueStringCount()
    Dim rng As Range
    Dim cell As Range
    Dim uniqueStrings As Collection
    Set uniqueStrings = New Collection
    
    ' 设置范围，可以根据实际情况修改
    Set rng = Range("A1:A10")
    
    ' 遍历范围中的每个单元格
    For Each cell In rng
        ' 将单元格的值作为唯一字符串添加到集合中
        On Error Resume Next
        uniqueStrings.Add cell.Value, CStr(cell.Value)
        On Error GoTo 0
    Next cell
    
    ' 获取唯一字符串的计数
    MsgBox "唯一字符串的计数为：" & uniqueStrings.Count
End Sub