如何在vba中对行进行分组？

Sub GroupRows()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim rng As Range
    
    ' 设置要操作的工作表
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    ' 获取最后一行的行号
    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
    
    ' 设置要分组的范围
    Set rng = ws.Range("A1:A" & lastRow)
    
    ' 分组
    rng.Rows.Group
End Sub