Wie kann man zwei Spalten mit abwechselnden Werten in Excel zu einer einzigen Spalte zusammenführen?
Hier sind zwei Spalten in einem Arbeitsblatt. Wie können Sie diese beiden Spalten schnell zu einer einzigen Spalte mit abwechselnden Werten zusammenführen – wie in der folgenden Abbildung gezeigt – ohne die Werte manuell neu anzuordnen?
Zusammenführen zweier Spalten zu einer mit abwechselnden Werten mithilfe von VBA-Code
Zusammenführen zweier Spalten zu einer mit abwechselnden Werten mithilfe von Kutools für Excel 
Zusammenführen zweier Spalten zu einer mit abwechselnden Werten mithilfe von VBA-Code
In Excel gibt es keine integrierte Funktion, um zwei Spalten mit abwechselnden Werten zusammenzuführen – außer der Verwendung von 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 Sie den folgenden Code, und fügen Sie ihn in das Modul ein.
VBA: Zusammenführen zweier Spalten zu einer mit abwechselnden Werten
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. Drücken Sie die Taste F5, und wählen Sie im erscheinenden Dialogfeld die beiden Spalten aus, die Sie zusammenführen möchten.
4. Klicken Sie auf OK und wählen Sie im zweiten Dialogfeld eine Zelle aus, in der das Ergebnis platziert werden soll.
5. Klicken Sie auf OK. Die beiden ausgewählten Spalten wurden nun zu einer Spalte mit abwechselnden Werten zusammengeführt.
Zusammenführen zweier Spalten zu einer mit abwechselnden Werten mithilfe von Kutools für Excel
Wenn Sie Kutools für Excel in Excel installiert haben, erledigen Sie diese Aufgabe mit dem praktischen Tool Transform Range in nur drei einfachen Schritten.
1. Wählen Sie zwei oder mehr Spalten aus, die Sie zusammenführen möchten, und klicken Sie auf Kutools > Transform Range.
2. Aktivieren Sie im Dialogfeld Transform Range die Option Range to single column und klicken Sie auf Ok.
3. Wählen Sie im erscheinenden Dialogfeld eine Zelle aus, in der das Ergebnis platziert werden soll, und klicken Sie auf OK.
Die Spalten wurden nun zu einer einzigen Spalte zusammengeführt, wobei die Werte abwechselnd aus beiden Quellspalten stammen.
Kutools für Excel– Erweitern Sie Excel mit über 300 unverzichtbaren Tools, um Ihre Arbeit schneller und einfacher zu erledigen, und nutzen Sie KI-Funktionen für intelligentere Datenverarbeitung und höhere Produktivität.Jetzt herunterladen
Demo: Bereich transponieren mithilfe von Kutools für Excel
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor.Kutools für Excel bietet über 300 erweiterte Funktionen zur Steigerung der Produktivität und Zeit sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am dringendsten benötigen...
Office Tab bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie tabbasiertes Bearbeiten und Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters – statt jedes in einem separaten Fenster zu öffnen.
- Steigert Ihre Produktivität um 50 % und erspart Ihnen täglich Hunderte von Mausklicks!
Alle Kutools-Add-Ins – ein Installationsprogramm
Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook und PowerPoint sowie Office Tab Pro – ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- Alles-in-einem-Paket— Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro
- Ein Installationsprogramm, eine Lizenz— innerhalb weniger Minuten eingerichtet (MSI-fähig)
- Funktioniert besser zusammen— optimierte Produktivität über alle Office-Anwendungen hinweg
- 30-tägige Vollversion zum Testen— keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis— sparen Sie im Vergleich zum Kauf einzelner Add-Ins