¿Cómo intercambiar rápidamente el contenido de dos celdas en Excel?
Cuando manejamos una hoja de trabajo, es posible que necesitemos intercambiar el contenido de dos celdas a veces. Normalmente, la mayoría de nosotros solo sabemos "cortar, pegar y copiar" para intercambiar los contenidos, pero lleva mucho tiempo. Vamos a hablar sobre cómo intercambiar rápidamente contenidos en celdas en Excel.
Intercambiar manualmente dos contenidos de celdas contiguas
Intercambie dos contenidos de celda no adyacentes con código VBA
Intercambie fácilmente dos contenidos de celda aleatorios con solo varios clics
Intercambiar manualmente dos contenidos de celdas contiguas
A veces, es necesario intercambiar dos celdas contiguas. Podemos hacerlo manualmente de forma sencilla. Mire la siguiente captura de pantalla, quiero intercambiar la celda A4 y B4, haga lo siguiente:
1. Seleccione la celda que desea intercambiar. En este ejemplo, seleccione la celda A4.
2. prensa Shift y coloque el cursor en el borde derecho.
3. Luego, arrastre el cursor al borde derecho de la celda B4.
4. Cuando aparece "工”, Suelte el ratón.
5. Y los dos contenidos de la celda se han intercambiado. Ver captura de pantalla:
Con este método, también podemos intercambiar dos filas o columnas contiguas.
Cambie rápidamente el contenido de dos celdas o rangos en Excel:
Kutools for Excel's Intercambiar rangos La utilidad lo ayuda a intercambiar fácilmente dos celdas o rangos específicos a la vez en Excel, como se muestra en la siguiente demostración.
¡Descárgalo y pruébalo ahora! (Pista gratuita de 30 días)
Intercambie dos contenidos de celda no adyacentes con código VBA
Cuando las dos celdas no son adyacentes, el método anterior no funcionará. Podemos intercambiarlos con código VBA.
1. presione el Ctrl y seleccione las dos celdas no adyacentes que desea intercambiar.
2. Hacer clic Developer>Visual Basic, Un nuevo Microsoft Visual Basic para aplicaciones aparecerá la ventana, haga clic en recuadro>Móduloe ingrese 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 para ejecutar el código, luego se muestra un cuadro de diálogo para que seleccione las dos celdas entre las que desea intercambiar. Ver capturas de pantalla:
4. Hacer clic en Ok en el cuadro de diálogo emergente, se intercambian las dos celdas seleccionadas. Ver capturas de pantalla:
Notas: Este código de VBA no puede intercambiar el formato de las dos celdas.
Intercambie fácilmente dos contenidos de celda aleatorios con solo varios clics
Con Kutools for Excel's Intercambiar rangos utilidad, no solo podemos intercambiar dos celdas, filas o columnas contiguas, sino que también podemos cambiar fácilmente dos celdas, filas o columnas no adyacentes.
Antes de aplicar Kutools for Excel, Por favor descargarlo e instalarlo en primer lugar.
1. Hacer clic en Kutools > Gama de Colores > Intercambiar rangos, ver captura de pantalla:
2. En el Intercambiar rangos cuadro de diálogo, debe:
- (1) haga clic en el primero botón en el Intercambio de rango 1 cuadro para seleccionar las celdas que desea intercambiar.
- (2) haga clic en el segundo botón de Intercambio de rango 2 cuadro para seleccionar las celdas con las que intercambiará.
Tips: Puede seleccionar los dos rangos antes de aplicar la función, luego puede ver que los dos rangos seleccionados se muestran en los cuadros Intercambiar rango 1 y Intercambiar rango 2 por separado. - (3) Haga clic en el OK del botón.
Luego, dos celdas o rangos seleccionados se intercambian inmediatamente. Ver capturas de pantalla:
Si desea tener una prueba gratuita (30 días) de esta utilidad, haga clic para descargarloy luego vaya a aplicar la operación según los pasos anteriores.
Demostración: intercambie dos contenidos de celda aleatorios con Kutools para Excel
Artículo relacionado:
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!