IsError返回True却未执行对应If分支，VBA代码报错1004求助

问题根源 #

你的代码使用Application.WorksheetFunction.XLookup时，一旦找不到匹配项，这个方法会直接抛出运行时错误1004，根本不会让IsError函数有机会判断表达式结果。你调试时看到的= True是假象——错误在表达式计算阶段就已触发，后续条件判断逻辑根本没机会执行。

修复方案 #

改用Application.XLookup（去掉WorksheetFunction前缀），这个版本的XLookup在未匹配时会返回错误值（而非直接报错），IsError就能正常捕获到这个错误值，从而执行If分支的逻辑。同时可以提取重复参数，减少代码冗余。

优化后的代码 #

Dim lookupValue As Variant
Dim lookupRange As Range
Dim returnRange As Range
Dim xlookupResult As Variant

' 提取重复参数，避免重复书写
lookupValue = WorksheetFunction.Text(Target, "General")
Set lookupRange = Sheets("tblItem").Columns(2)
Set returnRange = Sheets("tblItem").Columns(3)

' 使用Application.XLookup获取结果
xlookupResult = Application.XLookup(lookupValue, lookupRange, returnRange)

If IsError(xlookupResult) Then
    Target.Offset(0, 1) = InputBox("Description?")
    Target.Offset(0, 2) = InputBox("Project Number?")
    Target.Offset(0, 3) = InputBox("Brand?")
    Target.Offset(0, 4) = InputBox("Brand Item Number?")
    Target.Offset(0, 5) = InputBox("Unit Cost?")
    Target.Offset(0, 6) = InputBox("Unit Weight?")
    Target.Offset(0, 7) = InputBox("Weight's UoM?")
Else
    Target.Offset(0, 1) = xlookupResult
End If

额外说明 #

• Application.XLookup和WorksheetFunction.XLookup的核心区别：前者容错性更强，未匹配时返回错误值；后者校验严格，未匹配直接抛出运行时错误。
• 若需指定匹配模式（如精确匹配），可在XLookup中添加对应参数，例如：Application.XLookup(lookupValue, lookupRange, returnRange, , 0)（最后一个0代表精确匹配）。

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