VBA中LOOKUP公式触发类型不匹配错误，Excel中正常运行求助

我来帮你分析这个问题——这个公式在Excel单元格里正常运行，但到VBA里就抛出类型不匹配错误，核心原因是VBA和Excel单元格对数组运算的处理逻辑存在差异，咱们一步步拆解：

问题根源 #

你原代码里的--Len(Range("L23:L9000")) > 0在VBA中的运算逻辑和Excel单元格里有微妙区别：

• 在Excel单元格中，公式会自动识别数组运算：先执行LEN(L23:L9000)>0生成布尔数组，再用--转成数值数组（非空单元格对应1，空单元格对应0），最后1/数组得到非空位置为1、空位置为#DIV/0!的数组，Lookup就能正常匹配到最后一个非空单元格的行号。
• 但在VBA中，--Len(Range("L23:L9000"))会先把每个单元格的长度转成数值，再和0做比较，虽然逻辑结果看似一致，但WorksheetFunction.Lookup对参数的数组格式要求更严格，这种写法没有正确生成Lookup需要的数组类型，因此触发类型不匹配错误。

解决方案 #

给你几个可行的修复方案，按推荐程度排序：

1. 用Evaluate直接调用Excel公式引擎（最省心）

Evaluate方法完全复刻Excel单元格的公式逻辑，直接把你在单元格里能用的公式原封不动放进去即可：

LastRow = Application.Evaluate("LOOKUP(2, 1/(LEN(L23:L9000)>0), ROW(L23:L9000))")

2. 修正WorksheetFunction的参数写法

如果坚持用WorksheetFunction，需要确保数组部分正确构造，把条件完整括起来再做转换：

Dim lenArray As Variant
lenArray = Application.WorksheetFunction.Len(Range("L23:L9000"))
Dim boolArray As Variant
boolArray = (lenArray > 0)
Dim numArray As Variant
numArray = --boolArray ' 将布尔数组转成数值数组
LastRow = Application.WorksheetFunction.Lookup(2, 1 / numArray, Application.WorksheetFunction.Row(Range("L23:L9000")))

3. 更高效的替代方案：用End(xlUp)

其实找最后一行非空单元格，VBA里有更简单高效的方法，没必要用Lookup：

LastRow = Range("L9000").End(xlUp).Row

这个方法直接定位最后一个非空单元格的行号，性能比Lookup好很多，尤其是处理大区域的时候。

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