多条件下使用VBA WorksheetFunction Xlookup的代码实现需求

以下是满足需求的VBA代码，实现以Result表D、E、F列为查询条件，匹配DataEntry表F、G、H列，返回DataEntry表I列内容至Result表G列：

Sub MultiConditionXLookup()
    Dim wsData As Worksheet, wsResult As Worksheet
    Dim lastRowData As Long, lastRowResult As Long
    Dim i As Long
    
    ' 指定目标工作表
    Set wsData = ThisWorkbook.Worksheets("DataEntry")
    Set wsResult = ThisWorkbook.Worksheets("Result")
    
    ' 获取两表数据区域的最后一行行号
    lastRowData = wsData.Cells(wsData.Rows.Count, "F").End(xlUp).Row
    lastRowResult = wsResult.Cells(wsResult.Rows.Count, "D").End(xlUp).Row
    
    ' 循环处理Result表的每一行（假设表头在第1行，数据从第2行开始）
    For i = 2 To lastRowResult
        ' 构建多条件匹配逻辑，调用XLOOKUP查找结果
        On Error Resume Next ' 处理无匹配项的报错
        wsResult.Cells(i, "G").Value = WorksheetFunction.XLookup( _
            1, _
            (wsData.Range("F2:F" & lastRowData) = wsResult.Cells(i, "D")) * _
            (wsData.Range("G2:G" & lastRowData) = wsResult.Cells(i, "E")) * _
            (wsData.Range("H2:H" & lastRowData) = wsResult.Cells(i, "F")), _
            wsData.Range("I2:I" & lastRowData), _
            "无匹配" ' 无匹配时的返回内容，可按需修改
        )
        On Error GoTo 0 ' 恢复默认错误处理
    Next i
End Sub

代码说明： #

• 先绑定DataEntry和Result工作表对象，简化后续代码引用
• 通过End(xlUp)获取数据区域最后一行，避免处理空行
• 多条件匹配逻辑：利用(条件1)*(条件2)*(条件3)生成匹配数组，三个条件同时满足时返回1，XLOOKUP通过查找1定位目标值
• 加入错误处理分支，防止无匹配项时代码中断，无匹配时的返回内容可自行调整（比如改为空值""）

批量公式填充版（适合大数据量场景） #

如果数据量较大，批量填充公式的效率更高，代码如下：

Sub MultiConditionXLookup_Formula()
    Dim wsResult As Worksheet
    Dim lastRowResult As Long
    
    Set wsResult = ThisWorkbook.Worksheets("Result")
    lastRowResult = wsResult.Cells(wsResult.Rows.Count, "D").End(xlUp).Row
    
    ' 批量填充XLOOKUP公式到Result表G列
    wsResult.Range("G2:G" & lastRowResult).Formula = _
        "=XLOOKUP(1,(DataEntry!F:F=D@)*(DataEntry!G:G=E@)*(DataEntry!H:H=F@),DataEntry!I:I,""无匹配"")"
    
    ' 可选：将公式转换为静态值
    ' wsResult.Range("G2:G" & lastRowResult).Value = wsResult.Range("G2:G" & lastRowResult).Value
End Sub

注意事项： #

• 如果数据起始行不是第2行，需修改代码中的行号参数
• 确保两表的对应列数据格式一致，避免因格式差异导致匹配失败

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