VBA获取数据区域的行列数

方法1方法2

方法1

ActiveSheet.UsedRange.Rows.Count ActiveSheet.UsedRange.Columns.Count

缺点：把最后几行（列） 数据 清除后（非整行或整列删除），用这个命令仍返回未清除前的值。

方法2

ActiveSheet.Range("A65535").End(xlUp).Row ActiveSheet.Range("IV1").End(xlToLeft).Column

缺点：只能计算出一列（行）的最后一个 单元格 所在的行（列）数。本例返回第一列（行）的行（列）数。