Excel VBA：从表格筛选数据并填充至UserForm的ComboBox

问题修正与优化说明 #

原代码存在几个关键问题：

• Datarw的类型未声明完整，正确类型应为ListRow
• 无需将结果写入表格第三列，直接收集匹配数据更高效
• 遍历所有行效率偏低，使用表格自带的AutoFilter功能更快捷

修改后的完整代码 #

'匹配源登录号与其子登录号
Public Sub GetSourceAcc()
    Dim Tbl As ListObject
    Dim filterCol As ListColumn
    Dim dataCol As ListColumn
    Dim filteredRange As Range
    
    '绑定目标表格
    Set Tbl = Sheet5.ListObjects("Active_Accessions")
    '指定筛选列（第二列，拉丁名）和数据列（第一列，登录号）
    Set filterCol = Tbl.ListColumns(2)
    Set dataCol = Tbl.ListColumns(1)
    
    '清空ComboBox现有内容
    Me.cmbxSourceAcc.Clear
    
    '先取消表格已有的筛选（如果存在）
    If Tbl.AutoFilter.FilterMode Then
        Tbl.AutoFilter.ShowAllData
    End If
    
    '筛选第二列匹配选中的拉丁名
    filterCol.Range.AutoFilter Field:=1, Criteria1:=Me.cmbxLatinName.Value
    
    '获取筛选后的第一列数据范围（排除表头）
    On Error Resume Next '防止无匹配结果时出错
    Set filteredRange = dataCol.DataBodyRange.SpecialCells(xlCellTypeVisible)
    On Error GoTo 0
    
    '如果有匹配结果，填充到ComboBox
    If Not filteredRange Is Nothing Then
        Me.cmbxSourceAcc.List = filteredRange.Value
        Me.cmbxSourceAcc.ListIndex = 0 '默认选中第一项
    End If
    
    '取消筛选，恢复表格显示
    Tbl.AutoFilter.ShowAllData
End Sub

代码关键点解释 #

1. 变量类型修正：明确声明相关对象类型，避免类型模糊导致的错误
2. 高效筛选：使用AutoFilter替代逐行遍历，大幅提升处理速度，尤其是数据量大时
3. 避免冗余操作：直接提取筛选后的登录号数据填充ComboBox，无需额外写入表格第三列
4. 错误处理：加入防错机制，避免无匹配结果时代码报错
5. 状态恢复：操作完成后取消表格筛选，避免影响后续表格使用

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