¿Cómo expandir o cerrar todos los grupos de filas y columnas en Excel?

En Excel, puedes usar la utilidad Agrupar para organizar datos según lo necesites. Pero si hay muchos grupos en la hoja, ¿cómo puedes expandir o cerrar rápidamente todos los grupos sin hacer clic manualmente? Aquí te mostraré códigos VBA para resolver fácilmente esta tarea en Excel.

Expandir o cerrar todos los grupos de filas y columnas en Excel

Expandir o cerrar todos los grupos de filas y columnas en Excel

Aquí tienes algunos códigos VBA que pueden ayudarte a expandir o cerrar todos los grupos de una vez.

1. Presiona las teclas Alt + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

2. Haz clic en Insertar > Módulo, copia y pega el siguiente código en el nuevo Módulo.

VBA: Expandir todos los grupos

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. Presiona F5 y los grupos en Hoja1 se habrán expandido.

Si deseas cerrar todos los grupos, puedes usar el siguiente código:

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

Nota: en los códigos anteriores, Hoja1 es la hoja que contiene los grupos que deseas expandir o cerrar. Reemplázala con el nombre de tu propia hoja si es necesario.