当我们使用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
有什么问题可以留言,每条都会回的。