Question

请问如何用excel宏程序返回某一列中最后一个非空单元格所在的行数？

一定要用宏来实现，不是excel函数

Answer 1

a=1
i=1
do while a = 1
if cells(i,1),value="" then
a=0
else
i=i+1
end if
loop
Max_Num = i-1
也可以直接在B1单元格内写公式＝counta(a:a)，在VBA里用Max_Num = [b1].value
其实还有一种方法就是在VBA里使用工作表函数，但我有时使用时会出错，可能跟环境有关，所以不推荐。