Excel VBA：如何判断ComboBox是否包含指定项及工作表激活时为其填充不重复列数据

首先得说，你的思路方向是对的，但现有代码里判断ComboBox是否存在项的方式有点问题——直接设置cmbProveedores.Value如果没匹配到，其实会触发错误（除非控件的MatchRequired设为False），而且逐行遍历到65536也不够灵活（现在Excel支持百万行，老版本的65536限制没必要）。下面给你拆解解决方法：

一、正确判断ComboBox是否包含指定项的方法 #

如果还是想用遍历行+检查ComboBox的方式，推荐两种靠谱的检查方法：

1. 遍历ComboBox的List集合：

Function ItemExistsInCombo(cbo As ComboBox, item As String) As Boolean
    Dim i As Integer
    For i = 0 To cbo.ListCount - 1
        If cbo.List(i) = item Then
            ItemExistsInCombo = True
            Exit Function
        End If
    Next i
    ItemExistsInCombo = False
End Function

用的时候直接调用If Not ItemExistsInCombo(Me.cmbProveedores, miProveedor) Then ...

2. 利用Match函数：

If IsError(Application.Match(miProveedor, Me.cmbProveedores.List, 0)) Then
    ' 不存在，添加项
    Me.cmbProveedores.AddItem miProveedor
End If

这个方法更简洁，不用自己写循环。

二、比逐行遍历更高效的实现方式 #

逐行遍历数据行在数据量大的时候会很慢，推荐用**字典（Dictionary）**来快速收集唯一值，这是VBA里处理去重的常用高效方法：

优化后的完整代码 #

Private Sub Worksheet_Activate()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim rng As Range
    Dim cell As Range
    Dim uniqueDict As Object
    Dim miProveedor As String
    
    Set ws = Me
    Set uniqueDict = CreateObject("Scripting.Dictionary")
    
    ' 清空ComboBox并添加空项
    Me.cmbProveedores.Clear
    Me.cmbProveedores.AddItem ""
    
    ' 获取数据的最后一行（用NombreColumnaRevisiones列判断，更灵活）
    lastRow = ws.Cells(ws.Rows.Count, NombreColumnaRevisiones).End(xlUp).Row
    If lastRow < PrimeraLineaConDatos Then Exit Sub ' 没有数据直接退出
    
    ' 遍历供应商列的有效数据
    Set rng = ws.Range(ws.Cells(PrimeraLineaConDatos, NombreColumnaProveedor), ws.Cells(lastRow, NombreColumnaProveedor))
    For Each cell In rng
        miProveedor = Trim(cell.Value) ' 去掉前后空格避免重复
        If miProveedor <> "" Then
            ' 字典的Key唯一，自动去重
            If Not uniqueDict.Exists(miProveedor) Then
                uniqueDict.Add miProveedor, ""
            End If
        End If
    Next cell
    
    ' 将字典的Key加载到ComboBox
    If uniqueDict.Count > 0 Then
        Me.cmbProveedores.List = uniqueDict.Keys
        ' 因为之前加了空项，这里要把空项放回第一个位置
        Me.cmbProveedores.AddItem "", 0
    End If
    
    Me.cmbProveedores.Value = ""
End Sub

为什么用字典更高效？ #

• 字典的Exists方法是哈希查找，比逐行遍历ComboBox或者数据行快得多，数据量越大优势越明显
• 一次性收集所有唯一值后再批量加载到ComboBox，减少控件的操作次数（控件操作本身比较耗时）

三、对你现有代码的小修正 #

如果你不想改太多现有逻辑，也可以把判断部分改成用Match函数，修正后的代码：

Private Sub Worksheet_Activate()
    Me.cmbProveedores.Clear
    Me.cmbProveedores.AddItem ("")
    Dim miIterador As Long
    Dim miProveedor As String
    ' 用End(xlUp)获取最后一行，代替固定的65536
    Dim lastRow As Long
    lastRow = Me.Cells(Me.Rows.Count, NombreColumnaRevisiones).End(xlUp).Row
    
    For miIterador = PrimeraLineaConDatos To lastRow
        If Me.Cells(miIterador, NombreColumnaRevisiones) = "" Then Exit For
        miProveedor = Trim(Me.Cells(miIterador, NombreColumnaProveedor).Value)
        If miProveedor <> "" Then
            ' 用Match判断是否存在
            If IsError(Application.Match(miProveedor, Me.cmbProveedores.List, 0)) Then
                Me.cmbProveedores.AddItem miProveedor
            End If
        End If
    Next miIterador
    Me.cmbProveedores.Value = ""
End Sub

内容的提问来源于stack exchange，提问作者Álvaro García