以A 列为例子
set f=application.worksheetfunction
if cells(f.counta(range("a:a"))+1,1)="" then
msgbox("第一个空行是第" & f.counta(range("a:a"))+1 & "行")
else
msgbox("数据不连续，中间有空白行，请确认！")
endif
range("a1").end(xldown).select
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024