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 
posted @ 2008-08-06 22:40  Ewin  阅读(835)  评论(0)  编辑  收藏  举报