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 todos los rangos, excepto los seleccionados en Excel?

En Excel, podemos eliminar rápida y directamente los rangos seleccionados, pero ¿alguna vez ha tratado de eliminar otros contenidos de la celda, excepto los rangos seleccionados? En este artículo, presentaré algunos trucos para que resuelvas esta tarea en Excel de forma rápida y fácil.

Eliminar todos los rangos seleccionados excepto con código VBA

Eliminar todos los rangos, excepto los seleccionados, con Select Range Helper of Kutools for Excel

Eliminar todos los rangos, excepto los seleccionados, con rangos de copia de Kutools para Excel


Copie y pegue múltiples rangos a la vez:

Normalmente, Excel no admite la copia múltiple, pero, si tiene Kutools for Excel, Con su Copiar rangos función, puede copiar rápidamente varios rangos seleccionados y pegarlos en cualquier otra ubicación que necesite.

doc borra todos los 11 seleccionados


Eliminar todos los rangos seleccionados excepto con código VBA


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

1. Por favor, mantenga el Ctrl tecla para seleccionar las celdas que desea conservar.

doc borra todos los 1 seleccionados

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

3. En la Microsoft Visual Basic para aplicación cuadro de diálogo de la ventana, haga clic 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 20151113
    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 se abre un cuadro de aviso para recordarle que debe seleccionar el rango de celdas que desea conservar, si ha seleccionado los rangos en el paso 1, haga clic en OKDe lo contrario, puede seleccionar las celdas que desea en el cuadro de diálogo e ingresar las comas para separar los múltiples rangos, luego haga clic OK botón, ver captura de pantalla:

doc borra todos los 2 seleccionados

5. Después de hacer clic OK, todos los demás valores de celda han sido eliminados pero simplemente dejando los rangos seleccionados, vea la captura de pantalla:

doc borra todos los 3 seleccionados


Eliminar todos los rangos, excepto los seleccionados, con Select Range Helper of Kutools for Excel

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

Kutools for Excel : con más de 300 útiles complementos de Excel, de prueba sin límite en días 60.

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

1. Seleccione los rangos de celdas que desea mantener.

2. Luego haga clic Kutools > Seleccionar > Seleccionar Range Helper, mira la captura de pantalla:

doc borra todos los 4 seleccionados

3. En la Seleccionar Range Helper cuadro de diálogo, verificar Selección inversa, mira la captura de pantalla:

doc borra todos los 5 seleccionados

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

doc borra todos los 6 seleccionados

5. A continuación, cierre el cuadro de diálogo y presione Borrar clave para eliminar las selecciones a la vez. Y solo se conservaron las celdas deseadas, ver captura de pantalla:

doc borra todos los 7 seleccionados

Descarga gratuita Kutools for Excel ahora!


Eliminar todos los rangos, excepto los seleccionados, con Select Range Helper of Kutools for Excel

Otra utilidad-Copiar 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.

Kutools for Excel : con más de 300 útiles complementos de Excel, de prueba sin límite en días 60.

Después de instalar Kutools for Excel, por favor haz los siguientes pasos :( Descarga gratuita Kutools for Excel ahora! )

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

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

doc borra todos los 8 seleccionados

3. Y en la Copie múltiples rangos cuadro de diálogo, verificar Todo Bajo el Pegado especialverificar Incluyendo la altura de la fila y Incluyendo ancho de columna si desea mantener la altura de fila y el ancho de columna que desea, consulte la captura de pantalla:

doc borra todos los 9 seleccionados

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 borra todos los 10 seleccionados

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

Descarga gratuita Kutools for Excel ahora!


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

Kutools for Excel: con más de 200 útiles complementos de Excel, de prueba sin límite en días 60. Descargar y prueba gratis 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...
  • Funciona con Office 2007-2019 y 365, y es compatible con todos los idiomas. Es fácil de implementar en su empresa. 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.