当我们使用VBA遍历工作表的时候,获取使用的最大行数十分必要,这里有两个方法。
方法一:使用WorkSheet对象的UsedRange属性直接获取:
最大行号 = ActiveSheet.UsedRange.Rows.Count
方法二:使用Range对象的End属性间接获取:
选择一个远离使用范围的单元格,如:Range("A10000"),按下“End+方向上”,选区就会自动跳到使用的最后一行上。这个动作的代码如下:
最大行号 = Range("A10000").End(xlUp).Row
'或者
最大行号 = Range("A10000").End(3).Row
另外,End属性还有其他用法,其4个参数如下:
其中1代表:xlToLeft
其中2代表:xlToRight
其中3代表:xlup
其中4代表:xldown
简记 左右上下,1,2,3,4