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
 上述代码在示例工作表中运行后，将返回“11”，即单元格A1所在区域的行数为11。
 
 
 (3) 返回指定(或活动)单元格所在区域的列数
 Worksheets("sheet1").Range("H4").Value = _
     Worksheets("sheet1").Range("A1").CurrentRegion.Columns.Count
 上述代码在示例工作表中运行后，将返回“4”，即单元格A1所在区域的列数为4。
 
 
 (4) 返回指定(或活动)单元格所在区域的单元格数
 Worksheets("sheet1").Range("H5").Value = _
     Worksheets("sheet1").Range("A1").CurrentRegion.Cells.Count
 上述代码在示例工作表中运行后，将返回“44”，即单元格A1所在区域的单元格数为44。
 
 
 (5) 在指定(或活动)单元格所在区域中选取除标题行以外的数据区域
 Worksheets("sheet1").Range("A1").CurrentRegion.Resize( _
    Worksheets("sheet1").Range("A1").CurrentRegion.Rows.Count - Worksheets("sheet1"). _
    Range("A1").CurrentRegion.ListHeaderRows, Worksheets("sheet1").Range("A1").CurrentRegion. _
    Columns.Count).Offset(1, 0).Select