Note: The other languages of the website are Google-translated. Back to English

¿Cómo eliminar todos los rangos excepto los seleccionados en Excel?

En Excel, podemos eliminar rápida y directamente los rangos seleccionados, pero ¿alguna vez ha intentado eliminar otros contenidos de celda excepto los rangos seleccionados? En este artículo, te presentaré algunos trucos para que puedas resolver esta tarea en Excel de forma rápida y sencilla.

Elimine todos los rangos excepto los seleccionados con código VBA

Elimine todos los rangos excepto los seleccionados con Select Range Helper de Kutools para Excel

Elimine todos los rangos excepto los seleccionados con Copiar rangos de Kutools para Excel


Elimine todos los rangos excepto los seleccionados con código VBA

No hay una forma directa de eliminar todos los valores de celda no seleccionados a la vez, pero el siguiente código VBA puede ayudarlo, haga lo siguiente:

1. Por favor sostenga el Ctrl para seleccionar las celdas que desea conservar.

doc eliminar todos menos el 1 seleccionado

2. prensa Alt + F11 teclas simultáneamente para abrir el Microsoft Visual Basic para aplicaciones ventana.

3. En la Microsoft Visual Basic para aplicaciones cuadro de diálogo de la ventana, haga clic en recuadro > Módulo, luego copie y pegue el siguiente código VBA en el Módulo ventana.

Código de VBA: elimine todos los valores de celda pero los rangos seleccionados

Sub ClearAllExceptSelection()
'updateby Extendoffice
    Dim xRg As Range
    Dim xCell As Range
    Dim xAddress As String
    Dim xUpdate As Boolean
    On Error Resume Next
    xAddress = Application.ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select the ranges want to keep", "Kutools for Excel", xAddress, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    xUpdate = Application.ScreenUpdating
    Application.ScreenUpdating = False
    For Each xCell In ActiveSheet.UsedRange
        If Intersect(xCell, xRg) Is Nothing Then
            xCell.Clear
        End If
    Next
    Application.ScreenUpdating = xUpdate
End Sub

4. Entonces presione F5 clave para ejecutar este código, y aparece un cuadro emergente para recordarle que seleccione el rango de celdas que desea mantener, si ha seleccionado los rangos en el paso 1, haga clic en OK, de lo contrario, puede seleccionar las celdas que desee en el cuadro de solicitud e ingresar las comas para separar los múltiples rangos, luego hacer clic OK botón, ver captura de pantalla:

doc eliminar todos menos el 2 seleccionado

5. Después de hacer clic OK, todos los demás valores de celda se han eliminado, pero solo quedan los rangos seleccionados, vea la captura de pantalla:

doc eliminar todos menos el 3 seleccionado


Elimine todos los rangos excepto los seleccionados con Select Range Helper de Kutools para Excel

Si tienes instalado Kutools for Excel, Con su Selección inversa característica de Seleccionar asistente de rango utilidad, puede invertir rápidamente la selección y luego eliminar las selecciones invertidas de una vez.

Kutools for Excel : con más de 300 prácticos complementos de Excel, prueba gratuita y sin límite en 30 días. 

Después de instalar Kutools for Excel, haz lo siguiente :( ¡Descarga gratis Kutools para Excel ahora! )

1. Seleccione los rangos de celdas que desea conservar.

2. Luego haga clic Kutools > Seleccione > Seleccionar asistente de rango, ver captura de pantalla:

3. En la Seleccionar asistente de rango cuadro de diálogo, comprobar Selección inversa, ver captura de pantalla:

doc eliminar todos menos el 5 seleccionado

4. Y luego arrastre el mouse para seleccionar el rango en el que desea invertir las selecciones. Cuando suelta el mouse, las celdas seleccionadas han sido deseleccionadas y las celdas deseleccionadas se han seleccionado a la vez. Ver captura de pantalla:

doc eliminar todos menos el 6 seleccionado

5. Luego cierre el cuadro de diálogo y presione Borrar para eliminar las selecciones de una vez. Y solo se han mantenido las celdas deseadas, vea la captura de pantalla:

doc eliminar todos menos el 7 seleccionado

¡Descarga gratis Kutools para Excel ahora!


Elimine todos los rangos excepto los seleccionados con Select Range Helper de Kutools para Excel

Otra utilidadCopiar rangos of Kutools for Excel también puede ayudarlo a terminar este trabajo, solo necesita copiar los rangos seleccionados en una nueva hoja de trabajo y luego eliminar la hoja de trabajo anterior.

Después de instalar Kutools for Excel, por favor siga los siguientes pasos :( ¡Descarga gratis Kutools para Excel ahora! )

1. Sostener Ctrl para seleccionar los rangos de celdas que desea mantener.

2. Luego haga clic Kutools > Copiar rangos, ver captura de pantalla:

3. Y en la Copiar varios rangos cuadro de diálogo, comprobar Todos Bajo el Pegado especialverificar Incluyendo la altura de la fila y Incluyendo el ancho de la columna si desea mantener la altura de la fila y el ancho de la columna que desea, vea la captura de pantalla:

doc eliminar todos menos el 9 seleccionado

4. Luego haga clic Ok , y aparecerá otro cuadro emergente para recordarle que seleccione una celda para colocar las celdas copiadas, seleccione una celda en una nueva hoja de trabajo, vea la captura de pantalla:

doc eliminar todos menos el 10 seleccionado

5. Y luego haz clic OK, y solo los rangos seleccionados se han pegado en la nueva hoja de trabajo, y ahora puede eliminar la hoja de trabajo original cuando lo necesite.

¡Descarga gratis Kutools para Excel ahora!


Demostración: elimine todos los rangos excepto los seleccionados con Kutools para Excel

Kutools for Excel: con más de 300 prácticos complementos de Excel, prueba gratuita y sin límite en 30 días. ¡Descarga y prueba gratis ahora!

Las mejores herramientas de productividad de oficina

Kutools para Excel resuelve la mayoría de sus problemas y aumenta su productividad en un 80%

  • Reutilizar: Inserte rápidamente fórmulas complejas, gráficos y cualquier cosa que hayas usado antes; Cifrar celdas con contraseña; Crear lista de distribución y enviar correos electrónicos ...
  • Barra de súper fórmula (edite fácilmente varias líneas de texto y fórmulas); Diseño de lectura (leer y editar fácilmente un gran número de celdas); Pegar en rango filtrado...
  • Combinar celdas / filas / columnas sin perder datos; Contenido de celdas divididas; Combinar filas / columnas duplicadas... Prevenir celdas 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 Varias celdas sin cambiar la referencia de la fórmula; Crear referencias automáticamente a varias hojas; Insertar viñetas, Casillas de verificación y más ...
  • Extraer texto, Agregar texto, Eliminar por posición, Quitar espacio; Crear e imprimir subtotales de paginación; Convertir entre contenido de celdas y comentarios...
  • Súper filtro (guardar y aplicar esquemas de filtros a otras hojas); Orden avanzado por mes / semana / día, frecuencia y más; Filtro especial en negrita, cursiva ...
  • Combinar libros y hojas de trabajo; Combinar tablas basadas en columnas clave; Dividir datos en varias hojas; Conversión por lotes de xls, xlsx y PDF...
  • Más de 300 potentes funciones. Compatible con Office/Excel 2007-2021 y 365. Compatible con todos los idiomas. Fácil implementación en su empresa u organización. Funciones completas Prueba gratuita de 30 días. Garantía de devolución de dinero de 60 días.
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!
officetab parte inferior
Comentarios (0)
Aún no hay calificaciones. ¡Sé el primero en calificar!
No hay comentarios publicados aquí todavía
Deje sus comentarios
Publicar como invitado
×
Califica esta publicación:
0   Personajes
Ubicaciones sugeridas

Seguinos

Copyright © 2009 - www.extendoffice.com. | Reservados todos los derechos. Energizado por ExtendOffice, | Mapa del Sitio
Microsoft y el logotipo de Office son marcas comerciales o marcas comerciales registradas de Microsoft Corporation en los Estados Unidos y / o en otros países.
Protegido por Sectigo SSL