vba复制整个sheet内容_VBA 选中所有单元格 不包括首行

当我们使用VBA将一个工作簿中的所有sheet内容，汇总到一个sheet中时。我们需要复制每个sheet中除首行之外的单元格，然后复制到对应位置。这边我们和End(xlup)搭配使用的时候，有的时候多一个空行也是可以成功的。具体汇总的代码请参考悟空问答。

这里讨论一下使用VBA中的CurrentRegion，但是不选择首行的小技巧。

以下为源代码。

Option ExplicitSub main() Dim rng As Range Set rng = CurrentRegionButFirstRow rng.SelectEnd SubPrivate 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 Let region_columns = rng.Columns.Count  Set CurrentRegionButFirstRow = rng.Resize(region_rows, region_columns)End Functionza

有什么问题可以留言，每条都会回的。