获得工作表中第1行空行的行号

本文为《别怕，Excel VBA其实很简单（第3版）》随书问题参考答案

如果要将第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

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