如何在Excel中实现多化学品检索并返回对应供应商匹配结果

方案1：纯公式实现（优先推荐，适合Excel 365/2021及以上版本） #

你提到的单值FILTER无法匹配多个检索项的问题，可以通过嵌套COUNTIF/XMATCH判断实现多值匹配：

• 假设参数如下，可根据你的实际表格调整：
  • 原始数据集存放在Sheet2的A2:C1000区域，A列为化学品名称、B列为供应商信息、C列为原材料相关信息
  • 用户自定义检索列表放在当前表的E2:E20区域
• 结果输出区域任意空白单元格输入以下公式即可自动溢出所有匹配结果，检索列表修改后结果会实时更新：

=FILTER(Sheet2!A2:C1000,COUNTIF(E2:E20,Sheet2!A2:A1000)>0,"未查询到匹配结果")

该方案无需启用宏，维护成本极低，满足绝大多数场景需求

方案2：VBA事件自动触发实现（适合低版本Excel/有特殊匹配规则场景） #

无需手动点击按钮运行宏，使用Worksheet_Change事件即可实现检索列表修改后自动更新结果，操作步骤如下：

1. 按Alt+F11打开VBA编辑器，在左侧工程列表中双击你存放检索列表的工作表
2. 在弹出的代码窗口中粘贴以下代码，调整代码内的区域参数匹配你的实际表格即可：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 仅当修改的单元格在检索列表区域E2:E20时触发运行
    If Not Intersect(Target, Me.Range("E2:E20")) Is Nothing Then
        Dim srcSht As Worksheet, lastRow As Long, resArr()
        Dim i As Long, k As Long, searchRng As Range
        Set srcSht = ThisWorkbook.Sheets("Sheet2") ' 原始数据所在工作表
        Set searchRng = Me.Range("E2:E20") ' 检索列表区域
        lastRow = srcSht.Cells(srcSht.Rows.Count, "A").End(xlUp).Row
        ReDim resArr(1 To lastRow, 1 To 3) ' 3对应原始数据的列数，可自行调整
        
        ' 遍历原始数据匹配检索项
        For i = 2 To lastRow
            If WorksheetFunction.CountIf(searchRng, srcSht.Cells(i, "A").Value) > 0 Then
                k = k + 1
                resArr(k, 1) = srcSht.Cells(i, "A").Value
                resArr(k, 2) = srcSht.Cells(i, "B").Value
                resArr(k, 3) = srcSht.Cells(i, "C").Value
            End If
        Next i
        
        ' 清空旧结果并输出新结果
        Me.Range("G2:I" & Me.Rows.Count).ClearContents ' 结果输出区域
        If k > 0 Then Me.Range("G2").Resize(k, 3).Value = resArr
    End If
End Sub

该方案需要保存文件为xlsm启用宏格式，可支持模糊匹配、多条件组合等自定义检索规则

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