¿Cómo contar rápidamente la cantidad de hojas de trabajo ocultas en Excel?

Si tiene un libro de trabajo grande con cientos de hojas de trabajo, y algunas de ellas están ocultas. Para satisfacer algunas necesidades especiales, desea saber la cantidad de hojas de trabajo ocultas en el libro de trabajo, ¿cómo puede hacerlo en lugar de contarlas una por una? Ahora voy a presentar dos trucos para poder contar rápidamente las hojas de trabajo ocultas a la vez.

Contar hojas ocultas con VBA

Cuente hojas ocultas / visibles con Kutools para Excel

Elimine hojas ocultas o muestre todas las hojas ocultas con Kutools para Excel

---

Contar hojas ocultas con VBA

Introduzco un código VBA que puede abrir un cuadro de diálogo para indicarle la cantidad de hojas de trabajo ocultas en un libro de trabajo.

1. Prensa Alt + F11 claves para habilitar el Microsoft Visual Basic para aplicaciones ventana.

2. Hacer clic en recuadro > Móduloy pegue el siguiente código en el nuevo Módulo ventana.

VBA: cuenta hojas ocultas.

Sub vhCount()
'Updateby20150602
Dim xWs As Worksheet
Dim xCount As Integer
For Each xWs In Application.ActiveWorkbook.Sheets
    If xWs.Visible Then xCount = xCount + 1
Next
MsgBox "Visible : " & xCount & vbCrLf & _
    "Hidden : " & ActiveWorkbook.Sheets.Count - xCount
End Sub

3. Prensa F5 para ejecutar el código, y aparece un cuadro de diálogo que le indica el número de hojas de trabajo ocultas y el número de hojas de trabajo visibles.

---

Cuente hojas ocultas / visibles con Kutools para Excel

Si no está familiarizado con VBA, puede instalarlo gratis Kutools for Excel para contar el número de hojas, hojas ocultas y hojas visibles de un vistazo.

Después instalación gratuita Kutools para Excel, haga lo siguiente:

1. Hacer clic en Kutools > Navegación para mostrar el panel. Ver captura de pantalla:

2. Luego haga clic Libro de trabajo y hoja para enumerar los libros y las hojas de trabajo, e ir a la parte inferior del panel, puede encontrar el número total de hojas, hojas ocultas y hojas visibles.

Consejo: Si ya no necesita el panel de navegación, haga clic en Kutools > Navegación de nuevo para ocultarlo.

---

Elimine hojas ocultas o muestre todas las hojas ocultas con Kutools para Excel

Con Kutools for Excel, también puede eliminar todas las hojas ocultas con un solo clic.

1. Si desea mostrar todas las hojas ocultas, simplemente haga clic en Kutools > Mostrar ocultar > Mostrar todas las hojas ocultas.

2. Si desea eliminar todas las hojas ocultas, simplemente haga clic en Empresa > Hoja de trabajo > Eliminar todas las hojas ocultas. Ver captura de pantalla: