如何在Excel中根据多单元格值填充指定单元格？附具体场景

公式方案（适合中小规模文件） #

先通过AND判断A2、B2是否为指定值，符合条件后用匹配函数提取对应E列值，直接在I2单元格输入公式后下拉即可：

适用于Excel 365/2021（XLOOKUP简洁版） #

=IF(AND(A2="指定值1",B2="指定值2"), XLOOKUP(1, (G:G=G2)*(K:K=K2), E:E, ""), "")

适用于旧版Excel（INDEX+MATCH兼容版） #

=IF(AND(A2="指定值1",B2="指定值2"), INDEX(E:E, MATCH(1, (G:G=G2)*(K:K=K2), 0)), "")

注意：旧版输入后需按Ctrl+Shift+Enter触发数组运算；超大文件建议缩小引用范围（比如G2:G100000代替G:G），避免卡顿。

公式优缺点：实时更新数据，无需额外操作；但超大规模文件（10万+行）可能出现计算卡顿。

宏（VBA）方案（适合超大文件） #

通过VBA批量处理，效率远高于公式，适合几十万行的超大文件：

1. 按Alt+F11打开VBA编辑器，插入模块，粘贴以下代码：

Sub FillIColumn()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Dim specificA As String, specificB As String
    
    ' 替换为你的A、B列特定值
    specificA = "指定值1"
    specificB = "指定值2"
    
    Set ws = ThisWorkbook.ActiveSheet
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    ' 关闭屏幕更新加速
    Application.ScreenUpdating = False
    
    For i = 2 To lastRow
        If ws.Cells(i, "A").Value = specificA And ws.Cells(i, "B").Value = specificB Then
            ' 匹配G、K列对应的E值，匹配不到则留空
            On Error Resume Next
            ws.Cells(i, "I").Value = ws.Evaluate("INDEX(E:E,MATCH(1,(G:G=" & ws.Cells(i, "G").Address & ")*(K:K=" & ws.Cells(i, "K").Address & "),0))")
            On Error GoTo 0
        Else
            ws.Cells(i, "I").Value = ""
        End If
    Next i
    
    Application.ScreenUpdating = True
    MsgBox "处理完成"
End Sub

2. 修改代码中specificA和specificB为你的实际特定值，运行宏即可批量填充I列。

宏优缺点：处理超大文件速度快，一次性完成；但需将文件保存为.xlsm格式，修改规则需调整代码。

选择建议 #

• 中小规模文件（<5万行）：优先用公式，操作简单且实时同步数据。
• 超大文件（5万行以上）：用宏方案，避免公式卡顿，提升处理效率。

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