Jak przetransponować co 5 lub n wierszy z jednej kolumny do wielu kolumn?

Przypuśćmy, że masz długie dane w kolumnie A, a teraz chcesz transponować co 5 wierszy z kolumny A do wielu kolumn, na przykład transponować A1: A5 do C6: G6, A6: A10 do C7: G7 itd. następujący zrzut ekranu. Jak poradzić sobie z tym zadaniem bez wielokrotnego kopiowania i wklejania w programie Excel?

Transponuj co 5 lub n wierszy z jednej kolumny do wielu kolumn za pomocą formuły

Transponuj co 5 lub n wierszy z jednej kolumny do wielu kolumn za pomocą kodu VBA

Transponuj co 5 lub n wierszy z jednej kolumny do wielu kolumn za pomocą Kutools for Excel

Transponuj co 5 lub n wierszy z jednej kolumny do wielu kolumn za pomocą formuły

W programie Excel możesz zastosować następującą formułę, aby transponować każde n wierszy z jednej kolumny do wielu kolumn, wykonaj następujące czynności:

1. Wprowadź następującą formułę do pustej komórki, w której chcesz umieścić wynik, na przykład C1, = INDEKS ($ A: $ A, WIERSZ (A1) * 5-5 + KOLUMNA (A1))zobacz zrzut ekranu:

Uwagi: W powyższym wzorze, Odp .: A to odniesienie do kolumny, które chcesz przetransponować, a A1 jest pierwszą komórką używanej kolumny, liczbą 5 wskazuje liczbę kolumn, które zostaną zlokalizowane przez Twoje dane, możesz je zmienić według potrzeb. Pierwsza komórka listy musi znajdować się w pierwszym wierszu arkusza.

2. Następnie przeciągnij uchwyt wypełniania w prawo do pięciu komórek i kontynuuj przeciąganie uchwytu wypełniania w dół do zakresu komórek, aż wyświetli się 0, patrz zrzut ekranu:

Transponuj co 5 lub n wierszy z jednej kolumny do wielu kolumn za pomocą kodu VBA

Jeśli nie możesz poprawnie zastosować formuły, następujący kod VBA również może Ci pomóc.

1. Przytrzymaj ALT + F11 klawisze, aby otworzyć Microsoft Visual Basic for Applications okno.

2, Kliknij wstawka > Modułi wklej następujący kod w Moduł Okno.

Kod VBA: transponuj co 5 lub n wierszy z jednej kolumny do wielu kolumn:

Public Sub TransposeData()
'updateby Extendoffice
    Dim xLRow As Long
    Dim xNRow As Long
    Dim i As Long
    Dim xUpdate As Boolean
    Dim xRg As Range
    Dim xOutRg As Range
    Dim xTxt As String
    On Error Resume Next
    xTxt = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select data range(only one column):", "Kutools for Excel", xTxt, , , , , 8)
    Set xRg = Application.Intersect(xRg, xRg.Worksheet.UsedRange)
    If xRg Is Nothing Then Exit Sub
    If (xRg.Columns.Count > 1) Or _
       (xRg.Areas.Count > 1) Then
        MsgBox "the used range only contain one column", , "Kutools for Excel"
        Exit Sub
    End If
    Set xOutRg = Application.InputBox("please select output range(specify one cell):", "Kutools for Excel", xTxt, , , , , 8)
    If xOutRg Is Nothing Then Exit Sub
    Set xOutRg = xOutRg.Range(1)
    xUpdate = Application.ScreenUpdating
    Application.ScreenUpdating = False
    xLRow = xRg.Rows.Count
    For i = 1 To xLRow Step 5
        xRg.Cells(i).Resize(5).Copy
        xOutRg.Offset(xNRow, 0).PasteSpecial Paste:=xlPasteAll, Transpose:=True
        xNRow = xNRow + 1
    Next
    Application.ScreenUpdating = xUpdate
End Sub

3. Po wklejeniu kodu naciśnij F5 klawisz, aby go uruchomić, a pojawi się okno zachęty przypominające o wybraniu kolumny, którą chcesz transponować, patrz zrzut ekranu:

4. Następnie kliknij OKi wybierz jedną komórkę, w której chcesz umieścić wynik w innym wyskakującym okienku, zobacz zrzut ekranu:

5, i kliknij OKdane w kolumnie zostały przekonwertowane na pięć potrzebnych kolumn, patrz zrzut ekranu:

Uwagi: W powyższym kodzie możesz zmienić numer 5 na inny numer, którego potrzebujesz.

Transponuj co 5 lub n wierszy z jednej kolumny do wielu kolumn za pomocą Kutools for Excel

Jeśli masz Kutools dla programu Excel, Z siedzibą w Zakres transformacji narzędzie, możesz szybko transponować jedną kolumnę lub wiersz do wielu kolumn i wierszy.

Po zainstalowaniu Kutools dla programu Excelwykonaj następujące czynności:

1. Wybierz dane w kolumnie, a następnie kliknij Kutools > Zakres > Zakres transformacjizobacz zrzut ekranu:

2, w Zakres transformacji okno dialogowe, wybierz Pojedyncza kolumna do zakresu opcja pod Typ transformacji, a następnie sprawdź Stała wartość pod Wiersze na rekord, a następnie określ liczbę kolumn, do których chcesz transponować w pliku Stała wartość pudełko, patrz zrzut ekranu:

3. A następnie kliknij Ok przycisk, w wyskakującym okienku wybierz komórkę, aby wyświetlić wynik, patrz zrzut ekranu:

4. Następnie kliknij OK przycisk, a dane kolumny zostały transponowane co 5 wierszy, jak pokazano na poniższym zrzucie ekranu:

Pobierz i bezpłatną wersję próbną Kutools dla programu Excel teraz!

Demo: Transponuj co 5 lub n wierszy z jednej kolumny do wielu kolumn za pomocą Kutools for Excel

Najlepsze narzędzia biurowe

Kutools dla programu Excel rozwiązuje większość problemów i zwiększa produktywność o 80%

• Ponowne użycie: Szybko włóż złożone wzory, wykresy i wszystko, czego używałeś wcześniej; Szyfruj komórki z hasłem; Utwórz listę mailingową i wysyłaj e-maile ...
• Pasek Super Formula (łatwo edytować wiele wierszy tekstu i formuły); Układ do czytania (łatwe odczytywanie i edytowanie dużej liczby komórek); Wklej do filtrowanego zakresu...
• Scal komórki / wiersze / kolumny bez utraty danych; Podziel zawartość komórek; Połącz zduplikowane wiersze / kolumny... Zapobiegaj zduplikowanym komórkom; Porównaj zakresy...
• Wybierz Duplikat lub Unikalny Wydziwianie; Wybierz puste wiersze (wszystkie komórki są puste); Super Find i Fuzzy Find w wielu zeszytach ćwiczeń; Losowy wybór ...
• Dokładna kopia Wiele komórek bez zmiany odwołania do formuły; Automatyczne tworzenie odniesień do wielu arkuszy; Wstaw punktory, Pola wyboru i nie tylko ...
• Wyodrębnij tekst, Dodaj tekst, Usuń według pozycji, Usuń przestrzeń; Tworzenie i drukowanie podsumowań stronicowania; Konwertuj zawartość komórek i komentarze...
• Super filtr (zapisz i zastosuj schematy filtrów do innych arkuszy); Zaawansowane sortowanie według miesiąca / tygodnia / dnia, częstotliwości i innych; Specjalny filtr pogrubieniem, kursywą ...
• Połącz skoroszyty i arkusze robocze; Scal tabele na podstawie kluczowych kolumn; Podziel dane na wiele arkuszy; Konwersja wsadowa xls, xlsx i PDF...
• Ponad 300 zaawansowanych funkcji. Obsługuje Office / Excel 2007-2019 i 365. Obsługuje wszystkie języki. Łatwe wdrażanie w przedsiębiorstwie lub organizacji. Pełne funkcje 30-dniowy bezpłatny okres próbny. 60-dniowa gwarancja zwrotu pieniędzy.

Czytaj więcej... Darmowe pobieranie... Zakup... 

---

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ęć myszą każdego dnia!

Czytaj więcej... Darmowe pobieranie... Zakup...