Excel VBA选中整块数据区域如何排除顶部标题行

适用场景 #

选中被空行、空列完全包围的整块连续数据范围，包含区域内部的所有空单元格，和「仅选中所有非空单元格」的需求完全不同，支持排除顶部标题行。
对应示例选中目标：

• 含标题行的完整范围：A1:E7
• 排除标题行的纯数据范围：A2:E7
  

实现代码 #

选中含标题行的完整数据块 #

使用CurrentRegion属性即可自动识别连续数据块的外边界，内部空单元格会被完整包含，不会出现漏选、拆分区域的问题：

Range("A1").CurrentRegion.Select

排除顶部1行标题，选中纯数据区域 #

无需先选中全量区域再手动取消首行选中，直接通过区域偏移、重设尺寸的方式直接生成目标范围：

With Range("A1").CurrentRegion
    ' 向下偏移1行跳过标题，区域高度减1抵消偏移产生的冗余行
    .Offset(1, 0).Resize(.Rows.Count - 1, .Columns.Count).Select
End With

适配调整规则 #

• 若顶部共有N行标题，只需将Offset的第一个参数修改为N，同时Resize中减去的行数同步改为N即可。例如存在2行标题时，对应代码为.Offset(2, 0).Resize(.Rows.Count - 2, .Columns.Count).Select
• 方法生效前提：目标数据块和其他无关数据之间，至少间隔1整行空行、1整列空列，保证CurrentRegion可以准确识别区域边界。

内容的提问来源于stack exchange，提问作者Aaron