Intercambie rápidamente el contenido de dos celdas o rangos en Excel
Intercambiar el contenido de dos celdas o rangos en Excel es una tarea habitual al reorganizar datos, ajustar diseños o corregir errores de entrada. Esta guía presenta tres métodos para hacerlo de forma rápida y eficiente, permitiéndole modificar sus datos sin recurrir a múltiples operaciones de cortar y pegar, lo que le ahorrará tiempo y reducirá el riesgo de errores.
Intercambie manualmente el contenido de dos celdas adyacentes
Intercambie fácilmente el contenido de dos celdas o rangos con solo unos pocos clics
Intercambie el contenido de dos celdas mediante código VBA
Intercambie manualmente el contenido de dos celdas adyacentes
A veces, es posible que necesite intercambiar dos celdas adyacentes. Este proceso se puede realizar manualmente con muy poco esfuerzo. A continuación, se detallan los pasos para intercambiar las celdas A4 y B4, tal como se muestra en las capturas de pantalla:
- Seleccione una de las celdas que desea intercambiar; por ejemplo, elija la celda A4.
- Mantenga pulsada la tecla Mayús y coloque el cursor en el borde derecho de la celda seleccionada.
- Arrastre con cuidado el cursor hasta el borde derecho de la celda B4.
- Cuando el cursor muestre el símbolo "工", suelte el ratón.
El contenido de las dos celdas ya debería haberse intercambiado, tal como se muestra en la siguiente captura de pantalla.
Intercambie fácilmente el contenido de dos celdas o rangos con solo unos pocos clics
Para quienes necesiten intercambiar celdas o rangos no adyacentes, utilizar un complemento de Excel como Kutools para Excel puede simplificar considerablemente el proceso.
Tras instalar Kutools para Excel, seleccione Kutools > Rango > Intercambiar Rangos para abrir el cuadro de diálogo Intercambiar Rangos y configúrelo a continuación como se indica.
- En la sección Rango 1 a intercambiar, seleccione la primera celda o rango que desee intercambiar.
- En la sección Rango 2 a intercambiar, seleccione la segunda celda o rango con el que desea intercambiar.Consejo: Para mayor comodidad, puede preseleccionar los dos rangos antes de abrir el cuadro de diálogo Intercambiar Rangos. Las selecciones previas aparecerán automáticamente en los campos "Rango 1 a intercambiar« y »Rango 2 a intercambiar", respectivamente.
- Haga clic en el botón Aceptar.
Resultado
Las dos celdas o rangos seleccionados se intercambian al instante. Consulte las capturas de pantalla:
Si desea probar gratuitamente (30 días) esta utilidad, haga clic aquí para descargarla y, a continuación, siga los pasos anteriores para aplicar la operación.
Intercambie el contenido de dos celdas no adyacentes con código VBA
Cuando las dos celdas no son adyacentes, el método anterior no funciona. En ese caso, podemos intercambiarlas mediante código VBA.
1. Pulse la tecla Ctrl y seleccione las dos celdas no adyacentes que desea intercambiar.
2. Haga clic en Programador > Visual Basic. Se mostrará una nueva ventana de Microsoft Visual Basic para Aplicaciones. A continuación, haga clic en Insertar > Módulo e introduzca el siguiente código en el Módulo:
Sub SwapTwoRange()
'Updateby20131120
Dim Rng1 As Range, Rng2 As Range
Dim arr1 As Variant, arr2 As Variant
xTitleId = "KutoolsforExcel"
Set Rng1 = Application.Selection
Set Rng1 = Application.InputBox("Range1:", xTitleId, Rng1.Address, Type:=8)
Set Rng2 = Application.InputBox("Range2:", xTitleId, Type:=8)
Application.ScreenUpdating = False
arr1 = Rng1.Value
arr2 = Rng2.Value
Rng1.Value = arr2
Rng2.Value = arr1
Application.ScreenUpdating = True
End Sub3. A continuación, haga clic en el botón 
para ejecutar el código. Tras hacerlo, aparecerá un cuadro de diálogo en el que podrá seleccionar las dos celdas que desea intercambiar. Vea las capturas de pantalla:
4. Haga clic en Aceptar en el cuadro de diálogo emergente; las dos celdas seleccionadas se intercambiarán. Vea las capturas de pantalla:
Notas: Este código VBA no puede intercambiar el formato de las dos celdas.
Demostración: Intercambie el contenido de dos celdas aleatorias con Kutools para Excel
Artículo relacionado:
Las mejores herramientas de productividad para Office
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.
- 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