¿Cómo comprobar rápidamente si una hoja está vacía en Excel?

Si hay algunas hojas vacías en un libro de trabajo enorme, ¿cómo puedes verificar rápidamente si una hoja está vacía en el libro y luego eliminarla? En Excel, hay una función integrada para determinar si una hoja está vacía o no, pero aquí te presento un código VBA para que verifiques si una hoja está vacía.

Comprobar si una hoja está vacía con VBA

Comprobar si una hoja está vacía con VBA

Para verificar si una hoja está vacía, puedes usar el siguiente código macro para determinar rápidamente si una hoja está en blanco.

1. Activa la hoja que deseas comprobar si está vacía, presiona Alt + F11 para abrir Microsoft Visual Basic for Applications ventana, y haz clic en Insertar > Módulo para crear un nuevo Módulo.

2. En el script en blanco, pega el siguiente código macro. Ver captura de pantalla:

VBA: Comprobar si una hoja está vacía

Sub CheckSheetEmpty()
'UpdatebyExtendoffice20170830
    If WorksheetFunction.CountA(ActiveSheet.UsedRange) = 0 And ActiveSheet.Shapes.Count = 0 Then
        MsgBox "Sheet is empty", vbInformation, "KuTools For Excel"
    Else
        MsgBox "Sheet is not empty", vbInformation, "KuTools For Excel"
    End If
End Sub

3. Guarda el código y presiona la tecla F5 para ejecutarlo, y aparecerá un cuadro de diálogo que te informará si la hoja está vacía o no.

O