VBA 選中所有單元格 不包括首行

當我們使用VBA將一個工作簿中的所有sheet內容，彙總到一個sheet中時。我們需要複製每個sheet中除首行之外的單元格，然後複製到對應位置。這邊我們和End(xlup)搭配使用的時候，有的時候多一個空行也是可以成功的。具體彙總的代碼請參考悟空問答。

這裡討論一下使用VBA中的CurrentRegion，但是不選擇首行的小技巧。

以下為源代碼。

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
 Let region_columns = rng.Columns.Count
 
 Set CurrentRegionButFirstRow = rng.Resize(region_rows, region_columns)
End Functionza

有什麼問題可以留言，每條都會回的。