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
Ewin:梦想可以到达的地方，网络就可以做到-开放、平等、自由、充满激情......
posted @ 2008-08-06 22:40
Ewin 阅读(59)
评论(0) 编辑 收藏 网摘 所属分类:
应用常识