嘿，我明白你遇到的问题了！你在Excel里用LOOKUP(2,1/(A:A<>""),ROW(A:A))能完美找到最后非空单元格的行号，但转到VBA里直接照搬公式结构却报类型不匹配，这是因为VBA和工作表公式的运行环境有差异，我来给你拆解问题并给出几种靠谱的解决方案：

先说说你原来代码的问题 #

你写的Application.WorksheetFunction.Lookup(2, 1 / (Range("A:A") <> ""), Range("A:A").Row)有两个关键错误：

1. Range("A:A").Row不对：这个属性只会返回A列第一行的行号（也就是1），而不是整个A列的行号数组，你需要用ROW(Range("A:A"))来生成对应所有行的行号数组。
2. VBA直接处理数组的限制：在工作表里1/(A:A<>"")会自动生成一个由1和#DIV/0!组成的数组，但在VBA中直接这样写，Range("A:A")<>""返回的是Variant数组，再做除法运算后，WorksheetFunction.Lookup无法正确识别这种数组结构，导致类型不匹配。

解决方案1：用Evaluate复刻工作表公式逻辑 #

最简单的方式是用VBA的Evaluate方法直接运行你熟悉的Excel公式字符串，它会完全模拟工作表的计算环境，完美复刻原公式的效果：

Dim nextrow As Long
' 注意公式里的双引号要转义（用两个双引号表示一个）
nextrow = Evaluate("LOOKUP(2,1/(A:A<>""""),ROW(A:A))")

这种方法的好处是你不用改变自己熟悉的公式逻辑，直接复用即可。

解决方案2：用VBA原生的Find方法（更高效） #

如果数据量很大，遍历整个列的LOOKUP会有点慢，推荐用VBA自带的Find方法，从下往上查找第一个非空单元格，速度更快：

Dim lastCell As Range
Dim nextrow As Long

' 从A列最后一行往上找第一个非空单元格
Set lastCell = Range("A:A").Find(What:="*", _
    SearchDirection:=xlPrevious, _
    LookIn:=xlValues) ' 只查找单元格的值，不包含格式等

' 处理A列全空的情况，避免报错
If Not lastCell Is Nothing Then
    nextrow = lastCell.Row
Else
    nextrow = 1 ' 如果A列全空，默认从第一行开始
End If

这个方法的优势是效率更高，而且还能处理A列完全为空的边界情况，不会报错。

额外提示：避免整列引用优化性能 #

不管用哪种方法，尽量不要直接引用整列A:A，可以限定一个合理的范围，比如Range("A1:A1000")，或者用UsedRange来缩小范围，这样能提升代码运行速度，尤其是当表格数据很多的时候。

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