如何在另一工作表匹配两个值并返回对应行指定单元格至原工作表？

阿华AIGC实验室

2026-5-6

双条件匹配实现方案：公式+VBA两种思路

嘿，我来帮你搞定这个双条件匹配的需求！你要的是在Sheet1的C2单元格，返回Sheet2中同时满足「A列值等于Sheet1 A2」和「D列值等于Sheet1 D2」的对应行C列内容，下面给你两种实用的实现方式，按需选就行～

一、公式方案（不用写代码，简单直接）

如果你不想碰VBA，用Excel自带的公式就能解决，推荐用INDEX+MATCH组合，比双重VLOOKUP或者嵌套IF靠谱多了：

1. INDEX+MATCH组合（推荐，效率更高）

在Sheet1的C2单元格输入以下公式：

=INDEX(Sheet2!$C$1:$C$999,MATCH(1,(Sheet2!$A$1:$A$999=Sheet1!A2)*(Sheet2!$D$2:$D$999=Sheet1!D2),0))

注意：如果你用的是Excel 2019及更早版本，输入完公式后要按 Ctrl+Shift+Enter 触发数组计算；Excel 365/2021直接回车就行。
小提醒：你提到Sheet2的D列是D2:D999，而A列是A1:A999，这意味着A1对应D2、A2对应D3……是错位匹配？如果是笔误，应该是同一行匹配（A1对应D1、A2对应D2），那把公式里的Sheet2!$D$2:$D$999改成Sheet2!$D$1:$D$999就行。

2. 双重条件IF（不推荐，大数据量会卡）

如果非要用IF嵌套，也能实现，但数据多了会很慢，公式如下（同样是数组公式，老版本要按三键）：

=IFERROR(INDEX(Sheet2!$C$1:$C$999,MIN(IF((Sheet2!$A$1:$A$999=Sheet1!A2)*(Sheet2!$D$2:$D$999=Sheet1!D2),ROW(Sheet2!$C$1:$C$999),9999))),"")

二、VBA方案（适合批量或自定义需求）

如果你更倾向用VBA实现，这里有两种思路：自定义函数（像公式一样调用）和直接执行的宏。

1. 自定义函数（灵活好用，可批量拖拽）

这个方法可以让你像用普通公式一样，在单元格里调用双条件匹配：

按 Alt+F11 打开VBA编辑器；
右键点击左侧的工作簿名称 → 插入 → 模块；
把下面的代码粘贴进去：

Function DoubleLookup(targetA As Variant, targetD As Variant, lookupColA As Range, lookupColD As Range, returnCol As Range) As Variant
    Dim i As Long
    ' 遍历匹配范围，注意列的行对应关系
    For i = 1 To lookupColA.Rows.Count
        ' 这里对应你说的A1:A999匹配D2:D999（错位一行），如果要同一行匹配，把lookupColD.Cells(i+1,1)改成lookupColD.Cells(i,1)
        If lookupColA.Cells(i, 1).Value = targetA And lookupColD.Cells(i + 1, 1).Value = targetD Then
            DoubleLookup = returnCol.Cells(i, 1).Value
            Exit Function ' 找到匹配就退出，提升效率
        End If
    Next i
    ' 没找到匹配返回空值
    DoubleLookup = ""
End Function

返回Sheet1的C2单元格，输入公式：

=DoubleLookup(A2,D2,Sheet2!$A$1:$A$999,Sheet2!$D$2:$D$999,Sheet2!$C$1:$C$999)

要是需要批量处理，直接把C2的公式往下拖拽就行～

2. 直接执行的宏（单步处理C2）

如果你只需要一次性填充Sheet1的C2，写个简单的宏就行：

同样打开VBA编辑器，插入模块，粘贴代码：

Sub FillC2()
    Dim ws1 As Worksheet, ws2 As Worksheet
    Dim targetA As Variant, targetD As Variant
    Dim matchRow As Long
    
    Set ws1 = ThisWorkbook.Sheets("Sheet1")
    Set ws2 = ThisWorkbook.Sheets("Sheet2")
    
    ' 获取Sheet1要匹配的值
    targetA = ws1.Range("A2").Value
    targetD = ws1.Range("D2").Value
    
    ' 遍历Sheet2的A1:A999，对应D2:D999
    For matchRow = 1 To 999
        If ws2.Range("A" & matchRow).Value = targetA And ws2.Range("D" & matchRow + 1).Value = targetD Then
            ws1.Range("C2").Value = ws2.Range("C" & matchRow).Value
            MsgBox "匹配成功！已填充C2单元格"
            Exit Sub
        End If
    Next matchRow
    
    ' 没找到匹配的提示
    MsgBox "未找到符合条件的记录，C2已清空"
    ws1.Range("C2").Value = ""
End Sub