Consejo: Otros idiomas son traducidos por Google. Puedes visitar el English versión de este enlace.
Iniciar sesión
x
or
x
x
Suscríbete
x

or

¿Cómo eliminar todas las hojas excepto las especificadas / actuales en Excel?

Para eliminar todas las hojas de un libro de Excel, excepto una hoja activa o una hoja activa, puede tratar esto como se muestra a continuación.

Eliminar todas las hojas excepto la especificada con código VBA

Un clic para eliminar todas las hojas excepto la activa actual con Kutools para Excel


Elimine rápidamente todas las hojas de trabajo excepto la activa en el libro actual:

Las Eliminar todas las hojas inactivas utilidad de Kutools for Excel le ayuda a eliminar fácilmente todas las hojas de trabajo en el libro de trabajo actual, excepto el activo. Ver captura de pantalla:

Kutools for Excel incluye más de las útiles herramientas de Excel de 300. Gratis para probar sin limitaciones en los días 60. Descargue la versión de prueba gratuita ahora

Ficha Office Habilite la edición y navegación con pestañas en Office y haga su trabajo mucho más fácil ...
Kutools para Excel: la mejor herramienta de productividad de Office resolverá la mayoría de sus problemas de Excel
  • Texto automático: Cree sus gráficos, imágenes, celdas, fórmulas complejas y reutilizar ellos rápidamente en el futuro.
  • Más de características de texto 20: Extraer número de la cadena de texto; Extraer o eliminar parte de los textos; Convertir números y monedas a palabras en inglés ...
  • Herramientas de fusión: Múltiples libros de trabajo y hojas en uno; Fusionar múltiples celdas / filas / columnas y guardar datos; Combinar filas duplicadas y sumar ...
  • Herramientas divididas: Dividir datos en varias hojas en función del valor; Un libro de trabajo para múltiples archivos Excel, PDF o CSV; De una columna a varias columnas ...
  • Saltar pasta Filas ocultas / filtradas; Cuenta y suma por color de fondo; Crear lista de correo y Enviar correos electrónicos por el valor de la celda...
  • Súper filtro: Cree esquemas de filtro avanzados y aplique a cualquier hoja; Tipo de Propiedad por semana, día, frecuencia y más; Filtrar por negrita, fórmulas, comentario ...
  • Más de potentes funciones de 300; Funciona con Office 2007-2019 y 365; Soporta todos los idiomas; Fácil despliegue en compañía; Funciones completas de prueba gratuita de 60-day.

Eliminar todas las hojas excepto la especificada con código VBA


Con el código de VBA a continuación, puede eliminar todas las hojas en un libro de trabajo excepto uno específico en Excel.

1. Prensa otro + F11 teclas simultáneamente para abrir el Aplicación Microsoft Visual Basic ventana.

2. Hacer clic recuadro > Módulo, luego copie y pegue debajo del código de VBA en la ventana del Módulo.

Código de VBA: elimine 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 Sub

Notas:

1. "Sheet1"Y"Sheet2"Son hojas que desea conservar en el libro de trabajo actual. Puede cambiarlos en función de sus necesidades.

2. Si desea eliminar todo pero mantener más hojas, agregue el código Y xWs.Name <> "su nombre de hoja" antes de Entonces palabra en la sexta línea del código. Como:

Si xWs.Name <> "Sheet1" y xWs.Name <> "Sheet2" Y xWs.Name <> "su nombre de hoja" Entonces

3. Si solo desea mantener una hoja y borrar todo del libro de trabajo, elimine todo Y condición en el código. Por ejemplo, para mantener Sheet1 en el libro actual, debe cambiar el código de la sexta línea a: Si xWs.Name <> "Sheet1" Entonces


Eliminar todas las hojas excepto la activa actual con Kutools for Excel (solo un clic)

YPuede eliminar fácilmente todas las hojas excepto la hoja activa actual con solo un clic Eliminar todas las hojas inactivas utilidad de Kutools for Excel.

Kutools for Excel : con más de 300 útiles complementos de Excel, gratis para probar sin limitaciones en los días 60.

1. Hacer clic Empresa > Hoja de trabajo > Eliminar todas las hojas inactivas. Ver captura de pantalla:

3. Luego aparece un cuadro de diálogo, si determina eliminar todas las hojas excepto la activa, haga clic en OK botón, de lo contrario, haga clic en Cancelar botón.

Luego se eliminan todas las hojas, excepto la activa actual en su libro de trabajo.

Propina.Si desea tener una versión de prueba gratuita de esta utilidad, vaya a descarga el software libremente primero, y luego vaya a aplicar la operación de acuerdo a los pasos anteriores.


Agregue texto en medio de celdas seleccionadas con Kutools para Excel

Kutools for Excel incluye más de las útiles herramientas de Excel de 300. Gratis para probar sin limitaciones en los días 60. ¡Descargue la versión de prueba gratuita ahora!


Kutools for Excel: la mejor herramienta de productividad de Office aumenta su productividad en un 80%

  • Super Formula Bar (edite fácilmente varias líneas de texto y fórmula); Diseño de lectura (lee y edita fácilmente un gran número de celdas); Pegar en rango filtrado...
  • Combinar celdas / filas / columnas y mantener datos; Contenido de celdas divididas; Combinar filas duplicadas y suma / promedio... Prevenir células duplicadas; Comparar rangos...
  • Seleccione Duplicado o Único Filas; Seleccionar filas en blanco (todas las celdas están vacías); Super Find y Fuzzy Find en muchos libros de trabajo; Selección aleatoria ...
  • Copia exacta Celdas múltiples sin cambiar la referencia de fórmula; Crear referencias automáticamente a múltiples hojas; Insertar viñetas, Casillas de verificación y más ...
  • Fórmulas favoritas e insertadas rápidamente, Gamas, cuadros y cuadros; Cifrar celdas con contraseña Crear una lista de correo y enviar correos electrónicos ...
  • Extracto del texto, Agregar texto, Eliminar por posición, Eliminar espacio; Crear e imprimir subtotales de paginación; Convertir entre contenido de celdas y comentarios...
  • Súper filtro (guardar y aplicar esquemas de filtro a otras hojas); Clasificación avanzada por mes / semana / día, frecuencia y más; Filtro especial por negrita, cursiva ...
  • Combinar libros de trabajo y hojas de trabajo; Combinar tablas basadas en columnas clave; Dividir datos en varias hojas; Conversión por lotes xls, xlsx y PDF...
  • Más de potentes funciones de 300. Funciona con Office 2007-2019 y 365. Soporta todos los idiomas. Fácil despliegue en compañía. Funciones completas de prueba gratuita de 60-day.
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

  • Habilitar la edición y lectura con pestañas en Word, Excel, PowerPoint, Editor, Acceso, Visio y Proyecto.
  • Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
  • ¡Aumenta tu productividad en un 50% y reduce cientos de clics de ratón por ti todos los días!
fondo officetab
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.