VBA实现多条件Vlookup查询并将返回数组插入ComboBox方法

该需求可完全通过VBA实现。原生VLookup函数的设计逻辑就是仅返回查询范围内首个匹配的结果，天然不支持多结果返回，不需要局限于该函数，可以通过范围遍历逐行匹配的方式，收集所有符合条件的值后加载到ComboBox下拉选项中。

测试数据 #

你当前使用的单值查询代码仅能返回第一个匹配项RBI，无法满足多结果提取需求：

Application.WorksheetFunction.VLookup("Marlins", Worksheets("Metadata").Range("A2:B5"), 2, False)

实现代码 #

以下代码可直接适配你的需求，运行后会自动将所有匹配Marlins的Value值加载为ComboBox下拉选项：

Sub LoadMatchResultToComboBox()
    Dim metaSheet As Worksheet
    Dim searchKeyword As String
    Dim lastRow As Long
    Dim i As Long
    Dim targetComboBox As ComboBox
    
    ' 基础配置 可根据实际场景修改
    Set metaSheet = ThisWorkbook.Worksheets("Metadata")
    searchKeyword = "Marlins"
    ' 替换为你实际的ComboBox控件，若控件在用户窗体内则修改为窗体下的控件引用
    Set targetComboBox = Sheet1.ComboBox1
    
    ' 清空控件原有选项
    targetComboBox.Clear
    
    ' 动态获取A列最后一行有效数据，避免固定范围漏读新增数据
    lastRow = metaSheet.Cells(metaSheet.Rows.Count, "A").End(xlUp).Row
    
    ' 逐行遍历匹配
    For i = 2 To lastRow
        If metaSheet.Cells(i, "A").Value = searchKeyword Then
            ' 匹配成功则将对应B列的值加入下拉选项
            targetComboBox.AddItem metaSheet.Cells(i, "B").Value
        End If
    Next i
End Sub

使用说明 #

• 运行代码后，针对你提供的测试数据，ComboBox下拉列表将按匹配顺序展示RBI、Score、ABV三个选项，符合预期要求
• 如果需要对结果去重，可在AddItem前增加判断逻辑，校验待添加的值是否已存在于ComboBox现有列表中
• 如果ComboBox放置在UserForm窗体中，仅需修改控件引用部分的代码即可，核心遍历匹配逻辑无需调整

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