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 Sub3. 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.
Kutools für Excel - Verleihen Sie Excel mit über 300 essenziellen Tools einen echten Schub. Nutzen Sie dauerhaft kostenlose KI-Funktionen! Holen Sie es sich jetzt
Demo: Bereich transponieren mit Kutools für Excel
Die besten Produktivitätstools für das Büro
Stärken Sie Ihre Excel-Fähigkeiten mit Kutools für Excel und genießen Sie Effizienz wie nie zuvor. Kutools für Excel bietet mehr als300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen...
Office Tab bringt die Tab-Oberfläche in Office und macht Ihre Arbeit wesentlich einfacher
- Aktivieren Sie die Tabulator-Bearbeitung und das Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Tabs innerhalb desselben Fensters, statt in neuen Einzelfenstern.
- Steigert Ihre Produktivität um50 % und reduziert hunderte Mausklicks täglich!
Alle Kutools-Add-Ins. Ein Installationspaket
Das Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro und ist ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- All-in-One-Paket — Add-Ins für Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Ein Installationspaket, eine Lizenz — in wenigen Minuten einsatzbereit (MSI-kompatibel)
- Besser gemeinsam — optimierte Produktivität in allen Office-Anwendungen
- 30 Tage kostenlos testen — keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis — günstiger als Einzelkauf der Add-Ins