Jak przekonwertować tabelę krzyżową (tabelę 2-wymiarową) na listę w programie Excel?
Czy wiesz, jak przekonwertować tabelę krzyżową (tabelę dwuwymiarową) na tabelę list (tabelę jednowymiarową) w programie Microsoft Excel? Z pewnych powodów może być konieczne przekonwertowanie tabeli (z nagłówkami wierszy i kolumn) na płaską listę w programie Excel. Poniższe sztuczki mogą pomóc w łatwej i szybkiej konwersji tabeli krzyżowej na płaską listę:
- Konwertuj tabelę krzyżową na listę w programie Excel za pomocą VBA
- Konwertuj tabelę krzyżową na listę w programie Excel za pomocą Kutools for Excel
Przypuśćmy, że masz tabelę krzyżową i musisz przekonwertować ją na listę w następujący sposób.
Tabela krzyżowa (z nagłówkami wierszy i nagłówkami kolumn) | Tabela listy (tabela jednowymiarowa) |
Konwertuj tabelę krzyżową na listę w programie Excel za pomocą VBA
Poniższe makro VBA może pomóc w szybkiej konwersji wszystkich tabel krzyżowych w aktywnym arkuszu na listy płaskie.
Krok 1: Przytrzymaj przycisk inny + F11 klucze w programie Excel i otwiera okno Microsoft Visual Basic for Applications.
Krok 2: Kliknij wstawka > Modułi wklej następujące makro w oknie modułu.
VBA na transpozycji tabeli przestawnej do wyświetlenia:
Sub ConvertTableToList ()
Const TEST_COLUMN As String = „A”
Dim i tak długo, j tak długo
Dim iLastRow tak długo
Dim iLastCol tak długo
Application.ScreenUpdating = Fałsz
Z ActiveSheet
iLastRow = .Cells (.Rows.Count, TEST_COLUMN) .End (xlUp) .Row
Dla i = iLastRow To 2 Step -1
iLastCol = .Cells (i, .Columns.Count) .End (xlToLeft) .Column
Dla j = iLastCol To 3 Step -1
Wiersze (i + 1)
.Cells (i + 1, 2) .Value = .Cells (i, j) .Value
.Cells (i, j) .Value = ""
Następny j
Dalej i
.Rows (1) .Delete
Kończyć z
Application.ScreenUpdating = True
End Sub
Krok 3: Kliknij F5 klucz do uruchomienia tego makra.
Następnie zobaczysz przekonwertowaną listę pokazującą następujący zrzut ekranu:
Uwaga:
1. To makro VBA traci niektóre dane z oryginalnej tabeli, takie jak nagłówki lub inne. W takim przypadku nagłówki (nazwa, stopień i klasa) zostaną utracone.
2. Możesz zmienić As String = "A", aby spełnić swoje potrzeby. Na przykład, jeśli tabela krzyżowa jest podana w kolumnie E, zamiast „E” z „A” należy wpisać „E”.
3. A jeśli w arkuszu są inne dane, czasami dane na liście będą błędne po konwersji tabeli krzyżowej.
Konwertuj tabele krzyżowe na listy w programie Excel za pomocą Kutools for Excel
Jeśli Kutools dla programu Excel zainstalowany, możesz użyć jego Transpozycja wymiarów tabeli narzędzie do szybkiej konwersji tabel krzyżowych na płaską listę.
Kutools dla programu Excel zawiera ponad 300 przydatnych narzędzi programu Excel. Bezpłatne wypróbowanie bez ograniczeń w ciągu 30 dni. Pobierz teraz.
Krok 1: Wybierz tabelę, którą przekonwertujesz na listę.
Krok 2: Kliknij Kutools >modyfikować > Transpozycja wymiaru tabeli. Zobacz następujący zrzut ekranu:
Krok 3: W oknie dialogowym Transpozycja wymiarów tabeli zaznacz Tabela krzyżowa do wyświetlenia opcję i wybierz Zakres wyników klikając przycisk.
Krok 4: Kliknij OK przycisk.
Następnie zobaczysz, że oryginalna tabela jest konwertowana na płaską listę, jak na poniższym zrzucie ekranu:
Transpozycja wymiarów tabeli może również konwertować listę do tabeli przestawnej. Aby uzyskać więcej informacji, przejdź do Transpozycja wymiarów tabeli.
Względne artykuły:
Najlepsze narzędzia biurowe
Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas. Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...
Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę
- Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
- Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
- Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!