如何修改VBA代码实现Excel用户表单多ComboBox绑定唯一列表

你可以把获取唯一值的逻辑封装成通用函数，避免重复编写相同代码，直接给三个ComboBox分别调用即可，修改后的代码如下：

Private Sub Userform_Initialize()
    ' 给三个ComboBox分别绑定对应列的唯一值列表
    Me.ComboBox1.List = GetUniqueValues(Sheets("dropdowns").Range("I2:I500"))
    Me.ComboBox2.List = GetUniqueValues(Sheets("dropdowns").Range("J2:J500")) ' 替换为你需要的第二列范围
    Me.ComboBox3.List = GetUniqueValues(Sheets("dropdowns").Range("K2:K500")) ' 替换为你需要的第三列范围
End Sub

' 通用函数：传入单元格范围，返回该范围的唯一值数组
Private Function GetUniqueValues(rng As Range) As Variant
    Dim v As Variant, e As Variant
    Dim dict As Object
    
    Set dict = CreateObject("scripting.dictionary")
    dict.CompareMode = 1 ' 不区分大小写
    
    v = rng.Value
    For Each e In v
        ' 跳过空单元格，避免列表出现空项
        If Not IsEmpty(e) And Not dict.Exists(e) Then
            dict.Add e, Nothing
        End If
    Next e
    
    ' 有唯一值则转成数组返回，否则返回空数组
    If dict.Count > 0 Then
        GetUniqueValues = Application.Transpose(dict.Keys)
    Else
        GetUniqueValues = Array()
    End If
End Function

修改说明： #

• 把原有的字典逻辑抽成GetUniqueValues函数，每次只需传入目标单元格范围就能拿到唯一值列表，代码更简洁易维护。
• 新增空值判断，避免ComboBox出现空选项。
• 你只需将ComboBox2和ComboBox3对应的范围改成实际要绑定的列（比如第二列用J列、第三列用L列等，根据你的表格结构调整）。
• 如果数据源不是固定到500行，可改成动态范围，比如Sheets("dropdowns").Range("I2", Sheets("dropdowns").Cells(Sheets("dropdowns").Rows.Count, "I").End(xlUp))，这样会自动取到列内最后一行有数据的位置，不用硬写行数。

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