Scambiare il contenuto delle celle in Excel?

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

A volte, ci sono due celle adiacenti che devono essere scambiate. Possiamo farlo manualmente facilmente. Guarda il seguente screenshot, voglio scambiare le celle A4 e B4, fai come segue:

1. Seleziona la cella che vuoi scambiare. In questo esempio, seleziona la cella A4.

2. Premete il tasto Shift e mettete il cursore sul bordo destro.

3. Poi trascinate il cursore sul bordo destro della cella B4.

4. Quando appare “工”, rilasciate il mouse.

5. E i contenuti delle due celle sono stati scambiati.

Con questo metodo, possiamo anche scambiare due righe o colonne adiacenti.

Per il caso specifico di intervalli rettangolari adiacenti delle stesse dimensioni , si può usare il metodo descritto in questa risposta a una domanda simile .

1. Selezionare l'intervallo destro o inferiore
2. Premere Ctrl+X
3. Seleziona l'intervallo adiacente (cioè direttamente sopra o a sinistra)
4. Premi Ctrl+ + (lo + è di solito sopra il tasto = quindi questo si traduce in Ctrl+Shift+=)

Nota puoi usare la stessa procedura per scambiare intere righe o colonne adiacenti.

Per facile, intendo una scorciatoia da tastiera o una voce di menu, senza implicare la copia in celle temporanee o la scrittura di script VBA o qualcosa del genere. Sto cercando un modo per selezionare semplicemente due celle e fare clic su qualche voce di menu o premere qualche combinazione di tasti che scambierà i loro contenuti.

Perché imporre questa restrizione? Creare una macro rende questo banale. Per quanto ne so, non può essere fatto in nessun altro modo. Puoi assegnare la macro a un pulsante o a un tasto di scelta rapida.

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. Non c'è modo di scambiare il contenuto di due celle in Excel, senza scrivere la propria macro per farlo.

EDIT: Sembra che ora ci possa essere un modo semplice per scambiare il contenuto delle celle nelle versioni più recenti di Excel, quindi questa risposta è probabilmente ormai superata.

Selezionate il primo gruppo di celle da scambiare e premete ctrl+x:

Selezionate le celle A PARTE di quelle che volete scambiare e premete ctrl++.

• Seleziona la cella in basso che vuoi scambiare
• Premi Ctrl+X e vai alla cella che vuoi scambiare con
• Premi Ctrl+Shift+=

Lo scambio sarà eseguito

Ho letto questo post ma in realtà avevo bisogno di una macro per scambiare le gamme complete. Inoltre, avevo bisogno di scambiare i colori. Ho modificato leggermente la macro originariamente postata, questo potrebbe essere utile a qualcuno.

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

Puoi incollare fino a 25 elementi negli appunti, quindi sono facili da scambiare usando ctr+tab o cmd+tab mac