Eliminar hojas vacias o en blanco en Excel (macro)

09 Nov Eliminar hojas vacias o en blanco en Excel (macro)

Eliminar hojas vacías o en blanco en Excel

¿Cómo podemos eliminar hojas vacías o en blanco generado por una macro en Excel?

La siguiente macro nos permite remover todas las hojas que no contengan datos dentro de un libro de Excel. Notar que la macro considera a una hoja vacía aunque tenga como objeto un gráfico (pero con referencia de otra hoja), y aunque tenga alguna configuración de hoja aplicada (como quitar líneas de cuadrícula visivles o color de relleno en la pestaña de hoja).

También se destaca que si todas las hojas del libro están vacías, la macro no eliminará la última hoja creada.

La instrucción a copiar dentro de un nuevo módulo en la ventana de Visual Basic es la siguiente:

RESALTAR VALORES NEGATIVOS EN EXCEL

Sub eliminarhojas()
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

En este caso nombramos arbitrariamente a la macro con el nombre “eliminarhojas” para su identificación.

De esta forma logramos eliminar las hojas vacías o en blanco de un libro de forma rápida y fácil mediante macros en Excel.

Te recomiendo ver el siguiente link con más videos de Macros útiles de Excel AQUÍ.

¿No sabés como instalar esta macro? ¡No te preocupes!  Aquí está la solución:

Salvo aclaración, todas las fórmulas y macros de este sitio están configuradas para aplicarse sobre la celda A1. Algunas fórmulas se encuentran encerradas entre llaves {} debido a que son fórmulas matriciales. Estas llaves no deben introducirse tecleándolas, sino que se generan automáticamente al aceptar la fórmula pulsando Control+Shift+Enter al mismo tiempo. Las fórmulas de este sitio son compatibles con versiones de Microsoft Excel® 2010 o superiores.