VBA集合去重实现：检查值是否存在并添加非重复元素

嘿，我懂你想要精简这段去重并添加到Collection的VBA代码的需求——原来的嵌套循环确实有点啰嗦，这里给你两个更简洁优雅的实现方案：

方案1：利用Dictionary先去重（高效推荐） #

Dictionary的键天生具有唯一性，刚好适合用来快速去重，之后再把去重后的内容转存到Collection里，代码清爽还高效，尤其是数据量较大的时候优势明显：

Dim coll As New Collection
Dim dict As Object
Dim lastRow As Long
Dim cellValue As Variant

' 后期绑定Dictionary（无需额外引用库）
Set dict = CreateObject("Scripting.Dictionary")
lastRow = Cells(Rows.Count, 1).End(xlUp).Row

' 遍历A列，用Dictionary自动完成去重
For Each cellValue In Range("A1:A" & lastRow).Value
    If Not dict.Exists(cellValue) Then
        dict.Add cellValue, cellValue
    End If
Next

' 将去重后的内容转存到Collection
For Each cellValue In dict.Keys
    coll.Add cellValue
Next

' 可选：清理对象释放资源
Set dict = Nothing

这个方法只需要一层循环完成去重，比嵌套循环的时间复杂度低很多，处理大量数据时速度提升明显。

方案2：利用错误处理简化原逻辑 #

如果不想引入Dictionary，也可以通过On Error Resume Next捕获重复添加Collection时的错误，省去内层的循环判断，代码更短：

Dim coll As New Collection
Dim lastRow As Long
Dim i As Long

lastRow = Cells(Rows.Count, 1).End(xlUp).Row

On Error Resume Next ' 开启错误捕获，重复添加时会触发错误并跳过
For i = 1 To lastRow
    ' 利用Key参数判断唯一性，重复值添加时会报错
    coll.Add Cells(i, 1).Value, Key:=CStr(Cells(i, 1).Value)
Next i
On Error GoTo 0 ' 关闭错误捕获，避免忽略后续代码的其他错误

这里要注意，添加Collection时必须带上Key参数，这样重复值尝试添加才会触发错误；记得最后要关闭错误捕获，防止后续代码的异常被意外忽略。

两种方法都能实现你的需求，看你更倾向于哪种风格啦～

内容的提问来源于stack exchange，提问作者PBeezy