Cómo intercambiar rápidamente el contenido de dos celdas en Excel?

Intercambio de dos contenidos de 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. Pulse 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()'Updateby20131120Dim Rng1 As Range, Rng2 As RangeDim arr1 As Variant, arr2 As VariantxTitleId = "KutoolsforExcel"Set Rng1 = Application.SelectionSet Rng1 = Application.InputBox("Range1:", xTitleId, Rng1.Address, Type:=8)Set Rng2 = Application.InputBox("Range2:", xTitleId, Type:=8)Application.ScreenUpdating = Falsearr1 = Rng1.Valuearr2 = Rng2.ValueRng1.Value = arr2Rng2.Value = arr1Application.ScreenUpdating = TrueEnd Sub

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

4. Haga clic en Ok en el 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.

Intercambiar fácilmente dos contenidos de celdas al azar con solo varios clics

Con la utilidad Swap Ranges de Kutools for Excel, no solo podemos intercambiar dos celdas, filas o columnas adyacentes, sino que también podemos cambiar dos celdas, filas o columnas no adyacentes fácilmente.

Antes de aplicar Kutools for Excel, por favor descargue e instale primero.

1. Haga clic en Kutools > Range > Swap Ranges, vea la captura de pantalla:

2. En el cuadro de diálogo Intercambiar rangos, debe:

• (1) hacer clic en el primer botón del cuadro Intercambiar rango 1 para seleccionar las celdas que desea intercambiar.
• (2) haga clic en el segundo botón del cuadro Swap Range 2 para seleccionar las celdas que va a intercambiar.
  Consejos: Puede seleccionar los dos rangos antes de aplicar la función, entonces puede ver los dos rangos seleccionados se muestran en los cuadros Swap Range 1 y Swap Range 2 por separado.
• (3) Haga clic en el botón OK.



Entonces dos celdas o rangos seleccionados se intercambian inmediatamente. Ver capturas de pantalla:



Si quiere tener una prueba gratuita (30 días) de esta utilidad, por favor haga clic para descargarla, y luego vaya a aplicar la operación según los pasos anteriores.

Demo: Intercambiar dos contenidos de celdas al azar con Kutools for Excel

Artículo relacionado:

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

Las mejores herramientas de productividad de Office

Kutools for Excel resuelve la mayoría de tus problemas y aumenta tu productividad en un 80%

• Reutiliza: Insertar rápidamente fórmulas complejas, gráficos y cualquier cosa que haya utilizado antes; Cifrar Celdas con contraseña; Crear Lista de Correo y enviar correos electrónicos…
• Barra de Súper Fórmulas (edita fácilmente múltiples líneas de texto y fórmulas); Disposición de Lectura (lee y edita fácilmente un gran número de celdas); Pegar en Rango Filtrado…
• Fusionar Celdas/Filas/Columnas sin perder Datos; Dividir Contenido de Celdas; Combinar Filas/Columnas Duplicadas… Evitar Celdas Duplicadas; Comparar Rangos…
• Seleccionar Filas Duplicadas o Únicas; Seleccionar Filas en Blanco (todas las celdas están vacías); Súper Búsqueda y Búsqueda Difusa en Muchos Libros de Trabajo; Selección Aleatoria….
• Copiar Exactamente Múltiples Celdas sin cambiar la referencia de la fórmula; Crear Automáticamente Referencias a Múltiples Hojas; Insertar Viñetas, Casillas de Verificación y más…
• Extraer Texto, Añadir Texto, Eliminar por Posición, Eliminar Espacio; Crear e Imprimir Subtotales de Paginación; Convertir Entre Celdas Contenido y Comentarios…
• Super Filtro (guardar y aplicar esquemas de filtro a otras hojas); Ordenación avanzada por mes/semana/día, frecuencia y más; Filtro especial por negrita, cursiva…
• Combinar Libros de Trabajo y Hojas de Trabajo; Combinar Tablas basadas en columnas clave; Dividir Datos en Múltiples Hojas; Convertir por Lotes xls, xlsx y PDF…
• Más de 300 potentes funciones. Soporta Office/Excel 2007-2019 y 365. Soporta todos los idiomas. Fácil despliegue en su empresa u organización. Características completas 30 días de prueba gratuita. Garantía de devolución del dinero de 60 días.



Office Tab trae la interfaz con pestañas a Office, y hace su trabajo mucho más fácil

• Habilita la edición y lectura por pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
• Abra y cree múltiples 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 de ratón para usted cada día!