VBA中调用IFERROR嵌套VLOOKUP返回#VALUE!错误求解

你遇到的返回#VALUE!错误核心原因有3个：

• VBA中调用VLookup时，第二个查找区域参数不支持直接传入工作表公式格式的地址字符串（也就是你写的"Header!A:F"），该参数要求传入实际的Range对象或者值数组，传入字符串时VBA无法解析，直接返回值错误。
• 代码存在变量声明不匹配问题：开头声明的变量是items，后续实际调用的变量是item；同时wb、SR两个变量未做显式声明，开启Option Explicit的场景下会直接触发编译错误。
• 函数调用逻辑错误：如果给VLookup加WorksheetFunction前缀，匹配失败时会直接抛出VBA运行时错误，不会把错误值传递给外层的IFERROR做处理，自然无法返回预期查询结果。

• 所有变量、对象显式声明赋值，查找区域必须定义为实际的Range对象，禁止直接传地址字符串。
• 调用VLookup时不带WorksheetFunction前缀，这种调用方式匹配失败时会返回Excel错误值，可配合IsError判断或者IFERROR正常捕获处理。

修正后的可运行代码如下：

Option Explicit

Sub subname()
    Dim wb As Workbook
    Dim SR As Long
    Dim item As Variant
    Dim lookupRng As Range
    Dim calcResult As Variant
    
    ' 按实际业务逻辑给wb、SR赋值，以下为示例赋值
    Set wb = ThisWorkbook
    SR = 2 ' 示例取第2行数据
    
    ' 定义查找区域为实际Range对象
    Set lookupRng = wb.Sheets("Header").Range("A:F")
    
    item = wb.Sheets("EmpCal").Range("D" & SR).Value
    MsgBox item
    
    ' 写法1：用VBA内置判断处理错误
    calcResult = Application.VLookup(item, lookupRng, 5, 0)
    wb.Sheets("EmpCal").Range("E" & SR).Value = IIf(IsError(calcResult), "", calcResult)
    
    ' 写法2：嵌套IFERROR的写法，和工作表公式逻辑一致
    ' wb.Sheets("EmpCal").Range("E" & SR).Value = Application.IfError(Application.VLookup(item, lookupRng, 5, 0), "")
End Sub

注意：Application.VLookup和Application.WorksheetFunction.VLookup的错误处理逻辑完全不同，前者返回错误值可被后续逻辑捕获，后者直接抛出运行时错误中断代码，做错误捕获时优先选择前者。

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