用vba在excel中查询不同项目

Sub 查询不同项目()
    Dim 数据范围 As Range
    Dim 目标列 As Range
    Dim 不同项目 As Collection
    Dim 项目 As Variant
    
    ' 设置数据范围，假设数据位于Sheet1的A列到B列
    Set 数据范围 = Sheets("Sheet1").Range("A1:B10")
    
    ' 设置目标列，用于存储不同项目
    Set 目标列 = Sheets("Sheet1").Range("D1")
    
    ' 创建一个集合用于存储不同项目
    Set 不同项目 = New Collection
    
    ' 遍历数据范围，将不同项目添加到集合中
    On Error Resume Next
    For Each 项目 In 数据范围.Columns(1).Cells
        不同项目.Add 项目.Value, CStr(项目.Value)
    Next 项目
    On Error GoTo 0
    
    ' 将不同项目写入目标列
    目标列.Resize(不同项目.Count, 1).Value = WorksheetFunction.Transpose(不同项目.Items)
    
    ' 清空集合
    Set 不同项目 = Nothing
End Sub