VBA常用代码1

方法一：使用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