求助：按列值筛选UserForm中Combobox的表格数据

没问题，我帮你搞定这个需求！针对Excel表格（ListObject）的场景，其实比普通工作表更方便——因为表格本身就是结构化的数据对象，能直接调用自带的方法来处理。下面给你两种实用的实现方案，你可以根据数据量和习惯选择：

方案1：用表格AutoFilter筛选（适合大数据量） #

这种方法效率更高，先通过表格的筛选功能把「合同部门」的行过滤出来，再提取成员数据到ComboBox里。代码可以放在UserForm的Initialize事件里（窗体加载时自动执行）：

Private Sub UserForm_Initialize()
    Dim tbl As ListObject
    Dim filteredRows As Range
    Dim cell As Range
    
    ' 先清空ComboBox，避免重复加载数据
    Me.ComboBox1.Clear
    
    ' 引用你的表格（替换成你的工作表名称和表格名称）
    Set tbl = ThisWorkbook.Worksheets("员工数据").ListObjects("员工表")
    
    ' 移除表格已有的筛选状态，避免旧筛选影响结果
    tbl.AutoFilter.ShowAllData
    
    ' 给「部门」列设置筛选条件（替换成你的部门列名称）
    tbl.ListColumns("部门").Range.AutoFilter Field:=1, Criteria1:="合同部门"
    
    ' 获取筛选后的姓名列数据（替换成你的成员姓名列名称）
    On Error Resume Next ' 防止筛选后无数据导致报错
    Set filteredRows = tbl.ListColumns("姓名").DataBodyRange.SpecialCells(xlCellTypeVisible)
    On Error GoTo 0
    
    ' 如果有符合条件的数据，添加到ComboBox
    If Not filteredRows Is Nothing Then
        For Each cell In filteredRows
            Me.ComboBox1.AddItem cell.Value
        Next cell
    End If
    
    ' 移除筛选（可选，看你是否需要保留表格的筛选状态）
    tbl.AutoFilter.ShowAllData
End Sub

方案2：遍历表格行逐个判断（适合小数据量） #

如果你的表格数据不多，直接遍历每一行检查部门是否符合条件，逻辑更直观：

Private Sub UserForm_Initialize()
    Dim tbl As ListObject
    Dim row As ListRow
    
    ' 清空ComboBox
    Me.ComboBox1.Clear
    
    ' 引用你的表格
    Set tbl = ThisWorkbook.Worksheets("员工数据").ListObjects("员工表")
    
    ' 遍历表格的每一行数据
    For Each row In tbl.ListRows
        ' 判断当前行的部门列是否为「合同部门」（替换成你的部门列名称）
        If row.Range(tbl.ListColumns("部门").Index).Value = "合同部门" Then
            ' 将对应姓名添加到ComboBox（替换成你的姓名列名称）
            Me.ComboBox1.AddItem row.Range(tbl.ListColumns("姓名").Index).Value
        End If
    Next row
End Sub

关键注意事项 #

• 记得替换代码里的工作表名称、表格名称、部门列名称、姓名列名称为你自己的实际内容
• 确保部门名称的拼写完全一致（包括大小写、空格，比如「合同部门」和「 合同部门」会被视为不同值）
• 如果表格数据会动态更新，可以把填充代码单独做成一个子过程，在数据更新后手动调用重新加载ComboBox

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