VBA EXCEL将特定列的数组成员添加到集合中以计算唯一值

Dim uniqueValues As New Collection

Dim dataRange As Range ' 假设数据范围为A1:A10
Dim cell As Range

Set dataRange = Range("A1:A10")

For Each cell In dataRange
    On Error Resume Next ' 忽略重复值的错误
    uniqueValues.Add cell.Value, CStr(cell.Value) ' 将每个成员添加到集合中
    On Error GoTo 0 ' 恢复错误处理
Next cell

Dim uniqueValue As Variant

For Each uniqueValue In uniqueValues
    Debug.Print uniqueValue ' 输出唯一值
Next uniqueValue