Přejít k hlavnímu obsahu

Jak změnit pořadí textových řetězců nebo slov v aplikaci Excel?

Jak použijete list aplikace Excel, jak obrátíte pořadí textových řetězců nebo slov v aplikaci Excel? Například chcete obrátit „Excel je pro nás užitečným nástrojem"To"su rof loot lufesu a si lecxE“. Nebo někdy můžete změnit pořadí slov, například „Excel, Word, PowerPoint, OneNote"To"OneNote, PowerPoint, Word, Excel“. Obvykle je tento problém poněkud obtížné vyřešit. Podívejte se prosím na následující metody:

Obrátit textový řetězec s uživatelem definovanou funkcí

Pořadí obrácených slov oddělené konkrétním oddělovačem s kódem VBA

Obraťte textový řetězec nebo pořadí slov pomocí aplikace Kutools pro Excel rychle a snadno


šipka modrá pravá bublina Obrátit textový řetězec s uživatelem definovanou funkcí

Předpokládejme, že máte řadu textových řetězců, které chcete převrátit, například „přidat úvodní nuly v aplikaci Excel"To"lecxE ni sorez gnidael dda“. Text můžete obrátit pomocí následujících kroků:

1. Podržte ALT + F11 klíče a otevře se Microsoft Visual Basic pro aplikace okno.

2, klikněte Vložit > Modula vložte následující makro do souboru Modulokno.

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

3. A poté tento kód uložte a zavřete, vraťte se do listu a zadejte tento vzorec: = reverzní (A2) do prázdné buňky pro vložení výsledku, viz screenshot:

4. Potom přetáhněte úchyt výplně dolů a zkopírujte tento vzorec a text v buňkách je ctěn najednou, viz screenshot:


šipka modrá pravá bublina Pořadí obrácených slov oddělené konkrétním oddělovačem s kódem VBA

Pokud máte seznam buněk, která jsou oddělena čárkami, takhle “učitel, lékař, student, pracovník, řidič„A chcete změnit pořadí slov takto“řídit, pracovník, student, lékař, učitel“. K vyřešení můžete také použít follow VBA.

1. Podržte ALT + F11 klíče a otevře se Microsoft Visual Basic pro aplikace okno.

2, klikněte Vložit > Modula vložte následující makro do souboru Modul 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. Pak stiskněte tlačítko F5 klíč, zobrazí se dialogové okno, vyberte rozsah, se kterým chcete pracovat. Viz snímek obrazovky:

4. A pak stiskněte Ok, vyskočí další dialogové okno, kde můžete určit oddělovač, na kterém chcete slova obrátit, viz screenshot:

5. Pak klikněte na tlačítko OK, a můžete vidět, že vybraná slova jsou obrácena, viz screenshoty:


šipka modrá pravá bublina Obraťte textový řetězec nebo pořadí slov pomocí aplikace Kutools pro Excel rychle a snadno

Projekt Kutools pro ExcelJe Opačné pořadí textu vám pomůže rychle a pohodlně převrátit různé textové řetězce. Může provádět následující operace:

Obrátit text zprava doleva, například „klepněte na některá slova"To"sdrow emos pat";

Zpětný text je oddělen mezerou nebo jinými specifickými znaky, například „jablko pomerančový hrozen"To"hroznové oranžové jablko";

Kutools pro Excel : s více než 300 praktickými doplňky Excel, můžete si je vyzkoušet bez omezení do 30 dnů

Obrátit text zprava doleva:

1. Vyberte rozsah, který chcete obrátit.

2, klikněte Kutools > Textové nástroje > Opačné pořadí textu, viz screenshot:

3. V Obrátit text V dialogovém okně vyberte příslušnou možnost oddělovač které odpovídají hodnotám buněk. A můžete zobrazit náhled výsledků z Podokno náhledu. Viz snímek obrazovky:

 Stáhněte si zdarma zkušební verzi Kutools pro Excel!


Reverzní text je oddělen mezerou nebo jinými specifickými znaky:

Tato funkce vám také pomůže obrátit textové řetězce oddělené konkrétními znaky.

1. Vyberte buňky a použijte tento nástroj kliknutím Kutools > Text > Opačné pořadí textu.

2. v Obrátit text V dialogovém okně vyberte oddělovač, který odděluje hodnoty buněk, na které chcete slova obrátit, viz screenshot:

3. Pak klikněte na tlačítko Ok or Podat žádost, slova v buňkách byla obrácena najednou. Zobrazit snímky obrazovky:

Poznámka: Kontrola Přeskočit netext buňky, aby se zabránilo obrácení čísel ve vybraném rozsahu.

Chcete-li se o této funkci dozvědět více, navštivte stránku Opačné pořadí textu.

Stáhněte si zdarma zkušební verzi Kutools pro Excel!


šipka modrá pravá bublina Ukázka: Reverzní textový řetězec založený na konkrétním oddělovači s programem Kutools pro Excel

Kutools pro Excel: s více než 300 praktickými doplňky aplikace Excel, můžete vyzkoušet bez omezení do 30 dnů. Stáhněte si a vyzkoušejte zdarma hned teď!

Související článek:

Jak převrátit jméno a příjmení v buňkách v aplikaci Excel?

Nejlepší nástroje pro produktivitu v kanceláři

Populární funkce: Najít, zvýraznit nebo identifikovat duplikáty   |  Odstranit prázdné řádky   |  Kombinujte sloupce nebo buňky bez ztráty dat   |   Kolo bez vzorce ...
Super vyhledávání: Více kritérií VLookup    VLookup s více hodnotami  |   VLookup na více listech   |   Fuzzy vyhledávání ....
Pokročilý rozevírací seznam: Rychle vytvořte rozevírací seznam   |  Závislý rozbalovací seznam   |  Vícenásobný výběr rozevíracího seznamu ....
Správce sloupců: Přidejte konkrétní počet sloupců  |  Přesunout sloupce  |  Přepnout stav viditelnosti skrytých sloupců  |  Porovnejte rozsahy a sloupce ...
Doporučené funkce: Zaměření mřížky   |  Návrhové zobrazení   |   Velký Formula Bar    Správce sešitů a listů   |  Knihovna zdrojů (Automatický text)   |  Výběr data   |  Zkombinujte pracovní listy   |  Šifrovat/dešifrovat buňky    Odesílat e-maily podle seznamu   |  Super filtr   |   Speciální filtr (filtr tučné/kurzíva/přeškrtnuté...) ...
Top 15 sad nástrojů12 Text Tools (doplnit text, Odebrat znaky, ...)   |   50+ Graf Typ nemovitosti (Ganttův diagram, ...)   |   40+ Praktické Vzorce (Vypočítejte věk na základě narozenin, ...)   |   19 Vložení Tools (Vložte QR kód, Vložit obrázek z cesty, ...)   |   12 Konverze Tools (Čísla na slova, Přepočet měny, ...)   |   7 Sloučit a rozdělit Tools (Pokročilé kombinování řádků, Rozdělit buňky, ...)   |   ... a více

Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času.  Kliknutím sem získáte funkci, kterou nejvíce potřebujete...

karta kte 201905


Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci

  • Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
  • Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
  • Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!

 

Comments (19)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Ik zoek een manier om een heleboel woorden in 'rijm-fabetische volgorde' te zetten. Dus de laatste letters van het woord moeten in alfabetische volgorde. Iemand enig idee? VrGr Amanda
This comment was minimized by the moderator on the site
This is truly a great help ... Thank you so much
This comment was minimized by the moderator on the site
awesome very helpful thanks for sharing the details
This comment was minimized by the moderator on the site
Thank you very much. This code helped my friend in a very good way
This comment was minimized by the moderator on the site
Is it possible to start the reverse at a certain character length (for the user-defined function or VBA code)? For example, reverse cell A1 values starting after the character count equal to B1 value. So if B1 is 10 characters reverse will start at characters 11+ in A1..
This comment was minimized by the moderator on the site
I found that the original Sub gave out the results with additional sigh at the end of all selected cells. So I fixed this part. For i = UBound(strList) To 0 Step -1 If i > 0 Then xOut = xOut & strList(i) & Sigh Else xOut = xOut & strList(i) Next Rng.Value = xOut
This comment was minimized by the moderator on the site
It's possible to reverse text using formula, it is repetitive and limited to how far you are prepared to go and subject to number of characters excel will allow in the formula bar. Max length of text will be 30 chars and is in cell A1. Cell B1 would read: =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(LEFT(A1&REPT(" ",31),31),27,1)&MID(LEFT(A1&REPT(" ",31),31),26,1)&MID(LEFT(A1&REPT(" ",31),31),25,1)&MID(LEFT(A1&REPT(" ",31),31),24,1)&MID(LEFT(A1&REPT(" ",31),31),23,1)&MID(LEFT(A1&REPT(" ",31),31),22,1)&MID(LEFT(A1&REPT(" ",31),31),21,1)&MID(LEFT(A1&REPT(" ",31),31),20,1)&MID(LEFT(A1&REPT(" ",31),31),19,1)&MID(LEFT(A1&REPT(" ",31),31),18,1)&MID(LEFT(A1&REPT(" ",31),31),17,1)&MID(LEFT(A1&REPT(" ",31),31),16,1)&MID(LEFT(A1&REPT(" ",31),31),15,1)&MID(LEFT(A1&REPT(" ",31),31),14,1)&MID(LEFT(A1&REPT(" ",31),31),13,1)&MID(LEFT(A1&REPT(" ",31),31),12,1)&MID(LEFT(A1&REPT(" ",31),31),11,1)&MID(LEFT(A1&REPT(" ",31),31),10,1)&MID(LEFT(A1&REPT(" ",31),31),9,1)&MID(LEFT(A1&REPT(" ",31),31),8,1)&MID(LEFT(A1&REPT(" ",31),31),7,1)&MID(LEFT(A1&REPT(" ",31),31),6,1)&MID(LEFT(A1&REPT(" ",31),31),5,1)&MID(LEFT(A1&REPT(" ",31),31),4,1)&MID(LEFT(A1&REPT(" ",31),31),3,1)&MID(LEFT(A1&REPT(" ",31),31),2,1)&MID(LEFT(A1&REPT(" ",31),31),1,1)) Result: A1: Duncan Sullivan-Shaw B1: wahS-navilluS nacnuD Basically your text in cell A1 becomes 31 characters long by adding enough spaces to enable this, and each character is read singularly from right to left until you reach the first character. This will result in your reversed text containing leading spaces, which the TRIM command removes for you. To reduce or increase the length you would remove or add each statement. The number within the REPT statement should be 1 more than the maximum length you are working to and your first MID statement will start at the maximum length working down to 1.
This comment was minimized by the moderator on the site
hi all, i don't have Kutools to reverse a character of text, if anybody has this tools and want to help me, please send me email to send my file to you for reverse. my email is: [b][b][/b][/b] with regards,
This comment was minimized by the moderator on the site
please go through the instructions give by the extend office website after searching with google by reverse string in excel.
This comment was minimized by the moderator on the site
Hi I would like to reverse Dates. 20/11/2015 to 2015/11/20 Any Help? Thanks
This comment was minimized by the moderator on the site
For dates all you need to do is change the format of the cell to the format needed. Right click on the cell you would like to reverse and select format cell. Select Date under the category section and change the location from wherever you are to US or Czech or another country that may use the format you are interested in. Then pick the one that matches your requirements.
This comment was minimized by the moderator on the site
thank you its really useful for me :roll:
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations