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

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 aplikovat, 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ší kancelářské nástroje produktivity

Kutools pro Excel řeší většinu vašich problémů a zvyšuje vaši produktivitu o 80%

  • Opakované použití: Rychle vložte složité vzorce, grafy a cokoli, co jste dříve používali; Šifrovat buňky s heslem; Vytvořte seznam adresátů a posílat e-maily ...
  • Super Formula Bar (snadno upravit více řádků textu a vzorce); Rozložení pro čtení (snadno číst a upravovat velké množství buněk); Vložit do filtrovaného rozsahu...
  • Sloučit buňky / řádky / sloupce bez ztráty dat; Rozdělit obsah buněk; Zkombinujte duplicitní řádky / sloupce... Zabraňte duplicitním buňkám; Porovnat rozsahy...
  • Vyberte možnost Duplikovat nebo Jedinečný Řádky; Vyberte prázdné řádky (všechny buňky jsou prázdné); Super hledání a fuzzy hledání v mnoha sešitech; Náhodný výběr ...
  • Přesná kopie Více buněk beze změny odkazu na vzorec; Automaticky vytvářet reference do více listů; Vložte odrážky, Zaškrtávací políčka a další ...
  • Extrahujte text, Přidat text, Odebrat podle pozice, Odebrat mezeru; Vytváření a tisk mezisoučtů stránkování; Převod mezi obsahem buněk a komentáři...
  • Super filtr (uložit a použít schémata filtrů na jiné listy); Rozšířené řazení podle měsíce / týdne / dne, frekvence a dalších; Speciální filtr tučnou kurzívou ...
  • Kombinujte sešity a pracovní listy; Sloučit tabulky na základě klíčových sloupců; Rozdělte data do více listů; Dávkový převod xls, xlsx a PDF...
  • Více než 300 výkonných funkcí. Podporuje Office / Excel 2007-2021 a 365. Podporuje všechny jazyky. Snadné nasazení ve vašem podniku nebo organizaci. Plné funkce 30denní bezplatná zkušební verze. 60denní záruka vrácení peněz.
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!
officetab dno

 

Komentáře (19)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
Tento komentář byl moderátorem webu minimalizován
To je absurdní. Tolik kódu k provedení pouze jednoduchého úkolu obrácení řetězce? :o Do modulu je třeba přidat pouze 3řádkovou funkci, jak je uvedeno níže: Funkce strrev(strValue As String) strrev = StrReverse(strValue) End Function Nyní lze v listu Excelu použít vzorec =strrev(A1). To funguje, protože StrReverse je vestavěná funkce VBA. :D
Tento komentář byl moderátorem webu minimalizován
Další... Funkce InvertText(str As String) 'By Faseeh Muhammad Dim m As Integer For m = Len(str) To 1 Step -1 countRepp = countRepp & Mid(str, m, 1) Next m End Function
Tento komentář byl moderátorem webu minimalizován
Omlouvám se za malou úpravu Funkce InvertText(str As String) 'Od 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 End Function
Tento komentář byl moderátorem webu minimalizován
Ahoj všichni, zkusil jsem tuto funkci: 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 Every 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 Další Rng.Value = xOut Další End Sub, ale když jsem to spustil s čísly, smazal všechny nuly. znáte funkci, která nemaže nuly? Dík!!
Tento komentář byl moderátorem webu minimalizován
Použijte Vineetův funkční kód jako modul a při použití vzorce použijte tento trik: =strrev(""&D9&"") kde D9 obsahuje číslo. Vineetův kód VBA pro tuto funkci je: Funkce strrev(strValue As String) strrev = StrReverse(strValue) End Function
Tento komentář byl moderátorem webu minimalizován
Použijte toto..vložte svůj vstup do A1, výstup bude v 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").Value = xlen Range("D1").Value = xvalue End Sub
Tento komentář byl moderátorem webu minimalizován
Všiml jsem si, že mnoho lidí znovu vynalézá kolo pomocí příkazů doleva a doprava, VB6 podporuje obrácený řetězec SYNTAX: strRevese("String") to je vše, co potřebujete Dim stCellValue, i For i = 1 až 5 Range ("A" & X).Select stCellValue = Range("A" & X).Value stCellValue = StrReverse(stCellValue) Range("A" & X).Value = stCellValue Next i Dalším šikovným trikem by bylo předvyplnění nul, pokud hodnoty méně než 10, ale musí být ve formátu času, jako je "10:01:24" spíše než "10:1:24" intMins = 1 stMinutes = vpravo("00" & intMins, 2) výsledek = 01
Tento komentář byl moderátorem webu minimalizován
děkuji je to pro mě opravdu užitečné :roll:
Tento komentář byl moderátorem webu minimalizován
Ahoj, rád bych obrátil data. 20/11/2015 až 2015/11/20 Nějaká pomoc? dík
Tento komentář byl moderátorem webu minimalizován
Pro data stačí změnit formát buňky na požadovaný formát. Klikněte pravým tlačítkem na buňku, kterou chcete obrátit, a vyberte formátovat buňku. Vyberte Datum v sekci kategorie a změňte umístění z libovolného místa na USA nebo Česko nebo jinou zemi, která může používat formát, který vás zajímá. Poté vyberte ten, který odpovídá vašim požadavkům.
Tento komentář byl moderátorem webu minimalizován
ahoj všichni, nemám Kutools pro obrácení znaku textu, pokud někdo má tyto nástroje a chce mi pomoci, pošlete mi prosím e-mail, abych vám poslal můj soubor pro obrácení. můj email je: [b][b]mohanned1@windowslive.com[/b][/b] s pozdravem,
Tento komentář byl moderátorem webu minimalizován
projděte si prosím pokyny poskytnuté webem extend office po vyhledání pomocí Googlu pomocí obráceného řetězce v aplikaci Excel.
Tento komentář byl moderátorem webu minimalizován
Je možné obrátit text pomocí vzorce, je opakující se a omezený na to, jak daleko jste připraveni zajít, a v závislosti na počtu znaků, které Excel umožní v řádku vzorců. Maximální délka textu bude 30 znaků a je v buňce A1. Buňka B1 by vypadala takto: =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 ,1)&MID(LEFT(A31&REPT(" ",31);25,1),1)&MID(LEFT(A31&REPT(" ",31);24,1),1)&MID(LEFT(A31&REPT(" ", 31),23,1),1)&MID(LEFT(A31&REPT(" ",31);22,1),1)&MID(LEFT(A31&REPT(" ",31);21,1),1)&MID( LEFT(A31&REPT(" ",31);20,1);1;31)&MID(LEFT(A31&REPT(" ",19,1);1);31)&MID(LEFT(A31&REPT(" ";18,1);1) ,31)&MID(LEFT(A31&REPT(" ",17,1);1),31)&MID(LEFT(A31&REPT(" ",16,1);1),31)&MID(LEFT(A31&REPT(" ",15,1),1),31)&MID(LEFT(A31&REPT(" ",14,1);1),31)&MID(LEFT(A31&REPT(" ",13,1);1),31) &MID(LEFT(A31&REPT(" ",12,1);1);31;31)&MID(LEFT(A11,1&REPT(" ",1);31),31)&MID(LEFT(A10,1&REPT(" ",1), 31),31)&MID(LEFT(A9,1&REPT(" ",1);31),31)&MID(LEFT(A8,1&REPT(" ",1);31),31)&MID(LEFT(A7,1&REPT) (" ",1);31),31)&MID(LEFT(A6,1&REPT(" ",1);31),31)&MID(LEFT(A5,1&REPT(" ",1);31),31, 4,1)&MID(LEFT(A1&REPT(" ";31);31);3,1)&MID(LEFT(A1&REPT(" ";31);31);2,1)&M ID(LEFT(A1&REPT(" ",31);31);1,1)&MID(LEFT(A1&REPT(" ",1);1);31)) Výsledek: A1: Duncan Sullivan-Shaw B1: wahS -navilluS nacnuD Váš text v buňce AXNUMX bude mít v podstatě XNUMX znaků přidáním dostatečného množství mezer, aby to bylo možné, a každý znak se čte jednotlivě zprava doleva, dokud nedosáhnete prvního znaku. Výsledkem bude váš obrácený text obsahující úvodní mezery, které za vás příkaz TRIM odstraní. Chcete-li zkrátit nebo zvětšit délku, odeberte nebo přidejte každý příkaz. Číslo v příkazu REPT by mělo být o XNUMX větší, než je maximální délka, na kterou pracujete, a váš první příkaz MID bude začínat na maximální délce až na XNUMX.
Tento komentář byl moderátorem webu minimalizován
Zjistil jsem, že původní Sub vydal výsledky s dalším povzdechem na konci všech vybraných buněk. Tak jsem tuto část opravil. 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
Tento komentář byl moderátorem webu minimalizován
Je možné spustit zpětný chod při určité délce znaků (pro uživatelem definovanou funkci nebo kód VBA)? Například vraťte hodnoty buňky A1 počínaje počtem znaků rovným hodnotě B1. Pokud je tedy B1 10 znaků, obrácený postup začne na znacích 11+ v A1.
Tento komentář byl moderátorem webu minimalizován
Děkuji mnohokrát. Tento kód pomohl mému příteli velmi dobrým způsobem
Tento komentář byl moderátorem webu minimalizován
úžasné velmi užitečné díky za sdílení podrobností
Tento komentář byl moderátorem webu minimalizován
Je to opravdu skvělá pomoc... Děkuji mnohokrát
Tento komentář byl moderátorem webu minimalizován
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 nápad? VrGr Amanda
Zatím zde nejsou žádné komentáře
Zanechat své připomínky
Odesílání jako host
×
Ohodnoťte tento příspěvek:
0   Postavy
Doporučená umístění

Sociální sítě

Copyright © 2009 - www.extendoffice.com. | Všechna práva vyhrazena. Poháněno ExtendOffice. | |. | Sitemap
Microsoft a logo Office jsou ochranné známky nebo registrované ochranné známky společnosti Microsoft Corporation ve Spojených státech a / nebo jiných zemích.
Chráněno Sectigo SSL