2011-03-14 16:18:46 +0000 2011-03-14 16:18:46 +0000
42
42

Scambiare il contenuto delle celle in Excel?

C'è un modo semplice per scambiare il contenuto di due celle in Microsoft Excel?

Per facile, intendo una scorciatoia da tastiera o una voce di menu, senza dover copiare in celle temporanee o scrivere script VBA o qualcosa del genere. In altre parole, 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à il loro contenuto. Sicuramente ci deve essere un modo per farlo?

Risposte (8)

47
47
47
2013-01-15 19:12:17 +0000

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.

18
18
18
2012-11-22 09:20:50 +0000

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.

15
15
15
2011-03-14 16:44:48 +0000

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
5
5
5
2011-03-24 20:24:16 +0000

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.

2
2
2
2014-01-05 19:25:48 +0000

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++.

0
0
0
2018-11-22 04:53:36 +0000
  • 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

0
0
0
2018-01-08 03:00:45 +0000

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
0
0
0
2014-12-05 17:19:03 +0000

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