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 Sub

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

Demo: Trasponi Intervallo usando Kutools per Excel