Wie kann man einen Bereich einfach und schnell transponieren und Daten in Excel stapeln?

Zum Beispiel gibt es einige gruppiert angezeigte Daten, und jetzt möchte ich den Bereich transponieren und die Daten in jeder Spalte stapeln, wie im folgenden Screenshot gezeigt. In diesem Artikel werde ich die Methoden für diese Aufgabe in Excel vorstellen.

Daten mit VBA transponieren und stapeln

Daten mit Kutools' Transpose Table Dimension transponieren und stapeln

Daten mit VBA transponieren und stapeln

Sie können einen VBA-Code anwenden, um Daten zu transponieren und zu stapeln.

1. Wählen Sie die Daten ohne Spaltenüberschriften aus und drücken Sie die Tasten Alt + F11, um das Fenster Microsoft Visual Basic for Applications zu öffnen.

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

VBA: Daten transponieren und stapeln

Sub ConvertTableToList()
'UpdatebyExtendoffice20161121
Const TEST_COLUMN As String = "A"
Dim i As Long, j As Long
Dim iLastRow As Long
Dim iLastCol As Long
Application.ScreenUpdating = False
With ActiveSheet
iLastRow = .Cells(.Rows.Count, TEST_COLUMN).End(xlUp).Row
For i = iLastRow To 2 Step -1
iLastCol = .Cells(i, .Columns.Count).End(xlToLeft).Column
For j = iLastCol To 3 Step -1
.Rows(i + 1).Insert
.Cells(i + 1, 2).Value = .Cells(i, j).Value
.Cells(i, j).Value = ""
Next j
Next i
.Rows(1).Delete
End With
Application.ScreenUpdating = True
End Sub

3. Drücken Sie die F5 Taste, und schon wurden die Daten transponiert und gestapelt. Siehe Screenshot:

Hinweis: Im VBA-Code zeigt A darauf hin, die transponierten Daten in Spalte A des aktiven Arbeitsblatts zu platzieren und die ursprünglichen Daten in Spalte A zu ersetzen.

Daten mit Kutools' Transpose Table Dimension transponieren und stapeln

Wenn Sie einen Bereich schnell und einfach transponieren und Daten ohne VBA-Code stapeln möchten, können Sie das Hilfsprogramm Transpose Table Dimension von Kutools für Excel verwenden.

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

2. Aktivieren Sie im Dialogfenster die Option Zweidimensionale Tabelle in eindimensionale Tabelle umwandeln und wählen Sie eine Zelle aus, in der Sie die transponierten Daten platzieren möchten, im Ausgabebereich (eine Zelle) Textfeld. Siehe Screenshot:

3. Klicken Sie auf Ok. Nun wurde der Bereich transponiert und in Spalten gestapelt.

Demo: Bereich transponieren und Daten mit Kutools' Transpose Table Dimension stapeln