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