¿Cómo eliminar todas las hojas en Excel excepto la especificada o la hoja activa?
Para eliminar todas las hojas de un libro de Excel excepto la especificada o la hoja de cálculo actual, siga los pasos que se indican a continuación.
Eliminar todas las hojas excepto una especificada con código VBA
Un clic para eliminar todas las hojas excepto la hoja activa actual con Kutools para Excel
Eliminar todas las hojas excepto una especificada con código VBA
Con el siguiente código VBA, podrá eliminar todas las hojas de un libro de Excel excepto la que especifique.
1. Pulse simultáneamente las teclas Alt + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.
2. Haga clic en Insertar > Módulo y, a continuación, copie y pegue el siguiente código VBA en la ventana del módulo.
Código VBA: Eliminar todas las hojas excepto las especificadas
Sub DeleteSheets1()
Dim xWs As Worksheet
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each xWs In Application.ActiveWorkbook.Worksheets
If xWs.Name <> "Sheet1" And xWs.Name <> "Sheet2" Then
xWs.Delete
End If
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End SubNotas:
1. “Hoja1” y “Hoja2” son las hojas que desea conservar en el libro de trabajo actual. Puede personalizarlas según sus necesidades.
2. Si desea eliminar todas las hojas excepto varias hojas especificadas, añada And xWs.Name "nombre de su hoja" antes de la palabra clave Then en la sexta línea del código. Por ejemplo: If xWs.Name "Hoja1" And xWs.Name "Hoja2" And xWs.Name «nombre de su hoja» Then
3. Si solo desea conservar una hoja y eliminar todas las demás del libro, elimine todas las condiciones And del código. Por ejemplo, para conservar Hoja1 en el libro de trabajo actual, debe cambiar la sexta línea del código por: If xWs.Name "Hoja1" Then
Eliminar todas las hojas excepto la hoja activa actual con Kutools para Excel (solo un clic)
P uede eliminar fácilmente todas las hojas excepto la hoja Hoja de Cálculo Actual actual con un solo clic mediante la utilidad Eliminar todas las hojas inactivasde Kutools para Excel.
1. Haga clic en KUTOOLS PLUS > Hoja de cálculo > Eliminar todas las hojas inactivas.
3. A continuación, aparecerá un cuadro de diálogo. Si decide eliminar todas las hojas excepto la hoja activa, haga clic en el botón Aceptar; de lo contrario, haga clic en el botón Cancelar.
Así, se eliminarán todas las hojas de su libro excepto la hoja activa actual.
Kutools para Excel: potencie Excel con más de 300 herramientas esenciales, agilice y simplifique su trabajo, y aproveche las funciones de IA para un procesamiento de datos más inteligente y una mayor productividad.Consígalo ahora
Demostración: Eliminar todas las hojas excepto la hoja activa actual con Kutools para Excel
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