我有一個(gè)包含標(biāo)題行的工作表，我想使用VBA對(duì)行進(jìn)行分組。 我已經(jīng)嘗試過(guò)這種語(yǔ)法

Sub GroupItTogether()
  Dim rLastCell As Range
  Set rLastCell = ActiveSheet.Cells.Find(What:="*", After:=.Cells(1, 1),  _   
    LookIn:=xlFormulas, LookAt:= _
    xlPart, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:=False)
  Range("A2" & rLastCell).Select
  Selection.Rows.Group
  ActiveSheet.Outline.ShowLevels RowLevels:=1
End Sub

但是，這將產(chǎn)生以下錯(cuò)誤：

參考無(wú)效或不合格

突出顯示代碼行： After:=.Cells(1, 1)

我該怎么做才能用VBA對(duì)所有行進(jìn)行分組（沒(méi)有標(biāo)題）？

編輯

對(duì)于每個(gè)注釋?zhuān)覍⒄Z(yǔ)法編輯為以下內(nèi)容，從而消除了該錯(cuò)誤，但這并未將所有行分組（不包括標(biāo)題）。 如何將其更新為按使用范圍分組？

  Sub GroupItTogether()
  Dim rLastCell As Range
  Set rLastCell = ActiveSheet.Cells.Find(What:="*", After:=Cells(1, 1), _    
    LookIn:=xlFormulas, LookAt:= _
    xlPart, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:=False)
  Range("A2" & rLastCell).Select
  Selection.Rows.Group
  ActiveSheet.Outline.ShowLevels RowLevels:=1
End Sub

您無(wú)需使用Select和Selection 。 一旦你找到的范圍rLastCell ，你可以從你的范圍內(nèi)讀取的最后一行財(cái)產(chǎn)rLastCell.Row ，然后只需將它們分組。

Option Explicit

Sub GroupItTogether()

Dim rLastCell As Range

Set rLastCell = ActiveSheet.Cells.Find(What:="*", After:=Cells(1, 1), _
LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:=False)

Range("A2:A" & rLastCell.Row).Rows.Group
ActiveSheet.Outline.ShowLevels RowLevels:=1

End Sub

注意 ：您可以使用以下命令獲取列A中包含數(shù)據(jù)的最后一行：

lastrow = Cells(Rows.Count, "A").End(xlUp).Row