Wie konvertiere ich eine Kreuztabellentabelle (zweidimensionale Tabelle) in eine Liste in Excel?
Wissen Sie, wie Sie eine Kreuztabelle (zweidimensionale Tabelle) in eine Listentabelle (eindimensionale Tabelle) in Microsoft Excel konvertieren? Aus bestimmten Gründen müssen Sie möglicherweise eine Tabelle (mit Zeilen- und Spaltenüberschriften) in eine flache Liste in Excel konvertieren. Mit den folgenden Tricks können Sie eine Kreuztabelle einfach und schnell in eine flache Liste konvertieren:
- Konvertieren Sie eine Kreuztabelle in eine Liste in Excel mit VBA
- Konvertieren Sie mit Kutools for Excel eine Kreuztabelle in eine Liste in Excel
Angenommen, Sie haben eine Kreuztabelle und müssen diese wie folgt in eine Liste konvertieren.
 |
|
 |
| Kreuztabelle (mit Zeilen- und Spaltenüberschriften) | Eine Listentabelle (eindimensionale Tabelle) |
Konvertieren Sie eine Kreuztabelle in eine Liste in Excel mit VBA
Mit dem folgenden VBA-Makro können Sie schnell alle Kreuztabellen im aktiven Arbeitsblatt in flache Listen konvertieren.
Schritt 1: Halten Sie die Taste gedrückt Andere + F11 gibt Excel ein und öffnet das Fenster Microsoft Visual Basic für Applikationen.
Schritt 2: Klicken Sie auf Insert > Modulund fügen Sie das folgende Makro in das Modulfenster ein.
Der VBA bei der Transponierung der Kreuztabellentabelle in die Liste:
Sub ConvertTableToList ()
Const TEST_COLUMN As String = "A"
Dim i So lange, j So lange
Dim iLastRow als lang
Dim iLastCol so lange
Application.ScreenUpdating = False
Mit ActiveSheet
iLastRow = .Cells (.Rows.Count, TEST_COLUMN) .End (xlUp) .Row
Für i = iLastRow To 2 Schritt -1
iLastCol = .Cells (i, .Columns.Count) .End (xlToLeft) .Column
Für j = iLastCol bis 3 Schritt -1
Zeilen (i + 1). Einfügen
.Zellen (i + 1, 2) .Wert = .Zellen (i, j) .Wert
.Cells (i, j) .Value = ""
Weiter j
Weiter ich
.Zeilen (1) .Löschen
Ende mit
Application.ScreenUpdating = True
End Sub
Schritt 3: Klicken Sie auf F5 Schlüssel zum Ausführen dieses Makros.
Dann sehen Sie die konvertierte Liste wie folgt:
Hinweis:
1. Dieses VBA-Makro verliert einige Daten der Originaltabelle, z. B. Header oder andere. In diesem Fall gehen die Überschriften (Name, Note und Klasse) verloren.
2. Sie können As String = "A" ändern, um Ihren Anforderungen gerecht zu werden. Wenn die Kreuztabelle beispielsweise in Spalte E angegeben ist, sollten Sie stattdessen "E" von "A" verwenden.
3. Wenn das Arbeitsblatt andere Daten enthält, sind die Daten in der Liste nach dem Konvertieren einer Kreuztabelle manchmal falsch.
Konvertieren Sie Kreuztabellen in Listen in Excel mit Kutools for Excel
Wenn Sie Kutools for Excel installiert, können Sie seine verwenden Transponieren Sie die Tischabmessungen Tool zum schnellen Konvertieren von Kreuztabellen in flache Listen.
Kutools for Excel Enthält mehr als 300 praktische Excel-Tools. Kostenlos ohne Einschränkung in 30 Tagen zu versuchen. Starten Sie jetzt.
Schritt 1: Wählen Sie die Tabelle aus, die Sie in eine Liste konvertieren möchten.
Schritt 2: Klicken Sie auf Kutoolen >Ändern > Transponieren Sie die Tabellendimension. Siehe folgenden Screenshot:
Schritt 3: Aktivieren Sie im Dialogfeld Tabellenabmessungen transponieren das Kontrollkästchen Kreuztabelle zur Liste Option und wählen Sie die Ergebnisbereich mit einem Klick auf die 
.
Schritt 4: Klicken Sie auf OK .
Dann sehen Sie, dass die ursprüngliche Tabelle wie folgt in eine flache Liste umgewandelt wird:
Transponieren Sie die Tischabmessungen kann auch Liste in Kreuztabellentabelle konvertieren. Weitere Informationen finden Sie unter Transponieren Sie die Tischabmessungen.
Relative Artikel:
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!
