本文为《别怕,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

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

声明:本站所有文章均出自互联网,只为学习之用;如若本站内容侵犯了原著者的合法权益,可联系我们进行处理。