¿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. |
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
Las mejores herramientas de productividad de oficina
Mejore sus habilidades de Excel con Kutools for Excel y experimente la eficiencia como nunca antes. Kutools for Excel ofrece más de 300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haga clic aquí para obtener la función que más necesita...
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!
