Scambia il contenuto delle celle in Excel?

Esiste un modo semplice per scambiare il contenuto di due celle in Microsoft Excel?

Per semplice, 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. In altre parole, sto cercando un modo per selezionare solo due celle e fare clic su una voce di menu o premere una combinazione di tasti che cambierà il loro contenuto. Sicuramente, ci deve essere un modo per farlo?

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 lo screenshot seguente, voglio scambiare le celle A4 e B4, per favore fai come segue:

1. Seleziona la cella che desideri scambiare. In questo esempio, selezionare la cella A4.

2. Premi il tasto Maiusc e posiziona il cursore sul bordo destro.

3. Quindi trascina il cursore sul bordo destro della cella B4.

4. Quando viene visualizzato “工”, rilasciare 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 della stessa dimensione adiacenti , è possibile utilizzare il metodo descritto in questa risposta a una domanda simile .

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

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

Per semplice, 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 solo due celle e fare clic su una voce di menu o premere una combinazione di tasti che cambierà il loro contenuto.

Perché imporre questa limitazione? La creazione di una macro rende ciò banale. Per quanto ne so, non può essere fatto diversamente. È possibile assegnare la macro a un pulsante o 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 è possibile scambiare il contenuto di due celle in Excel, senza scrivere la propria macro per farlo.

EDIT: Sembra che ora potrebbe esserci un modo semplice per scambiare i contenuti delle celle nelle versioni più recenti di Excel, quindi questa risposta è probabilmente obsoleta.

Seleziona il primo set di celle da scambiare e premi ctrl+ x:

Seleziona le celle ALL'INTERNO di quelle con cui vuoi scambiare e premi ctrl+ +.

Puoi incollare fino a 25 elementi negli Appunti, in modo che siano facili da scambiare usando ctr + tab o cmd + tab mac

• Seleziona la cella in basso che desideri scambiare
• Premi Ctrl+ Xe vai alla cella con cui vuoi scambiare
• Premi Ctrl+ Shift+=

Lo swap verrà eseguito

Ho letto questo post ma in realtà avevo bisogno di una macro per scambiare intervalli completi. Inoltre, avevo bisogno di scambiare i colori. Modificata leggermente la macro originariamente pubblicata, questo potrebbe essere utile per 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