Note: The other languages of the website are Google-translated. Back to English

Jak odwrócić ciąg tekstowy lub kolejność słów w programie Excel?

Kiedy korzystasz z arkusza programu Excel, jak odwrócić ciąg tekstowy lub kolejność słów w programie Excel? Na przykład chcesz odwrócić „Excel to dla nas przydatne narzędzie"Do"su rof łup lufesu a si lecxE”. Czasami możesz też odwrócić kolejność słów, na przykład „Excela, Worda, PowerPointa, OneNote"Do"OneNote, PowerPoint, Word, Excel”. Zwykle jest to dość trudne do rozwiązania tego problemu. Proszę spojrzeć na następujące metody:

Odwróć ciąg tekstowy z funkcją zdefiniowaną przez użytkownika

Odwróć kolejność słów oddzielonych specjalnym separatorem z kodem VBA

Odwróć ciąg tekstowy lub kolejność słów za pomocą Kutools for Excel szybko i łatwo


strzałka niebieski prawy bąbelek Odwróć ciąg tekstowy z funkcją zdefiniowaną przez użytkownika

Przypuśćmy, że masz zakres ciągów tekstowych, które chcesz odwrócić, na przykład „dodaj wiodące zera w programie Excel"Do"lecxE ni sorez gnidael dda”. Możesz odwrócić tekst, wykonując następujące czynności:

1. Przytrzymaj ALT + F11 klucze i otwiera plik Microsoft Visual Basic for Applications okno.

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

Function Reversestr(str As String) As String
    Reversestr = StrReverse(Trim(str))
End Function

3. Następnie zapisz i zamknij ten kod, wróć do arkusza i wprowadź tę formułę: = reverseestr (A2) do pustej komórki, aby umieścić wynik, patrz zrzut ekranu:

4. Następnie przeciągnij uchwyt wypełniania w dół, aby skopiować tę formułę, a tekst w komórkach jest od razu czczony, patrz zrzut ekranu:


strzałka niebieski prawy bąbelek Odwróć kolejność słów oddzielonych specjalnym separatorem z kodem VBA

Jeśli masz listę słów w komórce oddzielonych przecinkami jako „nauczyciel, lekarz, student, pracownik, kierowca”I chcesz odwrócić kolejność słów, na przykład„kierowca, pracownik, student, lekarz, nauczyciel”. Możesz także użyć podążania za VBA, aby go rozwiązać.

1. Przytrzymaj ALT + F11 klucze i otwiera plik Microsoft Visual Basic for Applications okno.

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

Sub ReverseWord()
'Updateby Extendoffice
Dim Rng As Range
Dim WorkRng As Range
Dim Sigh As String
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Sigh = Application.InputBox("Symbol interval", xTitleId, ",", Type:=2)
For Each Rng In WorkRng
    strList = VBA.Split(Rng.Value, Sigh)
    xOut = ""
    For i = UBound(strList) To 0 Step -1
        xOut = xOut & strList(i) & Sigh
    Next
    Rng.Value = xOut
Next
End Sub

3. Następnie naciśnij F5 klawisz, zostanie wyświetlone okno dialogowe, wybierz zakres do pracy. Zobacz zrzut ekranu:

4. A następnie naciśnij Ok, pojawi się kolejne okno dialogowe, w którym możesz określić separator, na podstawie którego chcesz odwrócić słowa, patrz zrzut ekranu:

5. Następnie kliknij OKi możesz zobaczyć, że wybrane słowa są odwrócone, zobacz zrzuty ekranu:


strzałka niebieski prawy bąbelek Odwróć ciąg tekstowy lub kolejność słów za pomocą Kutools for Excel szybko i łatwo

Podróż Ruta de la Plata w liczbach Kutools dla programu Excel'S Odwróć kolejność tekstu może pomóc w szybkim i wygodnym odwróceniu różnych ciągów tekstowych. Może wykonywać następujące operacje:

Odwróć tekst od prawej do lewej, na przykład „dotknij kilku słów"Do"sdrow emo pat";

Odwróć tekst są oddzielone spacją lub innymi określonymi znakami, takimi jak „winogrono jabłkowo pomarańczowe"Do"winogrono pomarańczowe jabłko";

Kutools dla programu Excel : z ponad 300 poręcznymi dodatkami Excela, które można wypróbować bez ograniczeń w ciągu 30 dni

Odwróć tekst od prawej do lewej:

1. Wybierz zakres, który chcesz odwrócić.

2, Kliknij Kutools > Narzędzia tekstowe > Odwróć kolejność tekstuzobacz zrzut ekranu:

3, w Odwróć tekst w oknie dialogowym wybierz odpowiednią opcję z Separator które odpowiadają wartościom komórek. Możesz wyświetlić podgląd wyników z pliku Okienko podglądu. Zobacz zrzut ekranu:

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


Odwróć tekst są oddzielone spacją lub innymi określonymi znakami:

Ta funkcja może również pomóc w odwróceniu ciągów tekstowych oddzielonych określonymi znakami.

1. Wybierz komórki i zastosuj to narzędzie, klikając Kutools > Tekst > Odwróć kolejność tekstu.

2. W Odwróć tekst W oknie dialogowym wybierz separator oddzielający wartości komórek, na podstawie których chcesz odwrócić słowa, patrz zrzut ekranu:

3. Następnie kliknij Ok or Zastosuj, słowa w komórkach zostały natychmiast zamienione. Zobacz zrzuty ekranu:

Uwagi:Kontrola Pomiń elementy nietekstowe komórki, aby zapobiec odwróceniu liczb w wybranym zakresie.

Aby dowiedzieć się więcej o tej funkcji, odwiedź Odwróć kolejność tekstu.

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


strzałka niebieski prawy bąbelek Demo: Odwróć ciąg tekstowy na podstawie określonego separatora za pomocą Kutools for Excel

Kutools dla programu Excel: z ponad 300 poręcznymi dodatkami do programu Excel, które można wypróbować bez ograniczeń w ciągu 30 dni. Pobierz i bezpłatną wersję próbną teraz!

Podobne artykuły:

Jak odwrócić imię i nazwisko w komórkach w programie 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-2021 i 365. Obsługuje wszystkie języki. Łatwe wdrażanie w przedsiębiorstwie lub organizacji. Pełne funkcje 30-dniowa bezpłatna wersja próbna. 60-dniowa gwarancja zwrotu pieniędzy.
karta kte 201905

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!
officetab dół

 

Sortuj komentarze według
Komentarze (19)
Brak ocen. Oceń jako pierwszy!
Ten komentarz został zminimalizowany przez moderatora na stronie
To jest absurdalne. Tyle kodu do wykonania prostego zadania odwrócenia ciągu? :o Wystarczy dodać funkcję 3-wierszową w module jak poniżej: Function strrev(strValue As String) strrev = StrReverse(strValue) End Function Teraz formuła =strrev(A1) może być użyta w arkuszu Excela. Działa to, ponieważ StrReverse jest wbudowaną funkcją VBA. :D
Ten komentarz został zminimalizowany przez moderatora na stronie
Jeszcze jedno... Function InvertText(str As String) 'Faseeh Muhammad Dim m As Integer For m = Len(str) To 1 Step -1 countRepp = countRepp & Mid(str, m, 1) Next m End Function
Ten komentarz został zminimalizowany przez moderatora na stronie
Przepraszam za trochę edycji Function InvertText(str As String) 'Autor Faseeh Muhammad Dim curr As String Dim m As Integer For m = Len(str) To 1 Step -1 countRepp = countRepp & Mid(str, m, 1) Next m Inverttext Koniec funkcji
Ten komentarz został zminimalizowany przez moderatora na stronie
Cześć wszystkim, próbowałem tej funkcji: Sub ReverseText() 'Updateby20131128 Dim Rng As Range Dim WorkRng As Range On Error Resume Next xTitleId = "KutoolsforExcel" Set WorkRng = Application.Selection Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8) For Each Rng In WorkRng xValue = Rng.Value xLen = VBA.Len(xValue) xOut = "" For i = 1 To xLen getChar = VBA.Right(xValue, 1) xValue = VBA.Left(xValue, xLen - i) xOut = xOut & getChar Next Rng.Value = xOut Next End Sub ale kiedy uruchomiłem go z liczbami, wszystkie zera zostały usunięte. znasz funkcję, która nie usuwa zer? Dzięki!!
Ten komentarz został zminimalizowany przez moderatora na stronie
Użyj kodu funkcji Vineeta jako modułu, a podczas korzystania z formuły użyj tej sztuczki: =strrev(""&D9&""), gdzie D9 zawiera liczbę. Kod VBA Vineeta dla tej funkcji to: Function strrev(strValue As String) strrev = StrReverse(strValue) End Function
Ten komentarz został zminimalizowany przez moderatora na stronie
Użyj tego..umieść swoje dane wejściowe w A1, a dane wyjściowe będą w B1 Sub zzzText() Dim xlen, xvalue, xoutput xlen = VBA.Len(Range("A1")) xvalue = Range("A1").Value xoutput = "" For i = 1 To xlen GetText = VBA.Right(xvalue, 1) xvalue = VBA.Left(xvalue, xlen - i) xoutput = xoutput & GetText Next i Range("B1").Value = xoutput Range( "C1").Wartość = xlen Zakres("D1").Wartość = xwartość Koniec Sub
Ten komentarz został zminimalizowany przez moderatora na stronie
Zauważyłem, że wiele osób na nowo wymyśla koło, wykonując polecenia w lewo, w prawo, VB6 obsługuje ciąg odwrotny SKŁADNIA: strRevese("String") to wszystko, czego potrzebujesz Dim stCellValue, i For i = 1 To 5 Range("A" & X).Select stCellValue = Range("A" & X).Value stCellValue = StrReverse(stCellValue) Range("A" & X).Value = stCellValue Next i Inną fajną sztuczką byłoby wstępne wypełnienie zer, jeśli wartości poniżej 10, ale musi być w formacie czasu, takim jak „10:01:24” zamiast „10:1:24” intMins = 1 stMinutes = right(„00” & intMins, 2) wynik = 01
Ten komentarz został zminimalizowany przez moderatora na stronie
dziękuję, to dla mnie naprawdę przydatne :roll:
Ten komentarz został zminimalizowany przez moderatora na stronie
Cześć Chciałbym odwrócić daty. 20 do 11 Jakaś pomoc? Dzięki
Ten komentarz został zminimalizowany przez moderatora na stronie
W przypadku dat wystarczy zmienić format komórki na wymagany format. Kliknij prawym przyciskiem myszy komórkę, którą chcesz odwrócić, i wybierz formatowanie komórki. Wybierz Data w sekcji kategorii i zmień lokalizację z dowolnego miejsca na USA, Czechy lub inny kraj, który może używać formatu, który Cię interesuje. Następnie wybierz ten, który odpowiada Twoim wymaganiom.
Ten komentarz został zminimalizowany przez moderatora na stronie
Cześć wszystkim, nie mam Kutools do odwrócenia znaku tekstu, jeśli ktoś ma te narzędzia i chce mi pomóc, wyślij mi e-mail, aby wysłać ci mój plik do odwrócenia. mój email to: [b][b]mohanned1@windowslive.com[/b][/b] z poważaniem,
Ten komentarz został zminimalizowany przez moderatora na stronie
proszę przejść przez instrukcje podane na stronie internetowej Extend Office po wyszukaniu w google przez odwrotny ciąg w programie Excel.
Ten komentarz został zminimalizowany przez moderatora na stronie
Możliwe jest odwrócenie tekstu za pomocą formuły, jest to powtarzalne i ograniczone do tego, jak daleko jesteś przygotowany, a także zależy od liczby znaków, które Excel pozwoli na pasku formuły. Maksymalna długość tekstu to 30 znaków i znajduje się w komórce A1. W komórce B1 byłoby: =TRIM(MID(LEFT(A1&REPT(" ",31),31),30,1)&MID(LEFT(A1&REPT(" ",31),31),29,1)&MID(LEFT() A1&REPT(" ",31),31),28,1)&MID(LEWO(A1&REPT(" ",31),31),27,1)&MID(LEWO(A1&REPT(" ",31),31),26,1 ,1)&MID(LEWO(A31&POWT(" ",31),25,1),1)&MID(LEWO(A31&POWT(" ",31),24,1),1)&MID(LEWO(A31&POWT(" ", 31),23,1),1)&MID(LEWO(A31&POWT(" ",31),22,1),1)&MID(LEWO(A31&POWT(" " ",31),21,1)&MID( LEWO(A1&POWT(" ",31),31),20,1)&MID(LEWO(A1&POWT(" ",31),31),19,1)&MID(LEWO(A1&POWT(" ",31),31) ,18,1)&MID(LEWO(A1&POWT(" " ",31),31),17,1)&MID(LEWO(A1&POWT(" " ",31),31),16,1)&MID(LEWO(A1&POWT("" ",31),31),15,1)&MID(LEWO(A1&POWT(" ",31),31),14,1)&MID(LEWO(A1&POWT(" ",31),31) &MID(LEWO(A13,1&REPT(" ",1),31),31)&MID(LEWO(A12,1&REPT(" ",1),31),31)&MID(LEWO(A11,1&REPT(" ",1), 31),31)&MID(LEWO(A10,1&POWT(" " ",1),31),31)&MID(LEWO(A9,1&POWT(" ",1),31),31)&MID(LEWO(A8,1&POWT) (" ",1),31),31)&MID(LEWO(A7,1&POWT(" ",1),31),31)&MID(LEWO(A6,1&POWT(" ",1),31),31, 5,1)&ŚRODEK(LEWO(A1&POWT(" ",31),31),4,1)&ŚRODEK(LEWO(A1&POWT(" ",31),31),3,1)&M ID(LEFT(A1&REPT(" ",31),31),2,1)&MID(LEFT(A1&REPT(" ",31),31),1,1)) Wynik: A1: Duncan Sullivan-Shaw B1: wahS -navillus nacnuD Zasadniczo tekst w komórce A1 ma długość 31 znaków, dodając wystarczająco dużo spacji, aby to umożliwić, a każdy znak jest czytany pojedynczo od prawej do lewej, aż dotrzesz do pierwszego znaku. Spowoduje to, że twój odwrócony tekst będzie zawierał spacje wiodące, które polecenie TRIM usunie za ciebie. Aby skrócić lub zwiększyć długość, należy usunąć lub dodać każde stwierdzenie. Liczba w wyciągu REPT powinna być o 1 większa niż maksymalna długość, nad którą pracujesz, a twoje pierwsze wyciągi MID rozpocznie się od maksymalnej długości schodzącej do 1.
Ten komentarz został zminimalizowany przez moderatora na stronie
Odkryłem, że oryginalny Sub podał wyniki z dodatkowym westchnieniem na końcu wszystkich wybranych komórek. Więc naprawiłem tę część. For i = UBound(strList) To 0 Krok -1 If i > 0 Then xOut = xOut & strList(i) & Sigh Else xOut = xOut & strList(i) Next Rng.Value = xOut
Ten komentarz został zminimalizowany przez moderatora na stronie
Czy można uruchomić rewers z określoną długością znaków (dla funkcji zdefiniowanej przez użytkownika lub kodu VBA)? Na przykład odwróć wartości komórek A1 zaczynając od liczby znaków równej wartości B1. Czyli jeśli B1 ma 10 znaków, rewers rozpocznie się od znaków 11+ w A1..
Ten komentarz został zminimalizowany przez moderatora na stronie
Dziękuję bardzo. Ten kod bardzo pomógł mojemu przyjacielowi
Ten komentarz został zminimalizowany przez moderatora na stronie
super bardzo pomocne dzięki za udostępnienie szczegółów
Ten komentarz został zminimalizowany przez moderatora na stronie
To naprawdę wielka pomoc... Dziękuję bardzo
Ten komentarz został zminimalizowany przez moderatora na stronie
Ik zoek een manier om een ​​heleboel woorden in 'rijm-fabetische volgorde' te zetten. Ostatnie litery z listy słów w języku alfabetów. Wymagam tajemniczego pomysłu? VrGr Amanda
Nie ma tu jeszcze żadnych komentarzy
Zostaw swój komentarz
Publikowanie jako gość
×
Oceń ten post:
0   Postacie
Sugerowane lokalizacje

Bądż na bieżąco

Prawa autorskie © 2009 - www.extendoffice.com. | Wszelkie prawa zastrzeżone. Zasilany przez ExtendOffice, | Mapa strony
Microsoft i logo Office są znakami towarowymi lub zastrzeżonymi znakami towarowymi Microsoft Corporation w Stanach Zjednoczonych i / lub innych krajach.
Chronione przez Sectigo SSL