X = ApplicationwbSheets("Sheet1")CountA(Range("A:A"))
这个需要A列没有空行
试下
X = ApplicationwbSheets("Sheet1")Range("A65536")end(xlup)row
每种方法中上面的是Excel的行数，下面的是Excel的列数。
方法1:
ActiveSheetUsedRangeRowsCount
ActiveSheetUsedRangeColumnsCount
缺点：有时可能会比实际数大一些，原因是如果你把最后几行（列）数据清除后（非整行或整列删除），用这个命令仍返回未清除前的值。就是说现在虽然是空的，但是你曾经用过也算你的。
方法2:
ActiveSheetRange("A65535")End(xlUp)Row
ActiveSheetRange("IV1")End(xlToLeft)Column
可以简写为：
ActiveSheet[A65536]End(xlUp)Row
ActiveSheet[IV1]End(xlToLeft)Column
缺点：只能计算出一列（行）的最后一个单元格所在的行（列）数。本例是只返回A列最后一个单元格所占的行数。
方法3:
ActiveSheetCellsSpecialCells(xlCellTypeLastCell)Row
ActiveSheetCellsSpecialCells(xlCellTypeLastCell)Column
缺点：在工作表进行对删除或清除 *** 作时也会变得比实际情况大。
方法4:
ActiveSheetUsedRangeSpecialCells(xlCellTypeLastCell)Row
ActiveSheetUsedRangeSpecialCells(xlCellTypeLastCell)Column
缺点：在工作表进行对删除或清除 *** 作时也会变得比实际情况大。
方法5：
ApplicationCountA(ActiveSheetRange("A:A"))
ApplicationCountA(ActiveSheetRange("1:1"))
只能统计一列（行）的实际使用情况，得到的不一定是最后一行（列）的位置。方法2的数值比此方法大时，说明在A列的数据间有空白未填写的单元格。
方法6：
ActiveSheetCellsFind(What:="", After:=[A1], SearchOrder:=xlByRows, SearchDirection:=xlPrevious)Row
ActiveSheetCellsFind(What:="", After:=[A1], SearchOrder:=xlByColumns, SearchDirection:=xlPrevious)Column
效果同方法2
以上方法中比较常用的是方法1和方法2。
<html><head><script type="text/javascript">function show(){ var tab = documentgetElementById("test") ; //表格行数 var rows = tabrowslength ; //表格列数 var cells = tabrowsitem(0)cellslength ; alert("行数"+rows+"列数"+cells);}</script></head><body><table id="test" border="1"><tr> <td> </td><td>nbsp;</td></tr><tr> <td> </td><td>nbsp;</td></tr></table><input type="button" onclick="show();"/></body></html>
你的意思是想知道表格中有多少行数据么？
我有一个方法：
Range("a65536")End(xlUp)Row
返回值是一个整数，是当最后一行被使用的单元格的行数。
当然方法有好几个，但我通常比较喜欢使用这个方法,当然好多人也喜欢用这个方法。
它所以的功能类似在Excel中最后一行按住End键不放，然后再按向上的方向键，得到最后一个被使用的单元格的位置，然后通过Row属性返回行数。
绝对可靠而且高效，不信你可以试验一下。
使用VBA代码解决
Excel版本参考：2010
1、ALT+F11,打开VBE对话框
2、双击对应的工作表标签，复制以下代码，粘贴
Private Sub Worksheet_SelectionChange(ByVal Target As Range)[B5] = ActiveCellRow
End Sub
3、关闭，查看效果
iRows=activesheetusedrangerowscount\x0d\iColumns=activesheetusedrangeColumnscount\x0d\\x0d\'如果表格前面的几行或几列可能是空的，需要获得最下面的行数和最右面的列数：\x0d\with activesheetusedrange\x0d\ iEndRow=rowscount+row-1\x0d\ iEndColumn=Columnscount+column-1\x0d\end with
以上就是关于EXCEL 在当前表格中使用宏获取选中的表格某行行数全部的内容，包括:EXCEL 在当前表格中使用宏获取选中的表格某行行数、如何获取Excel表格的行数，请各位大虾指导、怎么获取表格的行数有多少呢等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！
欢迎分享，转载请注明来源：内存溢出
微信扫一扫
支付宝扫一扫
评论列表（0条）