如何让VLOOKUP返回空白单元格而非0？VBA代码适配求助

问题出在原公式仅通过IFERROR处理无匹配的情况，但未对匹配到的空白单元格（Excel会自动将空单元格转为0）做判断。需要在IFERROR内部嵌套IF逻辑，同时注意给VLOOKUP加上精确匹配参数FALSE（避免近似匹配引发的意外结果）。

方案1：兼容所有Excel版本（重复VLOOKUP） #

修改VBA中生成公式的代码行，替换为以下内容：

ActiveCell.Value = "=IFERROR(IF(OR(VLOOKUP(" & Range("G2").Address(0, 0) & ",Previous_OnPrem!A:J, " & foundCell.Column & ",FALSE)="""", VLOOKUP(" & Range("G2").Address(0, 0) & ",Previous_OnPrem!A:J, " & foundCell.Column & ",FALSE)=0),"""", VLOOKUP(" & Range("G2").Address(0, 0) & ",Previous_OnPrem!A:J, " & foundCell.Column & ",FALSE)),"""")"

逻辑说明：

• 先通过VLOOKUP精确查找目标值
• 用OR判断结果是否为空字符串或0，满足则返回空白
• 最后用IFERROR捕获无匹配的情况，同样返回空白

方案2：高效版（使用LET函数，适用于Excel 365/2021及以上） #

如果你的Excel版本支持LET函数，可以只执行一次VLOOKUP，提升大数据量下的运行效率：

ActiveCell.Value = "=IFERROR(LET(x, VLOOKUP(" & Range("G2").Address(0, 0) & ",Previous_OnPrem!A:J, " & foundCell.Column & ",FALSE), IF(OR(x="""", x=0), """", x)), """")"

逻辑说明：

• 用LET将VLOOKUP的结果赋值给变量x，避免重复计算
• 对x进行空值/0值判断，返回对应结果
• 同样用IFERROR处理无匹配场景

完整修改后的VBA代码 #

Dim prevSht As Worksheet
Dim foundCell As Range
Dim foundCol As Long
Dim findStr As String
Dim findRng As Range

Set prevSht = Worksheets("Previous_OnPrem")
findStr = "Date"
Set findRng = prevSht.Range("A:J")

Set foundCell = findRng.Find(What:=findStr, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)

' 替换为方案1或方案2的代码行
ActiveCell.Value = "=IFERROR(IF(OR(VLOOKUP(" & Range("G2").Address(0, 0) & ",Previous_OnPrem!A:J, " & foundCell.Column & ",FALSE)="""", VLOOKUP(" & Range("G2").Address(0, 0) & ",Previous_OnPrem!A:J, " & foundCell.Column & ",FALSE)=0),"""", VLOOKUP(" & Range("G2").Address(0, 0) & ",Previous_OnPrem!A:J, " & foundCell.Column & ",FALSE)),"""")"
ActiveCell.AutoFill Destination:=Range(ActiveCell.Address & ":" & "A" & RowCount)

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