KutoolsforOffice — Una solución, cinco potentes herramientas.Lograr más con menos esfuerzo.Venta de marzo: 20 % de descuento

¿Cómo diferenciar rápidamente desde Seleccionar rango en Excel?

AutoraKelly Fecha de modificación

Supongamos que necesita deseleccionar algunas celdas o rangos de la selección actual; tendrá que anular toda la selección y volver a seleccionar, ya que Excel no ofrece una forma de hacerlo directamente una vez realizada la selección. Este artículo presenta algunas guías prácticas para deseleccionar parte de las celdas o rangos de la selección actual.

Deseleccione parte de las celdas o rangos de la selección con código VBA

Deseleccione parte de las celdas o rangos de la selección con Kutools para Excel

Por ejemplo, ha seleccionado muchas celdas, pero ahora descubre que hay algunas que no desea. Por tanto, debe deseleccionarlas y conservar las demás celdas seleccionadas; consulte las siguientes capturas de pantalla:

una captura de pantalla de los datos originalesuna captura de pantalla de una flechauna captura de pantalla del resultado al deseleccionar celdas de rangos seleccionados

Deseleccione parte de las celdas o rangos de la selección con código VBA

VBA es una forma fantástica de realizar en Excel operaciones que no resultan sencillas con los comandos habituales. Esto también se aplica a la diferencia entre rangos.

Paso 1: Seleccione el rango con el que va a trabajar;

Paso 2: Haga clic en una celda de la selección que quiera deseleccionar mientras mantiene pulsada la tecla Ctrl.

Paso 3: Mantenga pulsadas las teclas Alt + F11 en Excel; se abrirá la ventana de Microsoft Visual Basic para Aplicaciones.

Paso 4: Haga clic en Insertar > Módulo y pegue la siguiente macro en la ventana del módulo.

VBA para deseleccionar la celda activa de la selección

Sub UnSelectCell()
'Updateby20140314
Dim rng As Range
Dim InputRng As Range
Dim DeleteRng As Range
Dim OutRng As Range
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
Set DeleteRng = Application.InputBox("Delete Range", xTitleId, Type:=8)
For Each rng In InputRng
    If Application.Intersect(rng, DeleteRng) 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

Paso 5: Pulse la tecla F5 para ejecutar esta macro. A continuación, aparecerá un cuadro de diálogo en el que podrá seleccionar un rango de trabajo. Consulte las capturas de pantalla:

una captura de pantalla de deseleccionar celdas de rangos seleccionados con VBA

Paso 6: A continuación, haga clic en Aceptar; aparecerá otro cuadro de diálogo para diferenciar dentro del rango. Si desea deseleccionar más de una celda en el rango, puede mantener pulsada la tecla Ctrl para seleccionarlas una a una. Consulte la captura de pantalla:

una captura de pantalla de deseleccionar celdas de rangos seleccionados con el rango seleccionado en VBA

Paso 7: Haga clic en Aceptary podrá ver el resultado:

una captura de pantalla del resultado al deseleccionar celdas de rangos seleccionados con VBA


Deseleccione parte de las celdas o rangos de la selección con Kutools para Excel

Si necesita deseleccionar muchas celdas o rangos de una selección, el método VBA anterior no es adecuado. Por ello, le presentamos el siguiente truco: las herramientas Asistente de Rango de Kutools para Excel, que le permiten deseleccionar cualquier celda o rango de la selección de forma fácil y rápida.

Kutools para Excel incluye más de 300 herramientas útiles para Excel. ¡Pruébelo gratis sin limitaciones durante 30 días!¡Obténgalo ahora!.

Paso 1: Haga clic en Kutools > Seleccionar > Asistente de Rango….

Paso 2: En el cuadro de diálogo Asistente de Rango, active la opción Diferencia y, a continuación, haga clic o arrastre el ratón para seleccionar los rangos de diferencia. Consulte la captura de pantalla:

una captura de pantalla de deseleccionar celdas de rangos seleccionados con Kutools for Excel

Paso 3: Las celdas que no deseaba ya se han deseleccionado. Por último, cierre el cuadro de diálogo Asistente de Rango.

Para obtener más información detallada sobre el Asistente de Rango, visite la descripción de la función Asistente de Rango.


Artículos relacionados:


Las mejores herramientas de productividad para Office

🤖KUTOOLS AI Asistente: Revolucione Análisis de datos basándose en:Ejecución Inteligente   |  Generar código|  Crear fórmulas personalizadas  |  Analizar datos y generar gráficos|  Invocar Funciones mejoradas
Funciones populares:Buscar, resaltar o Marcar duplicados   |  Eliminar filas en blanco   |  Combinar Columnas o celdas sin perder datos   |   Redondeo sin usar fórmulas...
Super BUSCARV:Búsqueda vertical (VLookup) con múltiples criterios  |  Búsqueda vertical (VLookup) con múltiples valores  |   Búsqueda vertical (VLookup) entre varias hojas   |   Coincidencia difusa....
Lista desplegable avanzada:Crear rápidamente una lista desplegable   |  Lista desplegable dependiente   |  Lista desplegable de selección múltiple....
Gestor de columnas:Añadir un número específico de columnas|Mover columnas|Alternar el estado de visibilidad de columnas ocultas|Comparar rangos y columnas...
Funciones destacadas:Cuadrícula de enfoque   |  Vista de diseño   |Barra de fórmulas mejorada   | Gestor de libros y hojas   |  Biblioteca de recursos(Texto automático)|  Selector de Fecha   |  Combinar Hojas de Cálculo  |  Cifrar/Descifrar celdas   | Enviar correos electrónicos desde una lista   |  Super Filtro   |   Filtro especial(Filtrar celdas con fuente en negrita/cursiva/tachado...) ...
Principales conjuntos de herramientas 15:12 Herramientasde texto(Agregar texto,Eliminar caracteres específicos, ...)|   50+Tiposde gráfico(Diagrama de Gantt, ...)|   40+ Fórmulas prácticas(Calcular la edad basada en la fecha de nacimiento, ...)|   19 Herramientasde inserción(Insertar Código QR,Insertar imagen desde ruta, ...)|   12 Herramientasde conversión(Convertir a palabras,Conversión de moneda, ...)|   7 Herramientasde combinación y división(Combinar filas avanzado,Dividir celdas, ...)|...y muchas más
Use Kutools en su idioma preferido: compatible con inglés, español, alemán, francés, chino y 40+ más idiomas.¡

Potencie sus habilidades en Excel con Kutools para Excel y experimente una eficiencia como nunca antes.Kutools para Excel ofrece más de 300 funciones avanzadas para aumentar su productividad y Ahorrar tiempo.Haga clic aquí para obtener la función que más necesita...


Office Tab aporta una interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil

  • Active 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 dentro de la misma ventana, en lugar de hacerlo en ventanas separadas.
  • ¡Aumente su productividad en un 50 % y elimine cientos de clics del ratón cada día!

Todos los complementos de Kutools en un solo instalador.

Kutools for Office es la suite que incluye complementos para Excel, Word, Outlook y PowerPoint, además de Office Tab Pro, ideal para equipos que trabajan en distintas aplicaciones de Office.

ExcelWordOutlookTabsPowerPoint
  • Suite integral— complementos para Excel, Word, Outlook y PowerPoint + Office Tab Pro
  • Un instalador, una licencia— configuración en minutos (compatible con MSI)
  • Rendimiento mejorado en conjunto— productividad optimizada en todas las aplicaciones de Office
  • Prueba gratuita de 30 días con todas las funciones— sin registro ni tarjeta de crédito
  • La mejor relación calidad-precio— ahorre frente a la compra individual de complementos