Cómo eliminar hojas vacías de un libro de Excel

Supongamos que tienes un libro grande con múltiples hojas, pero hay algunas hojas vacías sin ningún contenido. Para hacer que el libro sea más profesional y formal, deseas eliminar estas hojas en blanco del libro. En lugar de eliminar las hojas vacías una por una, esta guía introduce métodos para eliminar todas las hojas en blanco rápidamente.

Eliminar todas las hojas en blanco usando VBA

Eliminar todas las hojas en blanco usando Kutools para Excel

Eliminar todas las hojas en blanco usando VBA

Aquí te presento un código VBA que te ayudará a eliminar rápidamente todas las hojas en blanco de un libro abierto.

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

2. Haz clic en Insertar > Módulo, pega el siguiente código VBA en la nueva ventana de Módulo que se abre.

VBA: Eliminar hojas vacías.

Sub DeletEmptySheets()
'UpdatebyKutoolsforExcel20151130
    Dim xWs As Worksheet
    Dim xAlert As Boolean
    Dim xCount As Long
    xAlert = Application.DisplayAlerts
    Application.DisplayAlerts = False
    If MsgBox("Are you sure to remove all empty sheets?", vbYesNo, "Kutools for Excel") = vbNo Then Exit Sub
    For Each xWs In ActiveWorkbook.Worksheets
        If (Application.CountA(xWs.Cells) = 0) And _
           (xWs.Shapes.Count = 0) Then
            xWs.Delete
            xCount = xCount + 1
        End If
    Next
    MsgBox "You have removed " & xCount & " empty sheet(s)", , "Kutools for Excel"
    Application.DisplayAlerts = xAlert
End Sub

3. Presiona la tecla F5 o haz clic en el botón Ejecutar para ejecutar el VBA. Aparecerá un cuadro de diálogo preguntando si deseas eliminar las hojas vacías. Haz clic en Sí para continuar o en No para cancelar la operación.

4. Después de hacer clic en Sí, aparecerá un cuadro de diálogo mostrando el número de hojas eliminadas. Haz clic en Aceptar para cerrarlo, y todas las hojas vacías serán eliminadas.

Eliminar todas las hojas en blanco usando Kutools para Excel

Para los principiantes en Excel, usar VBA puede ser un método algo difícil de ejecutar. Pero con la función Eliminar Hojas en Blanco de Kutools para Excel, ¡puedes eliminar rápidamente todas las hojas vacías de un libro con solo tres clics del ratón!

1. Abre el libro del que deseas eliminar las hojas vacías, y haz clic en Kutools Plus > Hoja de cálculo > Eliminar Hojas en Blanco. Ver captura de pantalla:

Artículos relacionados:

• ¿Cómo contar y eliminar duplicados de una lista en Excel?
• ¿Cómo eliminar texto después del enésimo carácter en Excel?
• ¿Cómo eliminar texto dentro de corchetes/paréntesis en Excel?
• ¿Cómo eliminar formas de línea en Excel?