Wie kann man mehrere Spalten schnell in eine einzige Spalte in Excel stapeln?

In Excel kann die Funktion 'Text in Spalten' eine Zelle basierend auf einem Trennzeichen in mehrere Spalten aufteilen, aber gibt es Möglichkeiten, mehrere Spalten wie im folgenden Screenshot gezeigt in eine einzige Spalte zu stapeln? In diesem Artikel stelle ich einige Tricks zur schnellen Lösung dieser Aufgabe vor.

Mehrere Spalten mit einer Formel in eine stapeln

Mehrere Spalten mit VBA in eine stapeln

Mehrere Spalten mit 'Bereich transformieren' in eine stapeln

Mehrere Spalten mit einer Formel in eine stapeln

1. Wählen Sie den Bereich aus, den Sie stapeln möchten, und gehen Sie zum Namenfeld um diesem Bereich einen Namen zu geben, und drücken Sie Eingabetaste Taste. Siehe Screenshot:

2. Wählen Sie dann eine leere Zelle aus, in der Sie die Ergebnisse platzieren möchten, und geben Sie diese Formel ein =INDEX(MyData,1+INT((ZEILE(A1)-1)/SPALTEN(MyData)),REST(ZEILE(A1)-1+SPALTEN(MyData),SPALTEN(MyData))+1), drücken Sie die Eingabe-Taste und ziehen Sie den Ausfüllkursor nach unten, bis ein Fehler angezeigt wird. Siehe Screenshot:

Mehrere Spalten mit VBA in eine stapeln

Hier ist ein VBA-Code, der Ihnen ebenfalls helfen kann.

1. Drücken Sie die Tasten Alt + F11, um das Fenster Microsoft Visual Basic for Applications anzuzeigen.

2. Klicken Sie auf Einfügen > Modul und fügen Sie den folgenden Code in das Modul ein.

VBA: Spalten in eine stapeln

Sub ConvertRangeToColumn()
'UpdatebyExtendoffice
Dim Range1 As Range, Range2 As Range, Rng As Range
Dim rowIndex As Integer
xTitleId = "KutoolsforExcel"
Set Range1 = Application.Selection
Set Range1 = Application.InputBox("Source Ranges:", xTitleId, Range1.Address, Type:=8)
Set Range2 = Application.InputBox("Convert to (single cell):", xTitleId, Type:=8)
rowIndex = 0
Application.ScreenUpdating = False
For Each Rng In Range1.Rows
    Rng.Copy
    Range2.Offset(rowIndex, 0).PasteSpecial Paste:=xlPasteAll, Transpose:=True
    rowIndex = rowIndex + Rng.Columns.Count
Next
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

3. Drücken Sie die F5 -Taste, um den Code auszuführen. Ein Dialogfenster erscheint, um die Quelldaten auszuwählen. Klicken Sie auf OK, um eine Zelle auszuwählen, in der die Ergebnisse platziert werden sollen. Siehe Screenshot:

4. Klicken Sie auf OK. Nun wurden die Spalten in eine einzige Spalte gestapelt.

Mehrere Spalten mit 'Bereich transformieren' in eine stapeln

Die Verwendung des Hilfsprogramms 'Bereich transformieren' von Kutools für Excel kann Ihnen auch dabei helfen, dieses Problem schnell zu lösen.

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

1. Wählen Sie die Spaltendaten aus, die Sie verwenden möchten, und klicken Sie auf Kutools > Bereich > Bereich transformieren. Siehe Screenshot:

2. Im Bereich transformieren Dialogfenster aktivieren Sie die Option Bereich zu einzelner Spalte und klicken Sie auf Ok, dann wählen Sie eine Zelle aus, um die Ergebnisse zu platzieren. Siehe Screenshot:

3. Klicken Sie auf OK. Nun wurden die Spalten in eine einzige Spalte gestapelt.