如何一次性对Excel所有工作表执行VLookup匹配并提取对应描述

方案1：Power Query（全版本兼容，无需代码，操作最简单） #

• 打开ExcelFile1，点击「数据」选项卡 → 「获取数据」→ 「自文件」→ 「自工作簿」，选择本地存储的ExcelFile2
• 弹出的导航器窗口勾选「选择多项」，选中ExcelFile2里所有需要参与匹配的工作表，点击「转换数据」进入Power Query编辑器
• 在编辑器中点击「追加查询」→ 「将查询追加为新查询」，选择所有工作表的查询项，把50张表的内容合并为一张总表
• 关闭Power Query并上载合并后的总表到ExcelFile1的空白工作表，仅需要执行一次VLOOKUP/INDEX+MATCH即可批量完成所有值的描述匹配
• 优势：操作门槛低，10分钟内可完成全流程，后续ExcelFile2数据更新时仅需要刷新查询即可自动重算匹配结果

方案2：自定义VBA函数（适合需要公式直接调用的场景） #

如果需要在单元格直接用公式完成跨表匹配，可以自定义遍历函数：

Function 多表查找(查找值 As Variant, 查找列号 As Integer, 返回列号 As Integer) As Variant
    Dim ws As Worksheet
    Dim 匹配单元格 As Range
    ' 遍历ExcelFile2所有工作表
    For Each ws In Workbooks("ExcelFile2.xlsx").Worksheets
        Set 匹配单元格 = ws.Columns(查找列号).Find(What:=查找值, LookIn:=xlValues, LookAt:=xlWhole)
        If Not 匹配单元格 Is Nothing Then
            多表查找 = ws.Cells(匹配单元格.Row, 返回列号).Value
            Exit Function ' 匹配到结果直接退出，无需遍历剩余工作表
        End If
    Next ws
    ' 无匹配结果返回空值
    多表查找 = ""
End Function

• 按Alt+F11打开VBA编辑器，插入模块后粘贴上述代码，保存ExcelFile1为.xlsm启用宏格式
• 在需要输出描述的单元格输入=多表查找(A2,1,2)即可直接返回匹配结果，参数依次为匹配值、查找列序号、返回值列序号

方案3：单条数组公式（Excel 365/2021专属） #

高版本Excel支持直接用动态数组公式完成跨表合并匹配，不需要额外操作：
=XLOOKUP(A2,TOCOL(ExcelFile2.xlsx!Sheet1:Sheet50!A:A),TOCOL(ExcelFile2.xlsx!Sheet1:Sheet50!B:B),"未找到匹配项",0)
其中Sheet1:Sheet50可以根据ExcelFile2实际的工作表范围调整，公式会自动提取所有目标工作表的A、B列内容完成匹配。

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