从VBA Collection中快速删除重复的字符串

Question

Dim MyCollection As VBA.Collection
Set MyCollection = New VBA.Collection

For i = MyCollection.Count To 1 Step -1
    For j = (i - 1) To 1 Step -1
        If MyCollection(i) = MyCollection(j) Then
            MyCollection.Remove i
            Exit For
        End If
    Next j
Next i

MyCollection目前有8000个电子邮件条目。我想从这个大型列表中删除冗余元素，但速度更快。

如何加速此代码？

Answer 1

我有建议，非常简单，必须有效。

有些＆＃34; buts＆＃34;和主要＆＃34;但是＆＃34;：

• 你必须有足够的记忆
• 删除计数必须足够高

建议：不要逐个元素删除

而不是删除：创建新集合而不需要不需要的记录。

之后：整个旧集合。