excel VBA 提取范围中唯一值

要在 Excel VBA 中提取范围中的唯一值，你可以使用集合对象。以下是一个示例代码：

Sub UniqueValues()
    Dim inputRange As Range
    Dim uniqueValues As New Collection
    Dim cellValue As Variant
    
    Set inputRange = Range("A1:A10") ' 范围可以更改为你需要的范围
    
    For Each cellValue In inputRange
        On Error Resume Next ' 忽略重复值的错误
        uniqueValues.Add cellValue, CStr(cellValue)
        On Error GoTo 0
    Next cellValue
    
    ' 输出唯一值
    For i = 1 To uniqueValues.Count
        Debug.Print uniqueValues(i)
    Next i
End Sub

该代码将输入范围中的唯一值添加到集合中，并输出唯一值。请注意，这里使用了 On Error Resume Next 语句来忽略重复值的错误。