vba 行 列 单元格 统计

 

 1  ( 1 ) 返回指定(或活动)单元格所在区域中标题行的行数
 2  Worksheets( " sheet1 " ).Range( " H2 " ).Value  =  _
 3  Worksheets( " sheet1 " ).Range( " A1 " ).CurrentRegion.ListHeaderRows
 4  上述代码在示例工作表中运行后，将返回“ 1 ”，即单元格A1所在区域的标题行的行数为1。
 5 
 6 
 7  ( 2 ) 返回指定(或活动)单元格所在区域的行数
 8  Worksheets( " sheet1 " ).Range( " H3 " ).Value  =  _
 9  Worksheets( " sheet1 " ).Range( " A1 " ).CurrentRegion.Rows.Count
10  上述代码在示例工作表中运行后，将返回“ 11 ”，即单元格A1所在区域的行数为11。
11 
12 
13  ( 3 ) 返回指定(或活动)单元格所在区域的列数
14  Worksheets( " sheet1 " ).Range( " H4 " ).Value  =  _
15      Worksheets( " sheet1 " ).Range( " A1 " ).CurrentRegion.Columns.Count
16  上述代码在示例工作表中运行后，将返回“ 4 ”，即单元格A1所在区域的列数为4。
17 
18 
19  ( 4 ) 返回指定(或活动)单元格所在区域的单元格数
20  Worksheets( " sheet1 " ).Range( " H5 " ).Value  =  _
21      Worksheets( " sheet1 " ).Range( " A1 " ).CurrentRegion.Cells.Count
22  上述代码在示例工作表中运行后，将返回“ 44 ”，即单元格A1所在区域的单元格数为44。
23 
24 
25  ( 5 ) 在指定(或活动)单元格所在区域中选取除标题行以外的数据区域
26  Worksheets( " sheet1 " ).Range( " A1 " ).CurrentRegion.Resize( _
27     Worksheets( " sheet1 " ).Range( " A1 " ).CurrentRegion.Rows.Count  -  Worksheets( " sheet1 " ). _
28     Range( " A1 " ).CurrentRegion.ListHeaderRows, Worksheets( " sheet1 " ).Range( " A1 " ).CurrentRegion. _
29     Columns.Count).Offset( 1 ,  0 ).Select
30 

转载于:https://www.cnblogs.com/Ewin/archive/2008/08/06/1262441.html