Intercambiar rápidamente el contenido de dos celdas o rangos en Excel

Intercambiar el contenido de dos celdas o rangos en Excel es un requisito común al reorganizar datos, ajustar diseños o corregir errores de entrada. Esta guía presentará tres métodos para intercambiar contenido en Excel de manera rápida y eficiente, permitiéndole modificar sus datos sin necesidad de cortar y pegar extensivamente, lo que puede ahorrar tiempo y reducir el riesgo de errores.

Intercambiar manualmente el contenido de dos celdas adyacentes
Intercambiar fácilmente el contenido de dos celdas o rangos con solo unos pocos clics
Intercambiar el contenido de dos celdas con código VBA

Intercambiar manualmente el contenido de dos celdas adyacentes

Ocasionalmente, puede encontrarse necesitando intercambiar dos celdas adyacentes. Esto se puede hacer manualmente sin mucho esfuerzo. A continuación, se describen los pasos para intercambiar las celdas A4 y B4, como se muestra en las capturas de pantalla:

1. Seleccione una de las celdas a intercambiar: Por ejemplo, seleccione la celda A4.
2. Mantenga presionada la tecla Shift y coloque el cursor en el borde derecho de la celda seleccionada.
3. Arrastre cuidadosamente el cursor hacia el borde derecho de la celda B4.
4. Una vez que el cursor muestre un símbolo "工", suelte el mouse.

El contenido de las dos celdas debería estar ahora intercambiado, como se muestra en la captura de pantalla a continuación.

Intercambiar fácilmente el contenido de dos celdas o rangos con solo unos pocos clics

Para aquellos que necesitan intercambiar celdas o rangos no adyacentes, usar un complemento de Excel como Kutools for Excel puede simplificar significativamente el proceso.

Después de instalar Kutools for Excel, seleccione Kutools > Rango > Intercambiar Rangos para abrir el cuadro de diálogo Intercambiar Rangos, y luego configure como sigue.

1. En la sección Rango 1 a intercambiar, seleccione la primera celda o rango que desea intercambiar.
2. En la Rango 2 a intercambiar sección, seleccione la segunda celda o rango con la que desea intercambiar.
   Consejos: Para mayor facilidad, puede preseleccionar los dos rangos antes de abrir el cuadro de diálogo Intercambiar Rangos. Los rangos preseleccionados aparecerán automáticamente en los cuadros "Rango 1 a intercambiar" y "Rango 2 a intercambiar" respectivamente.
3. Haga clic en el botón Aceptar.
   

Resultado

Luego, los dos rangos o celdas seleccionadas se intercambian inmediatamente. Ver capturas de pantalla:

Intercambiar el contenido de dos celdas no adyacentes con código VBA

Cuando las dos celdas no son adyacentes, el método anterior no funcionará. Podemos intercambiarlas con código VBA.

1. Presione la tecla Ctrl y seleccione las dos celdas no adyacentes que desea intercambiar.

2. Haga clic en Desarrollador>Visual Basic, se mostrará una nueva ventana de Microsoft Visual Basic para aplicaciones, 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 Sub

3. Luego haga clic en el botón para ejecutar el código, luego se mostrará un cuadro de diálogo para que seleccione las dos celdas entre las que desea intercambiar. Ver capturas de pantalla:

4. Haga clic en Aceptar en el cuadro de diálogo emergente, las dos celdas seleccionadas se intercambian. Ver capturas de pantalla:

Notas: Este código VBA no puede intercambiar el formato de las dos celdas.

Demostración: Intercambiar el contenido de dos celdas aleatorias con Kutools for Excel

Artículo relacionado:

• ¿Cómo intercambiar filas o columnas en Excel?