¿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.

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:

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:

---

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.

Ir a descargar Prueba gratis 30 díasComprar PayPal / Mi Comercio

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:

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:

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:

¡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:

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:

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