基于两列匹配值实现跨表格数据提取的方法咨询

一、Excel公式实现 #

1. XLOOKUP函数（推荐给Excel 365/2021及以后版本用户） #

假设表格1的数据在A1:C10（A、B列是匹配项，C列是要提取的数值），表格2的匹配列是D1:E10，要在F列填充结果。在F2单元格输入：

=XLOOKUP(D2&"|"&E2,A$2:A$10&"|"&B$2:B$10,C$2:C$10,"无匹配")

下拉填充整列即可。这里用|当分隔符是为了避免两列内容合并后出现歧义（比如A列"ca"+B列"tlion"和A列"cat"+B列"lion"合并后都是"catlion"），你也可以换成其他不会出现在内容里的符号。"无匹配"是没找到对应值时显示的内容，可自行修改。

2. INDEX+MATCH组合（兼容所有Excel版本） #

如果用的是旧版Excel，没有XLOOKUP，就用这个组合。同样在F2单元格输入：

=IFERROR(INDEX(C$2:C$10,MATCH(D2&"|"&E2,A$2:A$10&"|"&B$2:B$10,0)),"无匹配")

下拉填充即可。IFERROR是用来把找不到匹配时的#N/A错误换成自定义内容，不需要的话可以去掉，直接保留INDEX(...)部分。

二、VBA代码实现（适合批量处理或大数据集） #

如果数据量很大，或者需要自动重复执行这个操作，用VBA更高效。代码如下：

Sub MatchAndFillData()
    Dim wsTable1 As Worksheet, wsTable2 As Worksheet
    Dim lastRow1 As Long, lastRow2 As Long
    Dim row2 As Long, row1 As Long
    Dim keyTable2 As String, keyTable1 As String
    
    ' 替换成你实际的工作表名称
    Set wsTable1 = ThisWorkbook.Worksheets("表格1")
    Set wsTable2 = ThisWorkbook.Worksheets("表格2")
    
    ' 获取两个表格的最后一行
    lastRow1 = wsTable1.Cells(wsTable1.Rows.Count, "A").End(xlUp).Row
    lastRow2 = wsTable2.Cells(wsTable2.Rows.Count, "D").End(xlUp).Row
    
    ' 遍历表格2的每一行
    For row2 = 2 To lastRow2
        ' 生成表格2当前行的匹配键（加分隔符）
        keyTable2 = wsTable2.Cells(row2, "D").Value & "|" & wsTable2.Cells(row2, "E").Value
        
        ' 在表格1中查找匹配
        For row1 = 2 To lastRow1
            keyTable1 = wsTable1.Cells(row1, "A").Value & "|" & wsTable1.Cells(row1, "B").Value
            If keyTable1 = keyTable2 Then
                ' 找到匹配后填充数值
                wsTable2.Cells(row2, "F").Value = wsTable1.Cells(row1, "C").Value
                Exit For ' 找到就跳出内层循环，不用继续找
            End If
        Next row1
    Next row2
    
    MsgBox "填充完成！"
End Sub

使用步骤：

1. 打开Excel按Alt+F11打开VBA编辑器；
2. 右键点击左侧的工作簿，选择「插入」→「模块」；
3. 把上面的代码粘贴进去，根据你的实际工作表名称、列号修改参数（比如表格2的匹配列是A、B，就把代码里的"D"、"E"改成"A"、"B"）；
4. 按F5运行代码，或者回到Excel界面，通过「开发工具」→「宏」选择这个宏运行。

内容的提问来源于stack exchange，提问作者Filip Frątczak