Come unire due colonne in una con valori alternati in Excel?
Ci sono due colonne in un foglio di lavoro. Il compito è unire queste due colonne in una sola, con valori alternati, come mostrato nello screenshot qui sotto. Come puoi gestire rapidamente questo compito senza riordinarli uno per uno?
Unisci due colonne in una con valori alternati tramite codice VBA
Unisci due colonne in una con valori alternati tramite Kutools per Excel
Unisci due colonne in una con valori alternati tramite codice VBA
Per unire due colonne in una con valori alternati, non esiste alcuna funzione integrata tranne il codice VBA in Excel.
1. Premi i tasti Alt + F11 per abilitare la finestra Microsoft Visual Basic for Applications. Clicca su Inserisci > Modulo per creare un nuovo modulo vuoto.
2. Copia e incolla il seguente codice nel modulo.
VBA: Unisci due colonne in una con valori alternati
Sub MergeColumns()
'UpdatebyExtendoffice20180815
Dim xSRg, xDRg As Range
Dim xDWS As Worksheet
Dim xIntDR, xIntDC, xI As Long
Dim xFNum As Long
On Error GoTo Err1
Set xSRg = Application.InputBox("Select two columns:", "Kutools for Excel", xTxt, , , , , 8)
If xSRg Is Nothing Then
Err1:
Application.ScreenUpdating = True
Exit Sub
End If
Set xDRg = Application.InputBox("Select a cell to place result:", "Kutools for Excel", xTxt, , , , , 8)
If xDRg Is Nothing Then
Exit Sub
End If
Application.ScreenUpdating = False
Set xDWS = xDRg.Worksheet
xIntDR = xDRg.Row
xIntDC = xDRg.Column
xI = 0
For xFNum = 1 To xSRg.Count
Set xDRg = xDWS.Cells(xIntDR + xI, xIntDC)
xDRg.Value = xSRg.Item(xFNum).Value
xI = xI + 1
Next xFNum
Application.ScreenUpdating = True
End Sub3. Premi F5 e seleziona le due colonne che desideri unire nella finestra di dialogo che appare.
4. Clicca OK, nella seconda finestra di dialogo, seleziona una cella in cui inserire il risultato.
5. Clicca OK. Ora, le due colonne selezionate sono state unite in una sola con valori alternati.
Unisci due colonne in una con valori alternati tramite Kutools per Excel
Se hai installato Kutools per Excel in Excel, la sua utilità Trasforma Intervallo può portare a termine questo compito in soli tre semplici passaggi.
1. Seleziona le colonne (due o più) che desideri unire, clicca Kutools > Trasforma Intervallo.
2. Nella finestra di dialogo Trasforma Intervallo seleziona Intervallo a Singola Colonna opzione, e clicca Ok.
3. Seleziona una cella in cui inserire il risultato nella finestra di dialogo che appare. Clicca OK.
Ora, le colonne sono state unite in una sola, e i valori si alternano tra le due.
Kutools per Excel - Potenzia Excel con oltre 300 strumenti essenziali. Goditi funzionalità AI gratuite per sempre! Ottienilo ora
Demo: Trasponi Intervallo usando Kutools per Excel
I migliori strumenti per la produttività in Office
Potenzia le tue competenze in Excel con Kutools per Excel e sperimenta un'efficienza mai vista prima. Kutools per Excel offre oltre300 funzionalità avanzate per aumentare la produttività e farti risparmiare tempo. Clicca qui per ottenere la funzione di cui hai più bisogno...
Office Tab porta le schede su Office e rende il tuo lavoro molto più semplice
- Abilita la modifica e lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede della stessa finestra invece che in nuove finestre.
- Aumenta la produttività del50% e riduce centinaia di clic del mouse ogni giorno!
Tutti gli add-in Kutools. Un solo programma di installazione
La suite Kutools for Office include add-in per Excel, Word, Outlook & PowerPoint più Office Tab Pro, ideale per i team che lavorano su più app di Office.
- Suite tutto-in-uno — Add-in per Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Un solo programma di installazione, una sola licenza — configurazione in pochi minuti (pronto per MSI)
- Funzionano meglio insieme — produttività ottimizzata su tutte le app Office
- Prova completa30 giorni — nessuna registrazione, nessuna carta di credito
- Massimo risparmio — costa meno rispetto all’acquisto singolo degli add-in