Jak szybko transponować listę adresów z wierszy do kolumn w programie Excel?
Na przykład istnieje jedna lista połączona z nazwiskami i adresami i musisz przekonwertować listę na kolumny, jak pokazano poniżej. W programie Excel nie ma wbudowanej funkcji do obsługi tego, ale w tym artykule mogę przedstawić kilka sztuczek, aby szybko rozwiązać ten problem.
Transponuj listę adresów według VBA
Transponuj listę adresów przez Kutools dla programu Excel
Transponuj listę adresów według VBA
Aby przetransponować listę adresów z wierszy do kolumn, możesz zastosować kod VBA.
1. Włącz arkusz zawierający dane, które chcesz przetransponować i naciśnij Alt + F11 klucze do otwarcia Microsoft Visual Basic for Applications okno.
2. kliknij wstawka > Modułi wklej poniższy kod makra do pliku Moduł. Zobacz zrzut ekranu:
VBA: Transpozycja listy adresów
Sub fixText()
'UpdatebyExtendoffice0170905
Dim I As Integer
Dim K As Integer
Dim xRgS As Range
Dim xRgD As Range
Dim xAddress As String
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Set xRgS = Application.InputBox("Select a range to transpose:", "KuTools For Excel", xAddress, , , , , 8)
If xRgS Is Nothing Then Exit Sub
Set xRgD = Application.InputBox("Select a cell to place result", "KuTools For Excel", , , , , , 8)
If xRgD Is Nothing Then Exit Sub
xRgD(1).Offset(, 0).Value = "Name"
xRgD(1).Offset(, 1).Value = "Address"
xRgD(1).Offset(, 2).Value = "City/State"
K = 1
For I = 1 To xRgS.Rows.Count
xRgD(1).Offset(K).Value = xRgS(I).Value
xRgD(1).Offset(K, 1).Value = xRgS(I + 1).Value
xRgD(1).Offset(K, 2).Value = xRgS(I + 2).Value
K = K + 1
I = I + 2
Next
End Sub
3. naciśnij F5 aby uruchomić kod, i pojawi się okno dialogowe przypominające o wybraniu zakresu danych, którego chcesz użyć. Zobacz zrzut ekranu:
4. kliknij OK, a następnie w następnym wyświetlanym oknie dialogowym wybierz komórkę, aby umieścić transponowany wynik. Zobacz zrzut ekranu:
5. kliknij OK. Teraz pojedyncza lista została przeniesiona do kolumn.
Transponuj listę adresów przez Kutools dla programu Excel
Jeśli Kutools dla programu Excel, możesz zastosować Zakres transformacji funkcja umożliwiająca szybką transpozycję listy adresów do kolumn.
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 dane, które chcesz przetransponować, kliknij Kutools > łodzie > Zakres transformacji. Zobacz zrzut ekranu:
2. W wyskakującym oknie dialogowym zaznacz Pojedyncza kolumna do zakresu opcja w Typ transformacji sekcję i sprawdź Stała wartość opcję i wpisz numer, którego potrzebujesz w prawym polu tekstowym. Zobacz zrzut ekranu:
3. kliknij Oki wybierz komórkę, aby wyprowadzić wynik. Zobacz zrzut ekranu:
4. kliknij OK. Lista adresowa została transponowana.
Demo
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!