使用宏从多列中提取唯一值

Sub ExtractUniqueValues()
    Dim rng As Range
    Dim cell As Range
    Dim uniqueValues As Collection
    Dim value As Variant
    
    ' 设置要提取唯一值的范围
    Set rng = Range("A1:C10")
    
    ' 创建一个集合对象来存储唯一值
    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("E1").End(xlDown).Offset(1, 0).Value = value
    Next value
End Sub