在VBA中展开/折叠分组单元格宏

Sub ExpandCollapseGroups()
    Dim ws As Worksheet
    Dim rng As Range
    Dim group As Range

    ' 设置工作表
    Set ws = ThisWorkbook.Worksheets("Sheet1") ' 更改为你的工作表名称

    ' 选择包含分组单元格的区域
    Set rng = ws.Range("A1:G10") ' 更改为你的分组单元格范围

    ' 遍历分组单元格
    For Each group In rng.Rows
        ' 检查分组单元格是否已展开
        If group.ShowDetail = False Then
            ' 展开分组单元格
            group.ShowDetail = True
        Else
            ' 折叠分组单元格
            group.ShowDetail = False
        End If
    Next group
End Sub