如果要将第1行空行的行号存入变量IRow中，可以借助End、UsedRange、CurrentRegion等属性解决，如下面过程中的4种写法：

Sub 第1个空行的行号()
Dim IRow As Long
IRow = Range("A1").End(xlDown).Row + 1
IRow = Range("A1048576").End(xlUp).Row + 1
IRow = ActiveSheet.UsedRange.Rows.Count + 1
IRow = Range("A1").CurrentRegion.Rows.Count + 1
End Sub

当然，每种属性之间是有区别的，在某些特殊情境中，获得的结果也不完全相同。不同的方法适用于不同的情境，大家一定要正确区别使得。

上一篇：excel vba教程：根据分数为职工评定星级 下一篇：excel表格教程：用For语句在A列的多个单元格中输入数据

郑重声明：本文版权归原作者所有，转载文章仅为传播更多信息之目的，如作者信息标记有误，请第一时间联系我们修改或删除，多谢。