vba从新集中删除重复项

Sub RemoveDuplicates()
    Dim originalCollection As Collection
    Dim uniqueCollection As Collection
    Dim item As Variant
    
    ' 创建原始集合
    Set originalCollection = New Collection
    
    ' 向原始集合添加项
    originalCollection.Add "A"
    originalCollection.Add "B"
    originalCollection.Add "C"
    originalCollection.Add "A" ' 重复项
    originalCollection.Add "D"
    originalCollection.Add "B" ' 重复项
    
    ' 创建新集合
    Set uniqueCollection = New Collection
    
    ' 遍历原始集合
    For Each item In originalCollection
        ' 检查项是否已经存在于新集合中
        If Not Contains(uniqueCollection, item) Then
            ' 将项添加到新集合中
            uniqueCollection.Add item
        End If
    Next item
    
    ' 清空原始集合
    originalCollection.Clear
    
    ' 将新集合中的项复制回原始集合
    For Each item In uniqueCollection
        originalCollection.Add item
    Next item
    
    ' 输出结果
    For Each item In originalCollection
        Debug.Print item
    Next item
End Sub

Function Contains(collection As Collection, item As Variant) As Boolean
    On Error Resume Next
    Contains = (collection(item) <> 0)
    On Error GoTo 0
End Function