Przejdź do głównej zawartości

Jak szybko odwrócić / odwrócić wiersz kolejności danych w programie Excel?

Kiedy musisz odwrócić lub odwrócić kolejność danych w wierszu, jak możesz to szybko zrobić? Zwykle może być do tego konieczne użycie kodu VBA lub innych dodatków programu Excel, ponieważ program Excel nie obsługuje takiej operacji. A oto kilka trudnych rzeczy, które pomogą Ci szybko odwrócić lub odwrócić kolejność danych w programie Excel.

Odwróć / odwróć kolejność danych w poziomie w wierszach za pomocą VBA

Odwróć / odwróć kolejność danych w poziomie w wierszach za pomocą Kutools for Excel



strzałka niebieski prawy bąbelek Odwróć / odwróć kolejność danych w poziomie w wierszach za pomocą VBA

Oto zgrabne makro VBA, które może pomóc w szybkim odwróceniu / odwróceniu kolejności danych w wierszach w poziomie.

Krok 1: Przytrzymaj inny + F11 klucze w programie Excel i otwiera plik Microsoft Visual Basic for Applications okno.

Krok 2: Kliknij wstawka > Modułi wklej następujące makro w Modułokno.

Sub FlipRows()
'Updateby20131126
Dim Rng As Range
Dim WorkRng As Range
Dim Arr As Variant
Dim i As Integer, j As Integer, k As Integer
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Arr = WorkRng.Formula
For i = 1 To UBound(Arr, 1)
    k = UBound(Arr, 2)
    For j = 1 To UBound(Arr, 2) / 2
        xTemp = Arr(i, j)
        Arr(i, j) = Arr(i, k)
        Arr(i, k) = xTemp
        k = k - 1
    Next
Next
WorkRng.Formula = Arr
End Sub

Krok 3: Wciśnij F5 klawisz, aby uruchomić to makro, i zostanie wyświetlone okno dialogowe, w którym można wybrać zakres do pracy, patrz zrzut ekranu:

dokument-odwrotna kolejność8

Krok 4: Naciśnij przycisk OK, możesz zobaczyć wynik, jak pokazano poniżej:


strzałka niebieski prawy bąbelek Odwróć / odwróć kolejność danych w poziomie w wierszach za pomocą Kutools for Excel

Z Kutools dla programu Excel'S Odwróć zakres poziomy narzędzie, można szybko odwrócić / odwrócić kolejność danych w poziomie w wybranych wierszach.

Kutools for Excel zawiera ponad 300 poręcznych narzędzi Excel. Bezpłatne wypróbowanie bez ograniczeń w ciągu 30 dni. Pobierz teraz.

Krok 1: Wybierz wiersz, w którym chcesz przerzucić dane.

Krok 2: Kliknij Kutools > Konwerter zasięgu > Odwróć zakres poziomyzobacz zrzut ekranu:

doc-odwrócona-kolejnosc-wierszy3

Następnie zobaczysz, że cała kolejność danych w wybranych wierszach jest odwrócona.

doc-odwrócona-kolejnosc-wierszy4
-1
doc-odwrócona-kolejnosc-wierszy5

Kliknij Odwróć zakres poziomy aby dowiedzieć się więcej o tej funkcji.


Podobne artykuły:

Jak odwrócić / odwrócić kolumnę kolejności danych w pionie w programie Excel?

Najlepsze narzędzia biurowe

🤖 Pomocnik AI Kutools: Zrewolucjonizuj analizę danych w oparciu o: Inteligentne wykonanie   |  Wygeneruj kod  |  Twórz niestandardowe formuły  |  Analizuj dane i generuj wykresy  |  Wywołaj funkcje Kutools...
Popularne funkcje: Znajdź, wyróżnij lub zidentyfikuj duplikaty   |  Usuń puste wiersze   |  Łącz kolumny lub komórki bez utraty danych   |   Okrągły bez wzoru ...
Super wyszukiwanie: Wiele kryteriów VLookup    Wiele wartości VLookup  |   Przeglądanie pionowe na wielu arkuszach   |   Wyszukiwanie rozmyte ....
Zaawansowana lista rozwijana: Szybko twórz listę rozwijaną   |  Zależna lista rozwijana   |  Lista rozwijana wielokrotnego wyboru ....
Menedżer kolumn: Dodaj określoną liczbę kolumn  |  Przesuń kolumny  |  Przełącz stan widoczności ukrytych kolumn  |  Porównaj zakresy i kolumny ...
Polecane funkcje: Fokus siatki   |  Widok projektu   |   Duży pasek formuły    Menedżer skoroszytów i arkuszy   |  Biblioteka zasobów (Automatyczny tekst)   |  Selektor dat   |  Połącz arkusze   |  Szyfruj/odszyfruj komórki    Wysyłaj e-maile według listy   |  Super filtr   |   Specjalny filtr (filtruj pogrubienie/kursywa/przekreślenie...) ...
15 najlepszych zestawów narzędzi12 Tekst Tools (Dodaj tekst, Usuń znaki, ...)   |   50 + Wykres rodzaje (Wykres Gantta, ...)   |   40+ Praktyczne Wzory (Oblicz wiek na podstawie urodzin, ...)   |   19 Wprowadzenie Tools (Wstaw kod QR, Wstaw obraz ze ścieżki, ...)   |   12 Konwersja Tools (Liczby na słowa, Przeliczanie walut, ...)   |   7 Połącz i podziel Tools (Zaawansowane wiersze łączenia, Podział komórki, ...)   |   ... i więcej

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...

Opis


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!
Comments (7)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
In response to Rodrigo, Fbkil:

The error occurs because when you cut and paste the macro text into the Excel VBA editor, there are non-printing characters hidden in the area where the macro rows are indented. Delete them and it will work.

Note: Solved by someone else, not me. Was tricky, as it looked like it should work, but didn't.
This comment was minimized by the moderator on the site
When I try to run this macro, I get the message "syntax error" with the command line "For j = 1 To UBound(Arr, 2) / 2" highlighted in red. Does anyone know how to fix it?
This comment was minimized by the moderator on the site
got the same error. update needed
This comment was minimized by the moderator on the site
Great tool, thanks so much for VBA - I transposed a column to rows first and then used your VBA for reversing - saved tons of time!
This comment was minimized by the moderator on the site
You flipped the column order not the row order as per the title.
This comment was minimized by the moderator on the site
Copy paste (transpose) the row to column. Add 1 to x on the column beside. Filter from largest to smallest and expand. Then copy paste result and transpose to row again
This comment was minimized by the moderator on the site
A quicker way would be be to copy your selection. Right click, choose paste special. Check the transpose button, hit ok and the rows and columns will be transposed. http://office.microsoft.com/en-us/excel-help/switch-transpose-columns-and-rows-HP010224502.aspx
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations