Wie können Sie Bereiche in Excel einfach und schnell transponieren und Daten stapeln?
Beispielsweise liegen einige Daten gruppiert vor, und nun möchte ich den Bereich transponieren sowie die Daten jeder Spalte stapeln – wie im folgenden Screenshot gezeigt. In diesem Artikel stelle ich effektive Methoden vor, um diese Aufgabe in Excel zu lösen.
Daten mit VBA transponieren und stapeln
Daten mit der Tabelle transponieren-Dimension von Kutools transponieren und stapeln ![]()
Daten mit VBA transponieren und stapeln
Mit einem VBA-Code können Sie Ihre Daten ganz einfach transponieren und stapeln.
1. Markieren Sie die gewünschten Daten ohne Spaltenüberschriften 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 Taste F5, und Ihre Daten werden transponiert und gestapelt. Siehe Screenshot:
Hinweis: Im VBA-Code gibt „A“ an, dass die transponierten Daten in Spalte A des aktuellen Arbeitsblatts platziert und die ursprünglichen Daten in Spalte A ersetzt werden.
Daten mit der Tabelle transponieren-Dimension von Kutools transponieren und stapeln
Wenn Sie Bereiche schnell und einfach ohne VBA-Code transponieren und Daten stapeln möchten, können Sie das Hilfsprogramm Kutools für Excel’s Tabelle transponieren-Dimension verwenden.
1. Wählen Sie die gewünschten Daten aus und klicken Sie auf Kutools > Bereich > Tabelle umwandeln. Siehe Screenshot:
2. Aktivieren Sie im Dialogfeld die Option Zweidimensionale Tabelle in eindimensionale Tabelle umwandeln, und wählen Sie im Feld Ergebnisbereich (einzige Zelle) eine Zelle aus, in der die transponierten Daten platziert werden sollen. Siehe Screenshot:
3. Klicken Sie auf OK. Der Bereich wurde nun transponiert und spaltenweise gestapelt.
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 und Daten mit der Tabelle transponieren-Dimension von Kutools stapeln
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