如何在VBA的WorksheetFunction.VLookup第二个参数传入IF条件？

方法1：直接用Application.Evaluate执行完整工作表公式 #

这种方法最直接，把你在工作表中能用的公式原封不动（转义双引号后）传给Application.Evaluate，它会像Excel工作表一样解析执行这个公式：

Sub test1()
    Dim x As Variant
    ' 转义工作表公式中的双引号，每个""替换为""""
    x = Application.Evaluate("=VLOOKUP(""Text Test"",IF(IF(Sheet2!R6C2<0.91,""< 0,91"","">=0,91"")='pril20'!R6C2:R21C2,'pril20'!R6C1:R21C3,""""),3,0)")
    
    ' 处理查找不到的情况，避免报错
    If Not IsError(x) Then
        MsgBox x
    Else
        MsgBox "未找到匹配的结果"
    End If
End Sub

方法2：在VBA中拆解IF逻辑，再执行VLOOKUP #

把工作表公式里的嵌套IF逻辑用VBA的流程控制实现，先生成匹配的查找区域，再调用VLOOKUP：

Sub test2()
    Dim lookupVal As String
    Dim matchCriteria As String
    Dim lookupArr As Variant
    Dim result As Variant
    
    lookupVal = "Text Test"
    
    ' 实现内层IF逻辑：判断Sheet2!R6C2的值，确定匹配条件
    If Sheet2.Cells(6, 2).Value < 0.91 Then
        matchCriteria = "< 0,91"
    Else
        matchCriteria = ">=0,91"
    End If
    
    ' 生成符合条件的查找数组（对应工作表外层IF的结果）
    lookupArr = Application.Evaluate("IF('pril20'!R6C2:R21C2=""" & matchCriteria & """,'pril20'!R6C1:R21C3,"""")")
    
    ' 用Application.VLookup执行查找，找不到时返回错误值而非抛出异常
    result = Application.VLookup(lookupVal, lookupArr, 3, False)
    
    If Not IsError(result) Then
        MsgBox result
    Else
        MsgBox "未找到匹配的结果"
    End If
End Sub

原代码报错原因 #

VBA中的WorksheetFunction.VLookup不支持直接传入工作表函数（比如嵌套IF）作为参数，核心原因是：

• 工作表的IF是函数，而VBA的If是流程控制语句，语法规则完全不同
• WorksheetFunction系列方法要求参数是VBA能直接识别的对象、值或数组，无法解析工作表风格的函数表达式

用Application.Evaluate可以让Excel像处理工作表公式一样解析字符串中的表达式，完美兼容你原来的工作表逻辑；而拆解逻辑的方式则更符合VBA的编码习惯，便于后续调试和修改。

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