Saltar al contenido principal

¿Cómo eliminar todas las hojas de trabajo en blanco en Excel?

Si tiene un libro de trabajo que tiene muchas hojas de trabajo, mientras tanto, hay algunas hojas de trabajo en blanco. Y ahora desea eliminar las hojas de trabajo en blanco para guardar o archivar el archivo. ¿Cómo podría buscar las hojas en blanco de varias hojas de trabajo y eliminarlas automáticamente?

Elimine todas las hojas de trabajo en blanco con código VBA

Elimine todas las hojas de trabajo en blanco con Kutools para Excel


flecha azul burbuja derecha Elimine todas las hojas de trabajo en blanco con código VBA

Es problemático para usted verificar las hojas de trabajo en blanco y eliminarlas una por una, pero con el siguiente código VBA, puede eliminar fácilmente todas las hojas de trabajo en blanco a la vez.

1. Mantenga pulsado el ALT + F11 llaves, y abre el Microsoft Visual Basic para aplicaciones ventana.

2. Hacer clic recuadro > Móduloy pegue el siguiente código en la ventana Módulo.

VBA: elimine todas las hojas de trabajo 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 Entonces Ws.Delete End Si Next Application.ScreenUpdating = True Application.DisplayAlerts = True End Sub

3. Entonces presione F5 clave, y todas las hojas de trabajo en blanco se eliminan a la vez.


flecha azul burbuja derecha Elimine todas las hojas de trabajo en blanco con Kutools para Excel

Si no está familiarizado con el código VBA, puedo presentarle una herramienta fácil: Kutools for Excel, Con su Eliminar hojas de trabajo en blanco función, puede eliminar todas las hojas de trabajo vacías con un solo clic.

Kutools for Excel incluye más de 300 útiles herramientas de Excel. Prueba gratis sin límite en 30 días. Comprar ahora .

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

1. Hacer clic Empresa > Herramientas de hoja de trabajo > Eliminar hojas de trabajo en blanco, ver captura de pantalla:

doc-eliminar-hojas en blanco1

2. Y aparecerá un cuadro de aviso para recordarle si desea eliminar todas las hojas de trabajo en blanco o no, vea la captura de pantalla:

doc-eliminar-hojas en blanco2

3. Luego haga clic y las hojas de trabajo en blanco se han eliminado correctamente. Ver capturas de pantalla:

doc-eliminar-hojas en blanco3
-1
doc-eliminar-hojas en blanco4

Si desea obtener más información sobre esta función, haga clic en Eliminar hojas de trabajo en blanco.


Artículo relacionado:

¿Cómo eliminar hojas de trabajo ocultas en Excel?

Las mejores herramientas de productividad de oficina

Características populares: Buscar, resaltar o identificar duplicados   |  Eliminar filas en blanco   |  Combine columnas o celdas sin perder datos   |   Ronda sin fórmula ...
Super búsqueda: Búsqueda virtual de criterios múltiples    Búsqueda V de valores múltiples  |   VLookup en varias hojas   |   Búsqueda difusa ....
Lista desplegable avanzada: Crear rápidamente una lista desplegable   |  Lista desplegable dependiente   |  Lista desplegable de selección múltiple ....
Administrador de columnas: Agregar un número específico de columnas  |  Mover columnas  |  Toggle Estado de visibilidad de columnas ocultas  |  Comparar rangos y columnas ...
Características destacadas: Enfoque de cuadrícula   |  Vista de diseño   |   Gran barra de fórmulas    Administrador de hojas y libros de trabajo   |  Biblioteca de Recursos (Texto automático)   |  Selector de fechas   |  Combinar hojas de trabajo   |  Cifrar/descifrar celdas    Enviar correos electrónicos por lista   |  Súper filtro   |   Filtro especial (filtro negrita/cursiva/tachado...) ...
Los 15 mejores conjuntos de herramientas12 Texto Herramientas (Añadir texto, Quitar caracteres, ...)   |   +50 Tabla Tipos (Diagrama de Gantt, ...)   |   40+ Práctico Fórmulas (Calcular la edad según el cumpleaños, ...)   |   19 Inserción Herramientas (Insertar código QR, Insertar imagen desde la ruta, ...)   |   12 Conversión Herramientas (Números a palabras, Conversión de Moneda, ...)   |   7 Fusionar y dividir Herramientas (Filas combinadas avanzadas, Células partidas, ...)   |   ... y más

Mejore sus habilidades de Excel con Kutools for Excel y experimente la eficiencia como nunca antes. Kutools for Excel ofrece más de 300 funciones avanzadas para aumentar la productividad y ahorrar tiempo.  Haga clic aquí para obtener la función que más necesita...

pestaña kte 201905


Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil

  • Habilite 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 de la misma ventana, en lugar de en nuevas ventanas.
  • ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!
Comments (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Estimado, no se si me pueda ayudar. Tengo esta macro precisamente para eliminar hojas vacías, pero no logro hacer que funcione al correrla una sola vez, la tengo que ejecutar dos veces para que borre todas las hojas vacías. Que esta fallando para que haga la tarea de borrar todas las hojas en una sola corrida.

La macro es:

Sub Buscar_Hojas_Vacías_y_Eliminarlas2()

Dim Nhojas As Integer
Dim i As Integer

On Error Resume Next
Application.ScreenUpdating = False
Application.DisplayAlerts = False

Nhojas = Sheets.Count

For i = 1 To Nhojas

If WorksheetFunction.CountA(Sheets(i).UsedRange) = 0 And Sheets(i).Shapes.Count = 0 Then

Sheets(i).Delete

Else
' Nada
End If
Next i

On Error GoTo 0
Application.ScreenUpdating = True
Application.DisplayAlerts = True

End Sub

Gracias, espero sus comentarios.
This comment was minimized by the moderator on the site
I cannot speak your language but I see a flaw in your code.
The problem is >> Nhojas = Sheets.Count
And then you depend on Nhojas but when you delete a sheet you do not reduce Nhojas by 1

So just add this line to your code after "Sheets(i).Delete" and before "Else":
Nhojas = Nhojas - 1

Done :)

You have done a good job though, but you need to dry run your code when you try and debug the code.
This comment was minimized by the moderator on the site
Public member 'WorksheetFunction' on type 'WorkbookClass' not found.
i'm using Interop.Excel
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations