VBAを使用してグループ化する

Question

ヘッダー行を持つワークシートがあり、VBAを使用して行をグループ化する必要があります。 After:=.Cells(1, 1)

何をしなければならない：コードの行をハイライト

無効または非修飾参照

：私はこの構文しかし

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 

、これはのエラーが生成されますが試みられてきました私はVBAとすべての行（ヘッダーにはない）をグループ化するのですか？コメントパー

EDIT

、私はエラーが削除されますが、これはグループ（ヘッダを除く）すべての行ない、以下に私の構文を編集しました。どのようにこれを使用範囲でグループ化するために更新する必要がありますか？

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 

Answer 1

あなたはSelectとSelectionを使用する必要はありません。 rLastCellの範囲を見つけたら、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 

注：

あなたが前にドットを削除する場合はどのような

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

（.Findメソッドを使用する必要はありません）