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

En Excel, podemos eliminar rápidamente y directamente los rangos seleccionados, pero ¿has intentado alguna vez eliminar el contenido de otras celdas excepto los rangos seleccionados? En este artículo, te presentaré algunos trucos para resolver esta tarea en Excel de manera rápida y sencilla.

Eliminar todo excepto los rangos seleccionados con código VBA

Eliminar todo excepto los rangos seleccionados con Asistente de Rango de Kutools para Excel

Eliminar todo excepto los rangos seleccionados con Copiar Rangos de Kutools para Excel

Eliminar todo excepto los rangos seleccionados con código VBA

No hay una forma directa de eliminar todos los valores de las celdas no seleccionadas a la vez, pero el siguiente código VBA puede ayudarte. Por favor, sigue estos pasos:

1. Por favor, mantén presionada la tecla Ctrl para seleccionar las celdas que deseas conservar.

2. Presiona simultáneamente las teclas Alt + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

3. En el cuadro de diálogo de Microsoft Visual Basic para Aplicaciones, haz clic en Insertar > Módulo, luego copia y pega el siguiente código VBA en la ventana del Módulo.

Código VBA: eliminar todos los valores de las celdas excepto 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. Luego presiona la tecla F5 para ejecutar este código, y aparecerá un cuadro de diálogo para recordarte que selecciones el rango de celdas que deseas mantener. Si ya seleccionaste los rangos en el paso 1, haz clic en Aceptar; si no, puedes seleccionar las celdas deseadas en el cuadro de diálogo e ingresar comas para separar los múltiples rangos, luego haz clic en el botón Aceptar, ver captura de pantalla:

5. Después de hacer clic en Aceptar, se habrán eliminado todos los demás valores de las celdas, dejando solo los rangos seleccionados, ver captura de pantalla:

Eliminar todo excepto los rangos seleccionados con Asistente de Rango de Kutools para Excel

Si has instalado Kutools para Excel, con su función Complemento del Asistente de Rango, puedes invertir rápidamente la selección y luego eliminar las selecciones invertidas de una vez.

Después de instalar Kutools para Excel, por favor, sigue los siguientes pasos:

1. Selecciona los rangos de celdas que deseas conservar.

2. Luego haz clic en Kutools > Seleccionar > Asistente de Rango, ver captura de pantalla:

3. En el cuadro de diálogo Asistente de Rango, marca Complemento, ver captura de pantalla:

4. Luego arrastra el ratón para seleccionar el rango donde deseas invertir las selecciones. Cuando sueltes el ratón, las celdas seleccionadas se habrán deseleccionado y las celdas no seleccionadas se habrán seleccionado de inmediato. Ver captura de pantalla:

5. Luego cierra el cuadro de diálogo y presiona la tecla Eliminar para eliminar las selecciones de una vez. Solo se conservarán las celdas deseadas, ver captura de pantalla:

Eliminar todo excepto los rangos seleccionados con Asistente de Rango de Kutools para Excel

Otra utilidad - Copiar Rangos de Kutools para Excel también puede ayudarte a realizar esta tarea. Solo necesitas copiar tus rangos seleccionados a una nueva hoja de cálculo y luego eliminar la hoja de cálculo antigua.

Después de instalar Kutools para Excel, por favor, sigue los siguientes pasos:

1. Mantén presionada la tecla Ctrl para seleccionar los rangos de celdas que deseas conservar.

2. Luego haz clic en Kutools > Copiar Rangos, ver captura de pantalla:

3. Y en el cuadro de diálogo Copiar Múltiples Rangos, marca la opción Todos bajo Pegado Especial, marca Incluir Altura de Fila e Incluir Ancho de Columna si deseas mantener la altura de fila y el ancho de columna que deseas, ver captura de pantalla:

4. Luego haz clic en el botón Aceptar, y aparecerá otro cuadro de diálogo para recordarte que selecciones una celda donde colocar las celdas copiadas. Por favor, selecciona una celda en una nueva hoja de cálculo, ver captura de pantalla:

5. Luego haz clic en Aceptar, y solo se habrán pegado tus rangos seleccionados en la nueva hoja de cálculo, y ahora puedes eliminar la hoja de cálculo original según sea necesario.

Demostración: Eliminar todo excepto los rangos seleccionados con Kutools para Excel