·
1 years ago
Collapse all works great. I just changed Worksheets("sheet1") to ActiveSheet for my needs
在Excel中,您可以根据需要使用“组”实用程序对数据进行分组。 但是,如果工作表中有许多组,如何在不手动单击的情况下快速展开或关闭所有组? 在这里,我介绍VBA代码以轻松解决Excel中的这项工作。
这里有一些VBA代码可以帮助您一次扩展或关闭所有组。
1。 按 Alt + F11键 启用 Microsoft Visual Basic应用程序 窗口。
2。 点击 插页 > 模块,将打击代码复制并粘贴到新模块中。
VBA:扩展所有组
Sub ExpandAll() 'UpdatebyExtendoffice20181031 Dim I As Integer Dim J As Integer On Error Resume Next For I = 1 To 100 Worksheets("Sheet1").Outline.ShowLevels rowLevels:=I If Err.Number <> 0 Then Err.Clear Exit For End If Next I For J = 1 To 100 Worksheets("Sheet1").Outline.ShowLevels columnLevels:=J If Err.Number <> 0 Then Err.Clear Exit For End If Next J End Sub
3。 按 F5 键,Sheet1中的组已展开。
如果要关闭所有组,可以使用以下代码:
Sub CollapseAll() Worksheets("sheet1").Outline.ShowLevels 1, 1 End Sub
请注意: 在上面的代码中,Sheet1是包含您将被展开或关闭的组的工作表。 如果需要,请更改为您自己的工作表名称。