¿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?
Las mejores herramientas de productividad para Office
Mejora tu dominio de Excel con Kutools para Excel y experimenta una eficiencia sin precedentes. Kutools para Excel ofrece más de300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haz clic aquí para obtener la función que más necesitas...
Office Tab incorpora la interfaz de pestañas en Office y facilita mucho tu trabajo
- Habilita la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abre y crea varios documentos en nuevas pestañas de la misma ventana, en lugar de hacerlo en ventanas separadas.
- ¡Aumenta tu productividad en un50% y reduce cientos de clics de ratón cada día!
Todos los complementos de Kutools. Un solo instalador
El paquete Kutools for Office agrupa complementos para Excel, Word, Outlook y PowerPoint junto con Office Tab Pro, ideal para equipos que trabajan en varias aplicaciones de Office.
- Suite todo en uno: complementos para Excel, Word, Outlook y PowerPoint + Office Tab Pro
- Un solo instalador, una licencia: configuración en minutos (compatible con MSI)
- Mejor juntos: productividad optimizada en todas las aplicaciones de Office
- Prueba completa de30 días: sin registro ni tarjeta de crédito
- La mejor relación calidad-precio: ahorra en comparación con la compra individual de complementos