本文为《别怕,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
当然,每种属性之间是有区别的,在某些特殊情境中,获得的结果也不完全相同。不同的方法适用于不同的情境,大家一定要正确区别使得。