Come scambiare rapidamente il contenuto di due celle in Excel?
Quando gestiamo un foglio di lavoro, a volte potrebbe essere necessario scambiare il contenuto di due celle. Normalmente la maggior parte di noi sa semplicemente "tagliare, incollare e copiare" per scambiare i contenuti, ma richiede molto tempo. Parleremo di come scambiare rapidamente i contenuti nelle celle in Excel.
Scambia manualmente due contenuti di celle adiacenti
Scambia due contenuti di celle non adiacenti con il codice VBA
Scambia facilmente due contenuti di celle casuali con solo pochi clic
Scambia manualmente due contenuti di celle adiacenti
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, per favore fai come segue:
1. Seleziona la cella che desideri scambiare. In questo esempio, seleziona la cella A4.
2. stampa Shift e posiziona il cursore sul bordo destro.
3. Quindi trascina il cursore sul bordo destro della cella B4.
4. Quando viene visualizzato "工", Rilascia il mouse.
5. E i due contenuti delle celle sono stati scambiati. Vedi screenshot:
Con questo metodo, possiamo anche scambiare due righe o colonne adiacenti.
Scambia rapidamente il contenuto di due celle o intervalli in Excel:
Kutools for Excel's Intervalli di scambio l'utilità ti aiuta a scambiare facilmente due celle o intervalli specificati contemporaneamente in Excel come mostrato nella demo di seguito.
Scaricalo e provalo ora! (Percorso gratuito di 30 giorni)
Scambia due contenuti di celle non adiacenti con il codice VBA
Quando le due celle non sono adiacenti, il metodo sopra non funzionerà. Possiamo scambiarli con il codice VBA.
1. premi il Ctrl e seleziona le due celle non adiacenti che desideri scambiare.
2. Clic Costruttori>Visual Basic, un nuovo Microsoft Visual Basic per le applicazioni verrà visualizzata la finestra, fare clic su inserire>Modulie inserisci il codice seguente nel file Moduli:
Sub SwapTwoRange()
'Updateby20131120
Dim Rng1 As Range, Rng2 As Range
Dim arr1 As Variant, arr2 As Variant
xTitleId = "KutoolsforExcel"
Set Rng1 = Application.Selection
Set Rng1 = Application.InputBox("Range1:", xTitleId, Rng1.Address, Type:=8)
Set Rng2 = Application.InputBox("Range2:", xTitleId, Type:=8)
Application.ScreenUpdating = False
arr1 = Rng1.Value
arr2 = Rng2.Value
Rng1.Value = arr2
Rng2.Value = arr1
Application.ScreenUpdating = True
End Sub
3. Quindi fare clic per eseguire il codice, quindi viene visualizzata una finestra di dialogo per selezionare le due celle tra le quali si desidera scambiare. Vedi screenshot:
4. Clic Ok nella finestra di dialogo visualizzata, le due celle selezionate vengono scambiate. Vedi screenshot:
Note: Questo codice VBA non può scambiare la formattazione delle due celle.
Scambia facilmente due contenuti di celle casuali con solo pochi clic
Con Kutools for Excel's Intervalli di scambio utility, non solo possiamo scambiare due celle, righe o colonne adiacenti, ma possiamo anche scambiare facilmente due celle, righe o colonne non adiacenti.
Prima di applicare Kutools for Excel, Per favore scaricalo e installalo prima.
1. Clic Kutools > Escursione > Intervalli di scambio, vedi screenshot:
2. Nel Intervalli di scambio finestra di dialogo, è necessario:
- (1) fare clic sul primo nel pulsante Intervallo di scambio 1 casella per selezionare le celle che desideri scambiare.
- (2) fare clic sul secondo pulsante da Intervallo di scambio 2 casella per selezionare le celle con cui scambiare.
Suggerimenti:: È possibile selezionare i due intervalli prima di applicare la funzione, quindi è possibile vedere i due intervalli selezionati visualizzati nelle caselle Scambia intervallo 1 e Scambia intervallo 2 separatamente. - (3) Fare clic su OK pulsante.
Quindi due celle o intervalli selezionati vengono scambiati immediatamente. Vedi screenshot:
Se desideri avere una prova gratuita (30 giorni) di questa utility, fare clic per scaricarlo, quindi andare ad applicare l'operazione secondo i passaggi precedenti.
Demo: scambia due contenuti di celle casuali con Kutools per Excel
Articolo correlato:
I migliori strumenti per la produttività in ufficio
Potenzia le tue competenze di Excel con Kutools per Excel e sperimenta l'efficienza come mai prima d'ora. Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e risparmiare tempo. Fai clic qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab porta l'interfaccia a schede in Office e semplifica notevolmente il tuo lavoro
- Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede della stessa finestra, piuttosto che in nuove finestre.
- Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!