如何在Excel VBA中实现多条件XLOOKUP查询功能

正确实现逻辑 #

Excel工作表公式中两个范围直接用&拼接属于隐式数组运算，会自动逐行拼接两个范围的单元格内容生成新数组，而VBA的&运算符不支持对多单元格Range对象直接做此类逐元素运算，需要手动构造拼接后的查找数组再调用XLookup。

修改后的可运行代码 #

Sub xlookup_test()
    Dim Lookup_Value_1 As String
    Lookup_Value_1 = "My Document"
    Dim Lookup_Value_2 As String
    Lookup_Value_2 = "Sales"
    
    ' 拼接查找值，可插入特殊分隔符避免匹配歧义，例: Lookup_Value_1 & "||" & Lookup_Value_2
    Dim CombineLookup As String
    CombineLookup = Lookup_Value_1 & Lookup_Value_2
    
    Dim Search_List_1 As Range
    Set Search_List_1 = Document_Control.Range("DC_Document_Type")
    Dim Search_List_2 As Range
    Set Search_List_2 = Document_Control.Range("DC_Document_Name")
    Dim Return_List As Range
    Set Return_List = Document_Control.Range("DC_Document_ID")
    
    ' 读取搜索区域内容到数组
    Dim arr1 As Variant, arr2 As Variant
    arr1 = Search_List_1.Value
    arr2 = Search_List_2.Value
    
    ' 校验两个搜索区域行数一致
    If UBound(arr1, 1) <> UBound(arr2, 1) Then
        MsgBox "两个搜索区域行数不匹配，无法执行多条件查询"
        Exit Sub
    End If
    
    ' 构造拼接后的查找数组
    Dim arrConcat As Variant
    ReDim arrConcat(1 To UBound(arr1, 1), 1 To 1)
    Dim i As Long
    For i = 1 To UBound(arr1, 1)
        ' 对应查找值的拼接规则，加分隔符此处也要加
        arrConcat(i, 1) = arr1(i, 1) & arr2(i, 1)
    Next
    
    ' 调用XLookup，用Application前缀避免匹配失败直接抛运行时错误
    Dim Return_Value As Variant
    Return_Value = Application.XLookup(CombineLookup, arrConcat, Return_List.Value)
    
    ' 校验匹配结果
    If IsError(Return_Value) Then
        Debug.Print "未找到匹配项"
    Else
        Debug.Print Return_Value
    End If
End Sub

注意事项 #

• 若需避免拼接歧义，可在查找值和数组元素拼接时插入两个字段都不会出现的特殊分隔符（如||、#等）
• 如果需要更多查询条件，只需要对应增加搜索数组、查找值的拼接逻辑即可
• 该方案完全基于VBA原生逻辑和WorksheetFunction调用，无需使用Evaluate方法

内容的提问来源于stack exchange，提问作者Benjamin Walker