Wie können Entfernungs- und Stapeldaten einfach und schnell in Excel transponiert werden?
Zum Beispiel werden einige Daten in Gruppen angezeigt, und jetzt möchte ich den Bereich transponieren und die Daten in jeder Spalte wie im folgenden Screenshot stapeln. In diesem Artikel werde ich die Methoden für diese Aufgabe in Excel vorstellen.
Transponieren und stapeln Sie Daten mit VBA
Transponieren und Stapeln von Daten mit Transponentabellendimension
Transponieren und stapeln Sie Daten mit VBA
Sie können einen VBA-Code anwenden, um Daten zu transponieren und zu stapeln.
1. Wählen Sie Daten außer Spaltenüberschriften aus und drücken Sie Alt + F11 zu aktivierende Tasten Microsoft Visual Basic für Applikationen Fenster.
2 Klicken Insert > Modulund fügen Sie den folgenden Code in das ein Modul.
VBA: Transponieren und Stapeln von Daten
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 F5 Schlüssel, und dann wurden die Daten transponiert und gestapelt. Siehe Screenshot:
Hinweis: Im VBA-Code gibt A an, dass die Transponierungsdaten in Spalte A des aktiven Blattes platziert und die Originaldaten in Spalte A ersetzt werden sollen.
Transponieren und Stapeln von Daten mit Transponentabellendimension
Wenn Sie Bereichs- und Stapeldaten ohne VBA-Code schnell und einfach transponieren möchten, können Sie sich bewerben Kutools for Excel Transponieren Sie die Tabellendimension Dienstprogramm.
Kutools for Excel, mit mehr als 300 praktische Funktionen erleichtern Ihre Arbeit. |
Nach der Installation Kutools für Excel, bitte gehen Sie wie folgt vor :(Kostenloser Download von Kutools für Excel jetzt!)
1. Wählen Sie die verwendeten Daten aus und klicken Sie auf Kutoolen > Abdeckung > Transponieren Sie die Tischabmessungen. Siehe Screenshot:
2. Überprüfen Sie im Dialogfeld Kreuztabelle zur Liste Wählen Sie eine Zelle aus, in der Sie die transponierten Daten platzieren möchten Ergebnisbereich (Einzelzelle) Textfeld. Siehe Screenshot:
3 Klicken Ok. Jetzt wurde der Bereich transponiert und in Spalten gestapelt.
Transponieren Sie Bereichs- und Stapeldaten
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, 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 Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich
- Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
- Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!