¿Cómo eliminar todas las hojas de cálculo en blanco en Excel?

Si tiene un libro que contiene muchas hojas de cálculo y, al mismo tiempo, algunas de ellas están en blanco, es posible que desee eliminar las hojas en blanco para guardar o archivar el archivo. ¿Cómo podría buscar las hojas en blanco entre múltiples hojas de cálculo y eliminarlas automáticamente?

Eliminar todas las hojas de cálculo en blanco con código VBA

Eliminar todas las hojas de cálculo en blanco con Kutools para Excel

Eliminar todas las hojas de cálculo en blanco con código VBA

Es complicado revisar manualmente las hojas de cálculo en blanco y eliminarlas una por una, pero con el siguiente código VBA, puede eliminar fácilmente todas las hojas en blanco de una vez.

1. Mantenga presionadas las teclas ALT + F11, y se abrirá la ventana de Microsoft Visual Basic para Aplicaciones.

2. Haga clic en Insertar > Módulo, y pegue el siguiente código en la ventana del Módulo.

VBA: eliminar todas las hojas de cálculo en blanco

Sub DeleteBlankWorksheets()
'Update 20130830
Dim Ws As Worksheet
On Error Resume Next
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each Ws In Application.Worksheets
    If Application.WorksheetFunction.CountA(Ws.UsedRange) = 0 Then
        Ws.Delete
    End If
Next
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

3. Luego, presione la tecla F5, y todas las hojas de cálculo en blanco se eliminarán de una vez.

Eliminar todas las hojas de cálculo en blanco con Kutools para Excel

Si no está familiarizado con el código VBA, puedo presentarle una herramienta sencilla: Kutools para Excel, con su función Eliminar Hojas de Cálculo en Blanco, puede eliminar todas las hojas vacías con un solo clic.

Kutools para Excel incluye más de 300 herramientas útiles para Excel. Pruébelo gratis sin limitaciones durante 30 días. Obténgalo ahora.

Cuando haya instalado Kutools para Excel, siga los siguientes pasos:

1. Haga clic en Kutools Plus > Hoja de Cálculo > Eliminar Hojas de Cálculo en Blanco, vea la captura de pantalla:

2. Aparecerá un cuadro de diálogo preguntándole si desea eliminar todas las hojas de cálculo en blanco, vea la captura de pantalla:

3. Luego haga clic en Sí, y las hojas de cálculo en blanco se habrán eliminado correctamente. Vea las capturas de pantalla:

Si desea saber más sobre esta función, haga clic en Eliminar Hojas de Cálculo en Blanco.

Artículo relacionado:

¿Cómo eliminar hojas de cálculo ocultas en Excel?