¿Cómo puedo comprobar rápidamente si una hoja está vacía en Excel?
Si hay hojas vacías en un libro enorme, ¿cómo puede comprobar rápidamente si una hoja está vacía y eliminarla? Excel no incluye una función integrada para determinar si una hoja está vacía, pero aquí le presentamos un código VBA que sí lo hace.
Compruebe si una hoja está vacía con VBA
Compruebe si una hoja está vacía con VBA
Para comprobar si una hoja está vacía, puede usar la siguiente macro y determinar rápidamente si la hoja está en blanco.
1. Active la hoja que desea comprobar si está vacía, pulse Alt + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones y haga clic en Insertar > Módulo para crear un nuevo módulo.
2. En el script en blanco, pegue el siguiente código de macro. Consulte la captura de pantalla:
VBA: Compruebe 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. Guarde el código y pulse la tecla F5 para ejecutarlo; aparecerá un cuadro de diálogo que le indicará si la hoja está vacía o no.
 | O |  |
Las mejores herramientas de productividad para Office
Potencie sus habilidades en Excel con Kutools para Excel y experimente una eficiencia como nunca antes.Kutools para Excel ofrece más de 300 funciones avanzadas para aumentar su productividad y Ahorrar tiempo.Haga clic aquí para obtener la función que más necesita...
Office Tab aporta una interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Active la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abra y cree varios documentos en nuevas pestañas dentro de la misma ventana, en lugar de hacerlo en ventanas separadas.
- ¡Aumente su productividad en un 50 % y elimine cientos de clics del ratón cada día!
Todos los complementos de Kutools en un solo instalador.
Kutools for Office es la suite que incluye complementos para Excel, Word, Outlook y PowerPoint, además de Office Tab Pro, ideal para equipos que trabajan en distintas aplicaciones de Office.
- Suite integral— complementos para Excel, Word, Outlook y PowerPoint + Office Tab Pro
- Un instalador, una licencia— configuración en minutos (compatible con MSI)
- Rendimiento mejorado en conjunto— productividad optimizada en todas las aplicaciones de Office
- Prueba gratuita de 30 días con todas las funciones— sin registro ni tarjeta de crédito
- La mejor relación calidad-precio— ahorre frente a la compra individual de complementos