vba excel函数查找所有唯一值并放入一个值中

Sub FindUniqueValues()
    Dim rng As Range
    Dim cell As Range
    Dim uniqueValues As Collection
    Dim value As Variant
    
    ' 设置要查找唯一值的范围
    Set rng = Range("A1:A10") ' 修改为你的实际范围
    
    ' 创建一个集合对象来存储唯一值
    Set uniqueValues = New Collection
    
    ' 遍历范围中的每个单元格
    For Each cell In rng
        ' 将单元格的值添加到集合中（如果尚未存在）
        On Error Resume Next
        uniqueValues.Add cell.Value, CStr(cell.Value)
        On Error GoTo 0
    Next cell
    
    ' 将唯一值放入一个单元格中
    For Each value In uniqueValues
        Range("B1").Value = Range("B1").Value & value & ", "
    Next value
    
    ' 删除最后一个逗号
    Range("B1").Value = Left(Range("B1").Value, Len(Range("B1").Value) - 2)
End Sub