¿Cómo expandir o cerrar todas las filas y columnas de grupo en Excel?
En Excel, puede utilizar la utilidad Grupo para agrupar los datos que necesite. Pero si hay muchos grupos en la hoja, ¿cómo puede expandir o cerrar rápidamente todos los grupos sin hacer clic manualmente? Aquí, presento códigos VBA para resolver fácilmente este trabajo en Excel.
Expanda o cierre todas las filas y columnas de los grupos en Excel
Expanda o cierre todas las filas y columnas de los grupos en Excel
Aquí hay algunos códigos VBA que pueden ayudarlo a expandir o cerrar todos los grupos a la vez.
1. Prensa Alt + F11 claves para habilitar el Microsoft Visual Basic para aplicaciones ventana.
2. Hacer clic en recuadro > Módulo, copie y pegue el código de soplado 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. Prensa F5 clave, los grupos en Sheet1 se han expandido.
Si desea cerrar todos los grupos, puede usar el siguiente código:
Sub CollapseAll()
Worksheets("sheet1").Outline.ShowLevels 1, 1
End Sub
Nota: en los códigos anteriores, Sheet1 es la hoja que contiene grupos que se expandirán o cerrarán. Cámbielo por el nombre de su propia hoja si lo necesita.
Las mejores herramientas de productividad de oficina
Mejore sus habilidades de Excel con Kutools for Excel y experimente la eficiencia como nunca antes. Kutools for Excel ofrece más de 300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haga clic aquí para obtener la función que más necesita...
Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Habilite 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 de la misma ventana, en lugar de en nuevas ventanas.
- ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!