用VBA得到EXCEL表格中的行数和列数

最新推荐文章于 2024-10-04 17:15:46 发布

ribut9225

最新推荐文章于 2024-10-04 17:15:46 发布

阅读量5.9k

点赞数 2

分类专栏： VBA 文章标签： vba

原文链接：https://blog.csdn.net/iamlaosong/article/details/9332505

版权

VBA 专栏收录该内容

13 篇文章 2 订阅

订阅专栏

本文介绍了三种使用VBA获取Excel工作表行数和列数的方法，包括ActiveSheet.UsedRange属性、Range对象的End属性以及Cells.SpecialCells方法。每种方法都有其优缺点，如可能因清除数据但未删除行导致不准确，或无法处理隐藏单元格。在使用时需要注意这些限制，特别是在处理大量数据和隐藏行时。同时，对于2007版以上的Excel，要考虑到更大的行数和列数限制。

摘要由CSDN通过智能技术生成

用VBA得到EXCEL表格中的行数和列数

　　每种方法中上面的是 Excel的行数，下面的是 Excel的列数。
方法1:
　　ActiveSheet.UsedRange.Rows.Count
　　ActiveSheet.UsedRange.Columns.Count
缺点：有时可能会比实际数大一些，原因是如果你把最后几行（列）数据清除后（非整行或整列删除），用这个命令仍返回未清除前的值。就是说现在虽然是空的，但是你曾经用过也算你的。

方法2:
　　ActiveSheet.Range("A65535").End(xlUp).Row
　　ActiveSheet.Range("IV1").End(xlToLeft).Column
　　可以简写为：
　　ActiveSheet.[A65536].End(xlUp).Row
　　ActiveSheet.[IV1].End(xlToLeft).Column
缺点：只能计算出一列（行）的最后一个单元格所在的行（列）数。本例是只返回A列最后一个单元格所占的行数。

注意：这种方法返回工作表中最后一个包含非空内容的单元格所在的行号，而不管这一单元格与Me.Cells(1,1)之间是否有包含空白内容的单元格。而且这一方法将跳过或者说忽略被隐藏的单元格，比如，数据表有连续的50行，如果第48到50行隐藏了，则只返回47。此外，65536是2003版工作表最大可用行数（2003版 65536行、256列，2007版 1048576行、16384列），2007版就应该写成ActiveSheet.[A1048576].End(xlUp).Row。除了上面两种写法，还可以写成ActiveSheet.Cells(1048576, 1).End(xlUp).Row。

方法3:
　　ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row
　　ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Column
　　缺点：在工作表进行对删除或清除操作时也会变得比实际情况大。