Wie kann man mehrere Spalten in Excel zu einer Liste zusammenführen?

Um mehrere Spalten zu einer langen Liste zusammenzuführen, können Sie normalerweise die Spaltendaten nacheinander in die angegebene Spalte kopieren und einfügen. Hier möchte ich Ihnen jedoch einige schnelle Tricks vorstellen, um diese Aufgabe in Excel zu lösen.

Mehrere Spalten mit VBA-Code zu einer Liste zusammenführen

Mehrere Spalten mit Kutools für Excel zu einer Liste zusammenführen

Mehrere Spalten mit VBA-Code zu einer Liste zusammenführen

Ohne das wiederholte Kopieren und Einfügen der Spaltendaten kann der folgende VBA-Code Ihnen helfen, diese Aufgabe schnell und einfach zu erledigen.

1. Halten Sie in Excel die Tasten Alt + F11 gedrückt, um das Fenster Microsoft Visual Basic for Applications zu öffnen.

2. Klicken Sie auf Einfügen > Modul und fügen Sie das folgende Makro im Modulfenster ein.

VBA-Code: Mehrere Spalten zu einer Liste zusammenführen oder verschmelzen

Sub CombineColumns1()
'updateby Extendoffice
    Dim xRng As Range
    Dim i As Integer
    Dim xLastRow As Integer
    Dim xTxt As String
    On Error Resume Next
    xTxt = Application.ActiveWindow.RangeSelection.Address
    Set xRng = Application.InputBox("please select the data range", "Kutools for Excel", xTxt, , , , , 8)
    If xRng Is Nothing Then Exit Sub
    xLastRow = xRng.Columns(1).Rows.Count + 1
    For i = 2 To xRng.Columns.Count
        Range(xRng.Cells(1, i), xRng.Cells(xRng.Columns(i).Rows.Count, i)).Cut
        ActiveSheet.Paste Destination:=xRng.Cells(xLastRow, 1)
        xLastRow = xLastRow + xRng.Columns(i).Rows.Count
    Next
End Sub

3. Drücken Sie dann die Taste F5, um diesen Code auszuführen, und es wird ein Dialogfeld erscheinen, das Sie auffordert, den Datenbereich auszuwählen, den Sie in nur eine Spalte zusammenführen möchten, siehe Screenshot:

4. Klicken Sie anschließend auf die Schaltfläche OK, und die ausgewählten Spalten wurden wie in den folgenden Screenshots gezeigt in nur eine Spalte zusammengeführt:

Hinweis: Nachdem Sie diesen VBA-Code ausgeführt haben, werden die ursprünglichen Daten des Bereichs gelöscht. Es ist besser, diese zuerst an einem anderen Ort zu kopieren und zu speichern.

Mehrere Spalten mit Kutools für Excel zu einer Liste zusammenführen

Wenn Sie Kutools für Excel installiert haben, kann dessen Funktion „Bereich transformieren“ Ihnen helfen, mehrere Spalten in eine einzige Spalte oder Zeile zusammenzuführen.

Nach der Installation von Kutools für Excel gehen Sie bitte wie folgt vor:

1. Wählen Sie die Spaltendaten aus, die Sie zu einer Liste zusammenführen möchten.

2. Klicken Sie dann auf Kutools > Bereich > Transform Range, siehe Screenshot:

3. Aktivieren Sie im Dialogfeld „Transform Range“ die Option Bereich zu einzelner Spalte, und klicken Sie auf die Schaltfläche OK, siehe Screenshot:

4. Wählen Sie im daraufhin erscheinenden Dialogfeld „Transform Range“ eine Zelle aus, in der Sie das Ergebnis ausgeben möchten, siehe Screenshot:

5. Klicken Sie dann auf die Schaltfläche OK, und Ihre ausgewählten Spalten wurden in der gewünschten Position zu einer einzigen Spalte zusammengeführt. Siehe Screenshot:

Download und kostenlose Testversion Kutools für Excel jetzt!

Demo: Mehrere Spalten mit Kutools für Excel zu einer Liste zusammenführen