Excel VBA:统计ID号的唯一类别数

Sub CountUniqueCategories()
    Dim rng As Range
    Dim cell As Range
    Dim uniqueCategories As Collection
    
    ' 设置数据范围
    Set rng = Range("A2:A100")
    
    ' 创建一个集合对象用于存储唯一的ID号
    Set uniqueCategories = New Collection
    
    ' 遍历数据范围，将不重复的ID号添加到集合中
    On Error Resume Next
    For Each cell In rng
        uniqueCategories.Add cell.Value, CStr(cell.Value)
    Next cell
    On Error GoTo 0
    
    ' 输出唯一类别数
    MsgBox "唯一类别数为：" & uniqueCategories.Count
End Sub