如何用excel vba创建组并隐藏

如何用excel vba创建组并隐藏

参考代码：
Sub Test()
Dim Sh As Worksheet
Dim Rng As Range
Dim Cell As Range
Dim First As Boolean
Dim FirstCell As Range
Dim LastCell As Range
Set Sh = Worksheets("Sheet1")
With Sh
Set Rng = .Range("B3:B" & .Range("B" & .Rows.Count).End(xlUp).Row)
End With
First = True
For Each Cell In Rng
If Left(Cell.Value, 3) <> "PRJ" Then
If First = True Then
Set FirstCell = Cell
Set LastCell = Cell
First = False
Else
Set LastCell = Cell
End If
Else
If First = False Then
First = True
Sh.Range(FirstCell, LastCell).Rows.Group
End If
End If
Next Cell
End Sub