如何在Excel VBA用户窗体中基于ComboBox1填充对应员工至ComboBox2？

这个需求在Excel VBA开发里非常常见，我给你分两步来实现，每一步都配了可直接用的代码，你可以根据自己的实际数据调整：

第一步：加载UserForm时，填充ComboBox1的唯一城市列表 #

我们需要先把列1里的城市去重，然后放到ComboBox1里。这里提供两种方法，你可以选适合自己的：

方法1：用字典去重（推荐，无需临时列） #

字典的特性是键唯一，刚好适合去重。把这段代码放到UserForm的初始化事件里：

Private Sub UserForm_Initialize()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Dim cityDict As Object
    
    ' 替换成你的数据所在工作表名称
    Set ws = ThisWorkbook.Sheets("Sheet1")
    ' 获取城市列的最后一行行号
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    ' 创建字典对象
    Set cityDict = CreateObject("Scripting.Dictionary")
    
    ' 先清空ComboBox1，避免重复加载
    ComboBox1.Clear
    
    ' 遍历城市列（假设A1是表头，数据从A2开始）
    For i = 2 To lastRow
        ' 如果字典里没有这个城市，就添加进去
        If Not cityDict.Exists(ws.Cells(i, "A").Value) Then
            cityDict.Add ws.Cells(i, "A").Value, ""
        End If
    Next i
    
    ' 将字典里的唯一城市填充到ComboBox1
    ComboBox1.List = cityDict.Keys
End Sub

方法2：用RemoveDuplicates方法（适合新手，直观） #

通过临时粘贴列去重，代码更简单：

Private Sub UserForm_Initialize()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim cityRange As Range
    
    Set ws = ThisWorkbook.Sheets("Sheet1")
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    Set cityRange = ws.Range("A2:A" & lastRow) ' 数据从A2开始
    
    ComboBox1.Clear
    
    ' 把城市列复制到临时列（这里用Z列，选个不影响你数据的列就行）
    cityRange.Copy
    ws.Range("Z1").PasteSpecial xlPasteValues
    ' 对临时列去重
    ws.Range("Z1:Z" & lastRow).RemoveDuplicates Columns:=1, Header:=xlNo
    
    ' 把去重后的城市填充到ComboBox1
    ComboBox1.List = ws.Range("Z1:Z" & ws.Cells(ws.Rows.Count, "Z").End(xlUp).Row).Value
    
    ' 清理临时数据
    ws.Range("Z1:Z" & ws.Cells(ws.Rows.Count, "Z").End(xlUp).Row).ClearContents
End Sub

第二步：选择城市后，联动更新ComboBox2的员工列表 #

当用户在ComboBox1选中某个城市时，我们需要把对应列2的员工筛选出来，放到ComboBox2里。同样提供两种方法：

方法1：逐行遍历匹配（适合小数据量） #

代码简单直观，放到ComboBox1的Change事件里：

Private Sub ComboBox1_Change()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    
    Set ws = ThisWorkbook.Sheets("Sheet1")
    lastRow = ws.Cells(ws.Rows.Count, "B").End(xlUp).Row
    
    ' 先清空ComboBox2的旧数据，避免残留
    ComboBox2.Clear
    
    ' 如果没选中城市，直接退出
    If ComboBox1.Value = "" Then Exit Sub
    
    ' 遍历员工列，匹配选中的城市就添加到ComboBox2
    For i = 2 To lastRow
        If ws.Cells(i, "A").Value = ComboBox1.Value Then
            ComboBox2.AddItem ws.Cells(i, "B").Value
        End If
    Next i
End Sub

方法2：用AutoFilter筛选（适合大数据量，更高效） #

如果你的员工数据很多，逐行遍历会卡顿，用AutoFilter筛选更快：

Private Sub ComboBox1_Change()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim filteredRange As Range
    
    Set ws = ThisWorkbook.Sheets("Sheet1")
    lastRow = ws.Cells(ws.Rows.Count, "B").End(xlUp).Row
    
    ComboBox2.Clear
    If ComboBox1.Value = "" Then Exit Sub
    
    ' 取消之前的筛选状态
    ws.AutoFilterMode = False
    
    ' 筛选A列等于选中的城市
    ws.Range("A1:B" & lastRow).AutoFilter Field:=1, Criteria1:=ComboBox1.Value
    
    ' 获取筛选后的员工数据（排除表头）
    On Error Resume Next ' 处理没有匹配员工的情况
    Set filteredRange = ws.Range("B2:B" & lastRow).SpecialCells(xlCellTypeVisible)
    On Error GoTo 0
    
    ' 如果有匹配结果，添加到ComboBox2
    If Not filteredRange Is Nothing Then
        Dim cell As Range
        For Each cell In filteredRange
            ComboBox2.AddItem cell.Value
        Next cell
    End If
    
    ' 取消筛选，恢复表格原样
    ws.AutoFilterMode = False
End Sub

注意事项 #

• 请根据你的实际情况修改代码里的工作表名称（比如把Sheet1改成你的表名）、数据起始行（如果你的数据从第1行开始，把i=2改成i=1）
• 如果你的城市或员工列不是A、B列，记得修改代码里的列标识（比如把"A"改成"C"）

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