vba 选中所有区域 但是不包括首行

当我们使用VBA将一个工作簿中的所有sheet内容，汇总到一个sheet中时，

我们需要复制每个sheet中除首行之外的单元格，然后复制到对应位置。

因此，选中所有单元格然后取出首行就显得比较必要。

下面是操作的代码，大家可以参考一下。

Option Explicit
Sub main()
 Dim rng As Range
 Set rng = CurrentRegionButFirstRow
 rng.Select
End Sub

Private Function CurrentRegionButFirstRow() As Range
 Dim rng As Range
 Dim region_rows As Long
 Dim region_columns As Long
 
 Set rng = Range("A1").CurrentRegion.Offset(1, 0) '选中所有区域，包括首行，然后整体向下偏移一行！
 Let region_rows = rng.Rows.Count - 1 '行数减1，就目的是resize的时候不包括最后一行空白行
 Let region_columns = rng.Columns.Count '这边列不需要resize，所以就没有任何操作
 
 Set CurrentRegionButFirstRow = rng.Resize(region_rows, region_columns) '使用resize，重整有内容区域
End Function