¿Cómo expandir o contraer todas las filas y columnas agrupadas en Excel?
En Excel, puede utilizar la función Agrupar para organizar los datos según sus necesidades. Pero si hay muchos grupos en la hoja, ¿cómo puede expandir o contraer todos los grupos rápidamente sin tener que hacer clic manualmente en cada uno? Aquí le presentamos códigos VBA que resuelven esta tarea de forma sencilla en Excel.
Expandir o contraer todas las filas y columnas agrupadas en Excel
Expandir o contraer todas las filas y columnas agrupadas en Excel
A continuación, encontrará algunos códigos VBA que le permiten expandir o contraer todos los grupos de forma simultánea.
1. Pulse las teclas Alt + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.
2. Haga clic en Insertar > Módulo y copie y pegue 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. Pulse la tecla F5; los grupos de la Hoja1 se habrán expandido.
Si desea contraer todos los grupos, puede utilizar 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 desea expandir o contraer. Sustitúyala por el nombre de su propia hoja si es necesario.
Las mejores herramientas de productividad para Office
Potencie sus habilidades en Excel con Kutools para Excel y experimente una eficiencia como nunca antes.Kutools para Excel ofrece más de 300 funciones avanzadas para aumentar su productividad y Ahorrar tiempo.Haga clic aquí para obtener la función que más necesita...
Office Tab aporta una interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Active la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abra y cree varios documentos en nuevas pestañas dentro de la misma ventana, en lugar de hacerlo en ventanas separadas.
- ¡Aumente su productividad en un 50 % y elimine cientos de clics del ratón cada día!
Todos los complementos de Kutools en un solo instalador.
Kutools for Office es la suite que incluye complementos para Excel, Word, Outlook y PowerPoint, además de Office Tab Pro, ideal para equipos que trabajan en distintas aplicaciones de Office.
- Suite integral— complementos para Excel, Word, Outlook y PowerPoint + Office Tab Pro
- Un instalador, una licencia— configuración en minutos (compatible con MSI)
- Rendimiento mejorado en conjunto— productividad optimizada en todas las aplicaciones de Office
- Prueba gratuita de 30 días con todas las funciones— sin registro ni tarjeta de crédito
- La mejor relación calidad-precio— ahorre frente a la compra individual de complementos