用VBA得到EXCEL表格中的行数和列数2019-05-29 peng20091... 来源 阅 16761 转 48QQ空间QQ好友新浪微博微信扫一扫展开全文
每种方法中上面的是Excel的行数，下面的是Excel的列数。
方法1:
ActiveSheet.UsedRange.Rows.Count
ActiveSheet.UsedRange.Columns.Count
缺点：有时可能会比实际数大一些，excel最多65536行，原因是如果你把最后几行（列）数据清除后（非整行或整列删除），用这个命令仍返回未清除前的值。就是说现在虽然是空的，但是你曾经用过也算你的。
方法2:
ActiveSheet.Range(&34;).End(xlUp).Row
ActiveSheet.Range(&34;).End(xlToLeft).Column
可以简写为：
excel最多1048576行。按住ctrl+下箭头就可以到文档底部，可以看到行数是1048576。Excel全称是Microsoft Excel，是美国微软公司旗下所开发的一款电子表格制作软件，该软件可以进行批量文字数据处理，界面美观大方，在日常工作中经常需。
ActiveSheet.[A65536].End(xlUp).Row
一张excel工作表,最多能够包括1048576行和16384列.查看方法：1、首先打开一个Excel表格,并选中第一行全部单回元格.2、此时按下答键盘上的“Ctrl+shift+方向下键”的组合按键.3、即可快速把页面跳转到Excel表格的最下一行。
ActiveSheet.[IV1].End(xlToLeft).Column
例如：Excel2003版：列数最大256(IV，2的8次方)列，行数最大65536(2的16次方)行；Excel2007版：列数最大16384(XFD，2的14次方)，行数最大1048576(2的20次方)；Excel2013版：列数最大16384(XFD，2的14次方)，行数。
注意：这种方法返回工作表中最后一个包含非空内容的单元格所在的行号，而不管这一单元格与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
缺点：在工作表进行对删除或清除操作时也会变得比实际情况大。
方法4:
ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Column
缺点：在工作表进行对删除或清除操作时也会变得比实际情况大。
方法5：
总结： excel最多有1048576行。在excel中的查看步骤如下：1、打开excel表格，接下来选中第一行所有单元格。2、再同时按下键盘上的Ctrl键、shift键、方向下键。3、excel表格就跳到最后一行了，查看表格左侧的序号，此时显示。
Application.CountA(ActiveSheet.Range(&34;))
Application.CountA(ActiveSheet.Range(&34;))
方法6：
ActiveSheet.Cells.Find(What:=&34;，After:=[A1]，SearchOrder:=xlByColumns，SearchDirection:=xlPrevious).Column
效果同方法2
以上方法中比较常用的是方法1和方法2
