Jak łatwo i szybko transponować zakres i układać dane w programie Excel?
Na przykład niektóre dane są wyświetlane w grupach, a teraz chcę transponować zakres i układać dane w każdej kolumnie, jak pokazano poniżej. W tym artykule przedstawię metody tego zadania w programie Excel.
Transponuj i stosuj dane za pomocą VBA
Transponuj i stosuj dane za pomocą opcji Transpose Table Dimension
Transponuj i stosuj dane za pomocą VBA
Możesz zastosować kod VBA, aby transponować i zestawić dane.
1. Wybierz dane poza nagłówkami kolumn i naciśnij Alt + F11 klucze do włączenia Microsoft Visual Basic for Applications okno.
2. kliknij wstawka > Modułi wklej poniższy kod do pliku Moduł.
VBA: Transponuj i stosuj dane
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. naciśnij F5 key, a następnie dane zostały transponowane i ułożone w stos. Zobacz zrzut ekranu:
Uwaga: W kodzie VBA, A wskazuje, aby umieścić transponowane dane w kolumnie A aktywnego arkusza i zastąpić oryginalne dane w kolumnie A.
Transponuj i stosuj dane za pomocą opcji Transpose Table Dimension
Jeśli chcesz szybko i łatwo transponować zakres i układać dane bez kodu VBA, możesz zastosować Kutools dla programu Excel'S Transpozycja wymiaru tabeli użyteczność.
Kutools dla programu Excel, ponad 300 przydatne funkcje, ułatwiają pracę. |
Po zainstalowaniu Kutools dla programu Excel, wykonaj poniższe czynności :(Bezpłatne pobieranie Kutools dla programu Excel teraz!)
1. Wybierz używane dane i kliknij Kutools > łodzie > Transpozycja wymiarów tabeli. Zobacz zrzut ekranu:
2. W oknie dialogowym zaznacz Tabela krzyżowa do wyświetlenia i wybierz komórkę, w której chcesz umieścić transponowane dane Zakres wyników (pojedyncza komórka) pole tekstowe. Zobacz zrzut ekranu:
3. kliknij Ok. Teraz zakres został transponowany i ułożony w kolumny.
Transpozycja danych zakresu i stosu
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!