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里使用工作表函数，但我有时使用时会出错，可能跟环境有关，所以不推荐。
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024