Cacher is the code snippet organizer for pro developers

(1) 返回指定(或活动)单元格所在区域中标题行的行数
Worksheets("sheet1").Range("A1").CurrentRegion.ListHeaderRows
(4) 返回指定(或活动)单元格所在区域的单元格数
Worksheets("sheet1").Range("A1").CurrentRegion.Cells.Count
(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