Excel에서 그룹화된 모든 행과 열을 어떻게 확장하거나 닫을 수 있나요?

Excel에서는 필요에 따라 데이터를 그룹화하기 위해 그룹 기능을 사용할 수 있습니다. 하지만 시트에 많은 그룹이 있는 경우, 수동으로 클릭하지 않고도 모든 그룹을 빠르게 확장하거나 닫는 방법은 무엇일까요? 여기에서는 Excel에서 이 작업을 쉽게 해결하기 위한 VBA 코드를 소개하겠습니다.

Excel에서 그룹화된 모든 행과 열 확장 또는 닫기

Excel에서 그룹화된 모든 행과 열 확장 또는 닫기

여기에는 한 번에 모든 그룹을 확장하거나 닫을 수 있는 몇 가지 VBA 코드가 있습니다.

1. Alt + F11 키를 눌러 Microsoft Visual Basic for Applications 창을 활성화합니다.

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은 확장하거나 닫으려는 그룹이 포함된 시트입니다. 필요한 경우 자신의 시트 이름으로 바꾸세요.