Excel VBA：UserForm中ComboBox联动Listbox去重问题

嘿，我来帮你搞定这个重复项的问题！首先咱们得搞清楚为啥会出现重复：你的代码每次切换ComboBox选项时虽然清空了ListBox，但循环遍历数据的时候，同一分类下可能存在重复的记录，或者代码没做去重判断，导致同一个项被多次添加进去。

下面给你两种实用的解决办法，按需选就行：

方法一：用字典（Dictionary）去重（推荐，效率更高） #

字典的键是唯一的特性刚好能帮我们快速判断项是否已经存在，避免重复添加。修改后的代码如下：

Private Sub ProdComp_Change()
    Dim RowMax As Integer
    Dim ws As Worksheet
    Dim i As Integer
    Dim uniqueItems As Object ' 字典对象，用来存已经添加过的唯一项
    
    Set ws = ThisWorkbook.Sheets("products")
    RowMax = ws.Cells(Rows.Count, "B").End(xlUp).Row
    Me.LBType.Clear ' 先清空ListBox，确保旧内容不会残留
    
    ' 创建字典实例
    Set uniqueItems = CreateObject("Scripting.Dictionary")
    
    With LBType
        For i = 2 To RowMax
            ' 这里假设你是用B列的值匹配ComboBox选中的分类，要添加的是C列的内容到ListBox
            ' 如果你的实际列不一样，记得替换对应的列号/列名
            If ws.Cells(i, "B").Value = Me.ProdComp.Value Then
                Dim itemText As String
                itemText = ws.Cells(i, "C").Value
                
                ' 检查字典里有没有这个项，没有才添加
                If Not uniqueItems.Exists(itemText) Then
                    uniqueItems.Add itemText, itemText ' 键和值设成一样，只是用来标记已存在
                    .AddItem itemText
                End If
            End If
        Next i
    End With
    
    ' 用完记得释放对象
    Set uniqueItems = Nothing
End Sub

为啥用这个方法？ 字典的查找速度非常快，哪怕数据量很大，也不会有明显卡顿，是处理去重的最优解之一。

方法二：遍历ListBox检查重复（适合小数据量） #

如果你的数据行数不多，也可以直接遍历ListBox已有的项，手动检查是否重复，不需要额外引用字典：

Private Sub ProdComp_Change()
    Dim RowMax As Integer
    Dim ws As Worksheet
    Dim i As Integer
    Dim j As Integer
    Dim isDuplicate As Boolean
    
    Set ws = ThisWorkbook.Sheets("products")
    RowMax = ws.Cells(Rows.Count, "B").End(xlUp).Row
    Me.LBType.Clear
    
    With LBType
        For i = 2 To RowMax
            If ws.Cells(i, "B").Value = Me.ProdComp.Value Then
                Dim itemText As String
                itemText = ws.Cells(i, "C").Value
                isDuplicate = False
                
                ' 遍历ListBox现有项，检查是否重复
                For j = 0 To .ListCount - 1
                    If .List(j) = itemText Then
                        isDuplicate = True
                        Exit For ' 找到重复就跳出循环，不用再查了
                    End If
                Next j
                
                ' 不是重复项就添加
                If Not isDuplicate Then
                    .AddItem itemText
                End If
            End If
        Next i
    End With
End Sub

注意事项：

• 确保Me.LBType.Clear这行代码在循环之前执行，这样每次切换分类时都会彻底清空旧列表，避免新旧内容混在一起导致的重复。
• 替换代码里的列号（比如"C"）为你实际要添加到ListBox的列哦！

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