¿Intercambiar contenido de celda en Excel?

¿Hay una manera fácil de intercambiar el contenido de dos celdas en Microsoft Excel?

Por fácil, me refiero a un atajo de teclado o elemento de menú, sin involucrar la copia en celdas temporales o escribir scripts de VBA o algo así. En otras palabras, estoy buscando una manera de seleccionar dos celdas y hacer clic en algún elemento del menú o presionar alguna combinación de teclas que intercambie sus contenidos. Seguramente, ¿tiene que haber una manera de hacer esto?

De: http://www.extendoffice.com/documents/excel/860-excel-swap-contents-of-two-cells.html

A veces, hay dos celdas contiguas que deben intercambiarse. Podemos hacerlo manualmente fácilmente. 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. Presione la tecla Mayús y coloque el cursor en el borde derecho.

3. Luego arrastre el cursor al borde derecho de la celda B4.

4. Cuando aparezca "工", suelte el mouse.

5. Y los dos contenidos de la celda han sido intercambiados.

Con este método, también podemos intercambiar dos filas o columnas adyacentes.

Para el caso específico de rangos rectangulares adyacentes del mismo tamaño , puede usar el método descrito en esta respuesta a una pregunta similar .

1. Seleccione el rango derecho o inferior
2. Presione Ctrl+X
3. Seleccione el rango adyacente (es decir, directamente arriba o a la izquierda)
4. Presione Ctrl+ +( +generalmente está encima de la =tecla para que esto se traduzca en Ctrl+ Shift+ =)

Tenga en cuenta que puede usar el mismo procedimiento para intercambiar filas o columnas adyacentes enteras.

Por fácil, me refiero a un atajo de teclado o elemento de menú, sin involucrar la copia en celdas temporales o escribir scripts de VBA o algo así. Estoy buscando una manera de seleccionar dos celdas y hacer clic en algún elemento del menú o presionar alguna combinación de teclas que intercambie sus contenidos.

¿Por qué imponer esta restricción? Crear una macro hace que esto sea trivial. Que yo sepa, no se puede hacer de otra manera. Puede asignar la macro a un botón o tecla de acceso rápido.

Sub Swap()     
    If Selection.Count <> 2 Then     
         MsgBox "Select 2 cells (only) to swap."     
         Exit Sub     
    End If     
    Set trange = Selection     
    If trange.Areas.Count = 2 Then     
         temp = trange.Areas(2)     
         trange.Areas(2) = trange.Areas(1)     
         trange.Areas(1) = temp     
    Else     
         temp = trange(1)     
         trange(1) = trange(2)     
         trange(2) = temp     
    End If     
End Sub     

No. No hay forma de intercambiar el contenido de dos celdas en Excel, sin escribir su propia macro para hacerlo.

EDITAR: Parece que ahora puede haber una manera fácil de intercambiar el contenido de las celdas en versiones más recientes de Excel, por lo que esta respuesta probablemente esté desactualizada.

Seleccione el primer conjunto de celdas para intercambiar y presione ctrl+ x:

Seleccione las celdas ADEMÁS de las que desea intercambiar y presione ctrl+ +.

Puede pegar hasta 25 elementos en el portapapeles, por lo que son fáciles de intercambiar usando ctr + tab o cmd + tab mac

• Seleccione la celda inferior que desea intercambiar
• Presione Ctrl+ Xy vaya a la celda con la que desea intercambiar
• Presione Ctrl+ Shift+=

El intercambio se ejecutará.

Leí esta publicación, pero en realidad necesitaba una macro para intercambiar rangos completos. Además, necesitaba cambiar los colores. Modificó ligeramente la macro publicada originalmente, esto podría ser útil para alguien.

Sub Swap()

    If Selection.Areas.Count <> 2 Then
         MsgBox "Select 2 cell ranges (only) to swap."
         Exit Sub
    End If


    If Selection.Areas(1).Count <> Selection.Areas(2).Count Then
         MsgBox "The two areas must be of equal size"
         Exit Sub
    End If

    'With this for loop we run through each cell 1 by 1
    For i = 1 To Selection.Areas(1).Count
        'Swapping values
        temp = Selection.Areas(1)(i)
        Selection.Areas(1)(i) = Selection.Areas(2)(i)
        Selection.Areas(2)(i) = temp

        'Swapping color
        tempColor = Selection.Areas(1)(i).DisplayFormat.Interior.Color
        Selection.Areas(1)(i).Interior.Color = Selection.Areas(2)(i).DisplayFormat.Interior.Color
        Selection.Areas(2)(i).Interior.Color = tempColor
    Next i

End Sub