VBA中使用XLookup多条件查询Excel表格填充用户窗体文本框报错

单条件正常但多条件报错，核心问题通常是字符串拼接时的引号转义错误或多条件区域的构造方式不对。以下是两种可直接复用的正确写法：

方法1：数组式多条件查询（推荐，无引号问题） #

直接将两个条件区域组合为数组，避免字符串拼接的格式问题：

Private Sub cmdSearch_Click()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Worksheets("你的数据表名") ' 替换为实际表名
    
    ' 获取窗体输入的两个条件
    Dim cond1 As String, cond2 As String
    cond1 = Me.txtCond1.Value
    cond2 = Me.txtCond2.Value
    
    ' 执行XLOOKUP多条件查询
    Dim res As Variant
    res = Application.XLookup( _
        Array(cond1, cond2), _
        Array(ws.Columns("A"), ws.Columns("B")), _
        ws.Columns("C"), _
        "无匹配结果" ' 无数据时的返回值
    )
    
    ' 填充到目标文本框
    Me.txtResult.Value = res
End Sub

方法2：字符串拼接式查询（修正引号格式） #

如果必须用&拼接条件，需注意VBA中双引号要用两个双引号转义，同时确保查找区域是两列的拼接结果：

Private Sub cmdSearch_Click()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Worksheets("你的数据表名")
    
    Dim cond1 As String, cond2 As String
    cond1 = Me.txtCond1.Value
    cond2 = Me.txtCond2.Value
    
    ' 拼接条件，若条件是文本需包裹转义后的双引号
    Dim lookupVal As String
    lookupVal = """" & cond1 & """" & "&" & """" & cond2 & """"
    
    ' 执行查询，查找区域用数组公式拼接两列
    Dim res As Variant
    res = Application.Evaluate("XLOOKUP(" & lookupVal & ", A:A&B:B, C:C, ""无匹配结果"")")
    
    Me.txtResult.Value = res
End Sub

关键注意事项 #

• 确保查找区域与返回区域的行数完全一致，否则会因维度不匹配报错
• 若条件为数字类型，无需添加引号，直接使用数值变量即可
• 检查工作表名称、单元格列标是否与实际数据对应

内容的提问来源于stack exchange，提问作者Sally Akid