如何在Excel中展開或關閉所有組行和列？

在Excel中，您可以根據需要使用“組”實用程序對數據進行分組。 但是，如果工作表中有許多組，如何在不手動單擊的情況下快速展開或關閉所有組？ 在這里，我介紹VBA代碼以輕松解決Excel中的這項工作。

展開或關閉Excel中的所有組行和列

展開或關閉Excel中的所有組行和列

這里有一些VBA代碼可以幫助您一次擴展或關閉所有組。

1。 按 Alt + F11鍵 啟用 Microsoft Visual Basic應用程序 窗口。

2。 點擊 插頁 > 模塊，將打擊代碼復制并粘貼到新模塊中。

VBA：擴展所有組

Sub ExpandAll()UpdatebyExtendoffice20181031Dim I As IntegerDim J As IntegerOn Error Resume NextFor I = 1 To 100Worksheets("Sheet1").Outline.ShowLevels rowLevels:=IIf Err.Number <> 0 ThenErr.ClearExit ForEnd IfNext IFor J = 1 To 100Worksheets("Sheet1").Outline.ShowLevels columnLevels:=JIf Err.Number <> 0 ThenErr.ClearExit ForEnd IfNext JEnd SubCopy

3。 按 F5

鍵，Sheet1中的組已展開。

如果要關閉所有組，可以使用以下代碼：

Sub CollapseAll()Worksheets("sheet1").Outline.ShowLevels 1, 1End SubCopy

請注意： 在上面的代碼中，Sheet1是包含您將被展開或關閉的組的工作表。 如果需要，請更改為您自己的工作表名稱。

最佳辦公生產力工具

將小時轉化為分鐘 Kutools for Excel!

準備好增強您的 Excel 任務了嗎？ 利用的力量 Kutools for Excel - 您終極的節省時間的工具。 簡化復雜的任務并像專業人士一樣瀏覽數據。 以閃電般的速度體驗 Excel！

為什么需要 Kutools for Excel