使用VBA折叠组的更有效方法

Question

我有一个8000行电子表格，我们在其中使用分组进行组织。我在工作表上有一些带有宏的按钮，以帮助扩展和折叠组。该代码有效，但是，它很慢。

       With sht.Outline
            .ShowLevels RowLevels:=6
            .ShowLevels RowLevels:=5
            .ShowLevels RowLevels:=4
            .ShowLevels RowLevels:=3
            .ShowLevels RowLevels:=2
            .ShowLevels RowLevels:=1
        End With

注意：在此过程中，我确实关闭了Application.ScreenUpdating。

是否有比我现在做的更有效的折叠或展开行的方法？