Jak przetransponować / przekonwertować kolumny i wiersze na jeden wiersz?
Jak połączyć wiele wierszy i kolumn w jeden długi wiersz? Może wydaje się to łatwe, ponieważ możesz je kopiować pojedynczo i ręcznie łączyć w rząd. Ale będzie to czasochłonne i żmudne, jeśli istnieją setki wierszy i kolumn. Tutaj omówię kilka szybkich sztuczek, aby go rozwiązać.
Transponuj / konwertuj kolumny i wiersze w jeden wiersz z formułą
Transponuj / konwertuj kolumny i wiersze na jeden wiersz z kodem VBA
Transponuj / konwertuj kolumny i wiersze do jednego wiersza za pomocą Kutools for Excel
Transponuj / konwertuj kolumny i wiersze w jeden wiersz z formułą
Przypuśćmy, że masz zakres danych, jak pokazano na poniższym zrzucie ekranu, możesz przekonwertować dane zakresu na jeden wiersz w nowym arkuszu z długą formułą.
Zastosuj wzór w następujący sposób:
1. W nowym arkuszu aktywnego skoroszytu kliknij komórkę A1, skopiuj i wklej tę formułę: =OFFSET(Sheet1!$A$1,((ROW()-1)*5)+(FLOOR(COLUMN()-1,4)/4),(COLUMN()-1)-(FLOOR(COLUMN()-1,4)))
Note: Arkusz1! 1 $ A $ XNUMX to arkusz i odwołania do zakresów, których chcesz użyć.
WIERSZ () - 1) * 5 w powyższym wzorze, 5 oznacza numer wiersza; i KOLUMNA () - 1,4) / 4The 4 oznacza numer kolumny. Możesz je zmienić według potrzeb.
2. Następnie przeciągnij uchwyt wypełniania w prawo, aż pojawi się cyfra 0. W tym przypadku wszystkie dane w zakresie zostały przeniesione do jednego wiersza w nowym arkuszu. Zobacz zrzut ekranu:
Transponuj / konwertuj kolumny i wiersze na jeden wiersz z kodem VBA
Poniższy kod VBA może również pomóc w przekonwertowaniu zakresu danych na jeden wiersz.
1. Przytrzymaj przycisk ALT + F11 klawisze, aby otworzyć Microsoft Visual Basic for Applications okno.
2. kliknij wstawka > Modułi wklej następujący kod w Moduł okno.
Sub TransformOneRow()
'Updateby20131120
Dim InputRng As Range, OutRng As Range
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Ranges to be transform :", xTitleId, InputRng.Address, Type:=8)
Set OutRng = Application.InputBox("Paste to (single cell):", xTitleId, Type:=8)
Application.ScreenUpdating = False
xRows = InputRng.Rows.Count
xCols = InputRng.Columns.Count
For i = 1 To xRows
InputRng.Rows(i).Copy OutRng
Set OutRng = OutRng.Offset(0, xCols + 0)
Next
Application.ScreenUpdating = True
End Sub
3. Następnie naciśnij F5 aby uruchomić kod, pojawi się okno dialogowe, w którym możesz wybrać zakres treści, które chcesz przekształcić w wiersz, i kliknij Ok, kolejne wyskakujące okno dialogowe służy do wybrania pojedynczej komórki, aby wyświetlić wynik. Zobacz zrzuty ekranu:
Następnie kliknij Okzawartość zaznaczonego zakresu jest konwertowana na wiersz. Zobacz zrzut ekranu:
Note: W Ustaw OutRng = OutRng.Offset (0, xCols + 0), możesz się zmienić 0 na dowolny numer, aby spełnić Twoje potrzeby.
Na przykład, jeśli chcesz oddzielić wyniki według oryginalnych wierszy jedną kolumną, możesz to zmienić Ustaw OutRng = OutRng.Offset (0, xCols + 0) do Ustaw OutRng = OutRng.Offset (0, xCols + 1)wyniki przedstawiono w następujący sposób:
Transponuj / konwertuj kolumny i wiersze do jednego wiersza za pomocą Kutools for Excel
Wygląda na to, że powyższe dwie metody są nieco trudne dla nas, początkujących Excela, tutaj opowiem o poręcznym narzędziu - Kutools dla Excela dla Ciebie.
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
Dzięki narzędziu Zakres transformacji of Kutools dla programu Excel, możesz szybko przekształcić zakres w jeden wiersz, wykonaj następujące czynności:
1. Wybierz zakres, który chcesz przetransponować.
2. kliknij Kutools > Konwerter zasięgu > Zakres transformacjizobacz zrzut ekranu:
3. w Zakres transformacji okno dialogowe, wybierz Zakres do jednego rzędu opcja, patrz zrzut ekranu:
4. Następnie kliknij OKi kliknij komórkę, aby umieścić wynik z wyskakującego okienka.
5. kliknij OK, a dane z zakresu zostały przetransponowane do jednego wiersza. Zobacz zrzuty ekranu:
Jeśli chcesz dowiedzieć się więcej o tej funkcji, odwiedź Zakres transformacji.
Powiązane artykuły:
Jak zmienić wiersz na kolumnę w programie Excel?
Jak przetransponować / przekonwertować pojedynczą kolumnę na wiele kolumn w programie Excel?
Jak przetransponować / przekonwertować kolumny i wiersze na jedną kolumnę?
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!