Saltar al contenido principal

¿Cómo revertir fácilmente las selecciones de rangos seleccionados en Excel?

Supongamos que ha seleccionado algunas celdas específicas de un rango, y ahora necesita invertir la selección: anule la selección de las celdas seleccionadas y seleccione las otras celdas. Vea la siguiente captura de pantalla:

Por supuesto, puede invertir la selección manualmente. Pero este artículo te traerá algunos trucos lindos para revertir selecciones rápidamente:

Selecciones inversas en Excel con VBA

Selección inversa en Excel con Kutools para Excel


flecha azul burbuja derecha Selecciones inversas en Excel con VBA

El uso de la macro VBA le facilitará el trabajo para revertir las selecciones en el área de trabajo de la hoja de trabajo activa.

Step1: Seleccione las celdas en las que desea invertirlas.

Step2: Mantenga presionada la tecla otro + F11 claves en Excel, y abre el Microsoft Visual Basic para aplicaciones ventana.

Step3: Haga clic recuadro > Móduloy pegue la siguiente macro en la ventana del módulo.

VBA para invertir selecciones

Sub InvertSelection()
'Updateby20140314
Dim rng As Range
Dim Rng1 As Range
Dim Rng2 As Range
Dim OutRng As Range
xTitleId = "KutoolsforExcel"
Set Rng1 = Application.Selection
Set Rng1 = Application.InputBox("Range1 :", xTitleId, Rng1.Address, Type:=8)
Set Rng2 = Application.InputBox("Range2", xTitleId, Type:=8)
For Each rng In Rng2
    If Application.Intersect(rng, Rng1) Is Nothing Then
        If OutRng Is Nothing Then
            Set OutRng = rng
        Else
            Set OutRng = Application.Union(OutRng, rng)
        End If
    End If
Next
OutRng.Select
End Sub
	

Step4: Presione el F5 clave para ejecutar esta macro. Luego, se muestra un cuadro de diálogo para que seleccione algunas celdas que no necesita seleccionar en el resultado. Ver captura de pantalla:




Paso 5: Haga clic OKy seleccione un rango en el que desee invertir la selección en otro cuadro de diálogo emergente. Ver captura de pantalla:




Paso 6: Haga clic OK. puede ver que la selección se ha invertido.


Notas: Este VBA también está trabajando en una hoja de trabajo en blanco.


flecha azul burbuja derecha Selecciones inversas en Excel con Kutools para Excel

Es posible que desee invertir rápidamente cualquier selección en Excel, Seleccionar asistente de rango herramientas de Kutools for Excel puede ayudarlo a revertir rápidamente la selección en Excel. Este truco le facilita revertir cualquier selección en todo el libro de trabajo.

Kutools para Excel incluye más de 300 útiles herramientas de Excel. Prueba gratis sin limitación en 30 días. Comprar ahora .

Step1: Seleccione las celdas en las que desea invertirlas.

Step2: Haga clic en el Kutools > Seleccionar herramientas > Seleccionar asistente de rango ....

Step3: En Seleccionar asistente de rango cuadro de diálogo, verifique Selección inversa .

Step4: 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 no seleccionadas se han seleccionado del rango a la vez.

Step5: Y luego cierre el Seleccionar asistente de rango caja de diálogo.

Para obtener información más detallada acerca de Seleccionar asistente de rango, Por favor visite Seleccionar descripción de la función Range Helper.


Artículos relacionados:

Las mejores herramientas de productividad de oficina

🤖 Asistente de IA de Kutools: Revolucionar el análisis de datos basado en: Ejecución inteligente   |  Generar codigo  |  Crear fórmulas personalizadas  |  Analizar datos y generar gráficos  |  Invocar funciones de Kutools...
Características populares: Buscar, resaltar o identificar duplicados   |  Eliminar filas en blanco   |  Combine columnas o celdas sin perder datos   |   Ronda sin fórmula ...
Super búsqueda: Búsqueda virtual de criterios múltiples    Búsqueda V de valores múltiples  |   VLookup en varias hojas   |   Búsqueda difusa ....
Lista desplegable avanzada: Crear rápidamente una lista desplegable   |  Lista desplegable dependiente   |  Lista desplegable de selección múltiple ....
Administrador de columnas: Agregar un número específico de columnas  |  Mover columnas  |  Toggle Estado de visibilidad de columnas ocultas  |  Comparar rangos y columnas ...
Características destacadas: Enfoque de cuadrícula   |  Vista de diseño   |   Gran barra de fórmulas    Administrador de hojas y libros de trabajo   |  Biblioteca de Recursos (Texto automático)   |  Selector de fechas   |  Combinar hojas de trabajo   |  Cifrar/descifrar celdas    Enviar correos electrónicos por lista   |  Súper filtro   |   Filtro especial (filtro negrita/cursiva/tachado...) ...
Los 15 mejores conjuntos de herramientas12 Texto Herramientas (Añadir texto, Quitar caracteres, ...)   |   50+ Tabla Tipos (Diagrama de Gantt, ...)   |   40+ Práctico Fórmulas (Calcular la edad según el cumpleaños, ...)   |   19 Inserción Herramientas (Insertar código QR, Insertar imagen desde la ruta, ...)   |   12 Conversión Herramientas (Números a palabras, Conversión de Moneda, ...)   |   7 Fusionar y dividir Herramientas (Filas combinadas avanzadas, Células partidas, ...)   |   ... y más

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

Descripción


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!

 

 

 

 

 

Comments (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Reverse Selections In Excel With VBA - confirmed not working.

Please fix.
This comment was minimized by the moderator on the site
Try this:


Sub InvertSelection()
Dim rng As Range
Dim Rng1 As Range
Dim Rng2 As Range
Dim OutRng As Range
Dim xTitleId As String
xTitleId = "Invert Selection"
Set Rng1 = Application.Selection
Set Rng1 = Application.InputBox("Range1 :", xTitleId, Rng1.Address, Type:=8)
Set Rng2 = Application.InputBox("Range2", xTitleId, Type:=8)
For Each rng In Rng2
If Application.Intersect(rng, Rng1) Is Nothing Then
If OutRng Is Nothing Then
Set OutRng = rng
Else
Set OutRng = Application.Union(OutRng, rng)
End If
End If
Next
OutRng.Select
End Sub
This comment was minimized by the moderator on the site
invert selection vba not working
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations