VBA 使用相同的宏按钮展开折叠行

使用VBA编程语言，我们可以方便地为Excel表格添加宏按钮，实现一键展开或折叠行的功能。这对于处理大型数据表格或者需要隐藏部分信息的情况非常有用。本文将介绍如何使用相同的宏按钮来展开和折叠行，并提供一个简单的案例代码进行演示。

vba
Sub ExpandOrCollapseRows()
    Dim rng As Range
    Dim cell As Range
    
    Set rng = Selection
    
    For Each cell In rng
        If cell.EntireRow.Hidden Then
            cell.EntireRow.Hidden = False
        Else
            cell.EntireRow.Hidden = True
        End If
    Next cell
End Sub