Wie kann man zwei Spalten in Excel mit abwechselnden Werten zu einer zusammenführen?

Hier sind zwei Spalten in einem Arbeitsblatt. Die Aufgabe besteht darin, diese beiden Spalten so zusammenzuführen, dass die Werte abwechselnd angeordnet sind, wie im folgenden Screenshot gezeigt. Wie können Sie diese Aufgabe schnell erledigen, ohne die Werte einzeln neu anzuordnen?

Zwei Spalten mit abwechselnden Werten durch VBA-Code zusammenführen

Zwei Spalten mit abwechselnden Werten durch Kutools für Excel zusammenführen

Zwei Spalten mit abwechselnden Werten durch VBA-Code zusammenführen

Um zwei Spalten mit abwechselnden Werten zusammenzuführen, gibt es in Excel keine integrierte Funktion außer dem VBA-Code.

1. Drücken Sie die Tasten Alt + F11, um das Fenster Microsoft Visual Basic for Applications zu öffnen. Klicken Sie auf Einfügen > Modul, um ein neues leeres Modul zu erstellen.

2. Kopieren und fügen Sie den folgenden Code in das Modul ein.

VBA: Zwei Spalten mit alternativen Werten zusammenführen

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. Drücken Sie F5 und wählen Sie die zwei Spalten aus, die Sie im erscheinenden Dialogfeld zusammenführen möchten.

4. Klicken Sie OK, im zweiten Dialogfeld wählen Sie eine Zelle aus, um das Ergebnis zu platzieren.

5. Klicken Sie auf OK. Nun wurden die ausgewählten zwei Spalten mit abwechselnden Werten zu einer zusammengeführt.

Zwei Spalten mit abwechselnden Werten durch Kutools für Excel zusammenführen

Wenn Sie Kutools für Excel in Excel installiert haben, kann dessen Bereich transformieren-Funktion diese Aufgabe in nur drei einfachen Schritten erledigen.

1. Wählen Sie die Spalten (zwei oder mehr) aus, die Sie zusammenführen möchten, und klicken Sie auf Kutools > Bereich transformieren.

2. Im Bereich transformieren Dialogfeld aktivieren Sie die Option Bereich zu einzelner Spalte und klicken Sie auf Ok.

3. Wählen Sie im erscheinenden Dialogfeld eine Zelle aus, um das Ergebnis zu platzieren. Klicken Sie auf OK.

Nun wurden die Spalten zu einer zusammengeführt, und die Werte wechseln sich zwischen den beiden ab.

Demo: Bereich transponieren mit Kutools für Excel