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

Hogyan lehet megfordítani a szöveges karakterláncokat vagy szavakat az Excelben?

Amikor az Excel munkalapot használja, hogyan változtathatja meg a szöveges karakterláncokat vagy szavakat az Excelben? Például meg akarja fordítani aAz Excel hasznos eszköz számunkra"A"su rof loot lufesu a si lecxE”. Vagy néha megfordíthatja a szavak sorrendjét, például:Excel, Word, PowerPoint, OneNote"A"OneNote, PowerPoint, Word, Excel”. Normális esetben ezt kissé nehéz megoldani. Kérjük, nézze meg a következő módszereket:

Fordított szöveges karakterlánc a felhasználó által definiált funkcióval

A fordított szavak sorrendje elválasztóval elválasztva, VBA kóddal

Fordítsa meg a szöveges karakterláncokat vagy szavakat a Kutools for Excel segítségével gyorsan és egyszerűen


nyíl kék jobb buborék Fordított szöveges karakterlánc a felhasználó által definiált funkcióval

Tételezzük fel, hogy vannak olyan szöveges karakterláncok, amelyeket vissza akar állítani, például:adjon hozzá vezető nullákat az Excel-ben"A"lecxE ni sorez gnidael dda”. A szöveget a következő lépésekkel fordíthatja meg:

1. Tartsa lenyomva a ALT + F11 gombokat, és ez megnyitja a Microsoft Visual Basic for Applications ablak.

2. Kattints betétlap > Modulok, és illessze be a következő makrót a Modulokablak.

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

3. Ezután mentse el és zárja be ezt a kódot, menjen vissza a munkalapra, és írja be ezt a képletet: = hátramenet (A2) egy üres cellába az eredmény elhelyezéséhez, lásd a képernyőképet:

4. Ezután húzza lefelé a kitöltő fogantyút ennek a képletnek a másolásához, és a cellákban lévő szöveg egyszerre tisztelhető, lásd a képernyőképet:


nyíl kék jobb buborék A fordított szavak sorrendje elválasztóval elválasztva, VBA kóddal

Ha van olyan cellaszavak listája, amelyek vesszővel vannak elválasztva,tanár, orvos, diák, munkás, sofőr”, És meg akarja fordítani a következő sorrendet:meghajtó, munkás, diák, orvos, tanár”. Használhatja a follow VBA megoldását is.

1. Tartsa lenyomva a ALT + F11 gombokat, és ez megnyitja a Microsoft Visual Basic for Applications ablak.

2. Kattints betétlap > Modulok, és illessze be a következő makrót a Modulok ablak.

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. Ezután nyomja meg a gombot F5 gombot, megjelenik egy párbeszédablak, kérjük, válasszon egy tartományt, amellyel dolgozik. Lásd a képernyőképet:

4. Ezután nyomja meg a gombot Ok, egy újabb párbeszédpanel jelenik meg, ahol megadhatja az elválasztót, amely alapján meg akarja fordítani a szavakat, lásd a képernyőképet:

5. Ezután kattintson OK, és láthatja, hogy a kiválasztott szavak megfordultak, lásd a képernyőképeket:


nyíl kék jobb buborék Fordítsa meg a szöveges karakterláncokat vagy szavakat a Kutools for Excel segítségével gyorsan és egyszerűen

A Kutools az Excel számára'S Fordított szövegrend segíthet a szöveges karakterláncok gyors és kényelmes megfordításában. A következő műveleteket tudja végrehajtani:

Fordítsa a szöveget jobbról balra, például:érintse meg néhány szót"A"sdrow emos pat";

A fordított szöveg szóközzel vagy más speciális karakterekkel van elválasztva, például:alma narancs szőlő"A"szőlő narancs alma";

Kutools az Excel számára : több mint 300 praktikus Excel-bővítménnyel, ingyenesen, korlátozás nélkül, 30 nap alatt kipróbálható

Fordítsa a szöveget jobbról balra:

1. Válassza ki a megfordítani kívánt tartományt.

2. Kattints Kutools > Szöveges eszközök > Fordított szövegrend, lásd a képernyőképet:

3. Az Fordított szöveg párbeszédpanelen válassza ki a megfelelő opciót szétválasztó amelyek megfelelnek a cellaértékeknek. És megtekintheti az eredményeket a Előnézet panel. Lásd a képernyőképet:

 Töltse le és ingyenes próbaverziót Kutools for Excel Now!


A fordított szöveg szóközzel vagy más speciális karakterekkel van elválasztva:

Ez a szolgáltatás segítséget nyújthat a szöveges karakterláncok megfordításában is, amelyeket külön karakterek választanak el egymástól.

1. Válassza ki a cellákat, és kattintson erre a segédprogramra Kutools > szöveg > Fordított szövegrend.

2. Ban,-ben Fordított szöveg párbeszédpanelen válassza ki az elválasztót, amely elválasztja azokat a cellaértékeket, amelyek alapján meg akarja fordítani a szavakat, lásd a képernyőképet:

3. Ezután kattintson Ok or alkalmaz, a cellák szavai egyszerre megfordultak. Képernyőképek megtekintése:

Megjegyzések: Ellenőrzés A szöveg nélküli kihagyás cellákat, hogy megakadályozza a számok megfordítását a kiválasztott tartományban.

Ha többet szeretne tudni erről a funkcióról, kérjük, látogasson el Fordított szövegrend.

Töltse le és ingyenes próbaverziót Kutools for Excel Now!


nyíl kék jobb buborék Bemutató: Fordítsa meg a szöveges karakterláncot külön elválasztó alapján a Kutools for Excel programmal

Kutools az Excel számára: több mint 300 praktikus Excel-bővítménnyel, ingyenesen, korlátozás nélkül, 30 nap alatt kipróbálható. Töltse le és ingyenes próbaverziót most!

Kapcsolódó cikk:

Hogyan lehet megfordítani az utó- és vezetéknevet az Excel celláiban?


A legjobb irodai termelékenységi eszközök

A Kutools for Excel megoldja a legtöbb problémát, és 80% -kal növeli a termelékenységet

  • újrafelhasználás: Gyorsan helyezze be összetett képletek, diagramok és bármi, amit korábban használt; Cellák titkosítása jelszóval; Levelezőlista létrehozása és e-maileket küldeni ...
  • Szuper Formula Bár (könnyedén szerkeszthet több szöveget és képletet); Olvasás elrendezés (könnyen olvasható és szerkeszthető nagyszámú cella); Beillesztés a Szűrt tartományba...
  • Cellák / sorok / oszlopok egyesítése az adatok elvesztése nélkül; Osztott cellák tartalma; Kombinálja a duplikált sorokat / oszlopokat... megakadályozza az ismétlődő cellákat; Hasonlítsa össze a tartományokat...
  • Válassza a Másolat vagy az Egyedi lehetőséget Sorok; Válassza az Üres sorok lehetőséget (az összes cella üres); Super Find és Fuzzy Find sok munkafüzetben; Véletlenszerű kiválasztás ...
  • Pontos másolás Több cella a képletreferencia megváltoztatása nélkül; Automatikus referenciák létrehozása több lapra; Helyezze be a golyókat, Jelölőnégyzetek és még sok más ...
  • Kivonat szöveg, Szöveg hozzáadása, Eltávolítás pozíció szerint, Hely eltávolítása; Hozz létre és nyomtasson személyhívó részösszegeket; Konvertálás a cellatartalom és a megjegyzések között...
  • Szuper szűrő (mentse el és alkalmazza a szűrősémákat más lapokra); Haladó rendezés hónap / hét / nap, gyakoriság és egyebek szerint; Speciális szűrő félkövér, dőlt betűvel ...
  • Kombinálja a munkafüzeteket és a munkalapokat; Táblázatok egyesítése kulcsoszlopok alapján; Az adatok felosztása több lapra; Kötegelt konvertálás xls, xlsx és PDF...
  • Több mint 300 hatékony funkció. Támogatja az Office / Excel 2007-2021 és 365 verziókat. Minden nyelvet támogat. Könnyű üzembe helyezés vállalatában vagy szervezetében. Teljes funkciók 30 napos ingyenes próbaverzió. 60 napos pénzvisszafizetési garancia.
kte lap 201905

Az Office fül a füles felületet hozza az Office-ba, és sokkal könnyebbé teszi a munkáját

  • Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
  • Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
  • 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!
officetab alja

 

A megjegyzések rendezése szerint
Hozzászólások (19)
Még nincs értékelés. Legyen Ön az első, aki értékel!
A weboldal moderátora ezt a megjegyzést minimalizálta
Ez abszurd. Ennyi kód csak egy egyszerű feladat végrehajtásához, a karakterlánc megfordításához? :o Csak 3 soros függvényt kell hozzáadni a modulhoz az alábbiak szerint: Strrev(strValue As String) függvény strrev = StrReverse(strValue) Végfüggvény Most az =strrev(A1) képlet használható az Excel munkalapon. Ez működik, mivel a StrReverse a VBA beépített funkciója. :D
A weboldal moderátora ezt a megjegyzést minimalizálta
Még egy... Függvény InvertText(str As String) 'Faseeh Muhammad Dim m As Integer For m = Len(str) 1-hez Lépés -1 countRepp = countRepp & Mid(str, m, 1) Következő m Vége függvény
A weboldal moderátora ezt a megjegyzést minimalizálta
Elnézést egy kis szerkesztésért Funkció InvertText(str As String) 'By 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 Funkció befejezése
A weboldal moderátora ezt a megjegyzést minimalizálta
Sziasztok! Kipróbáltam ezt a funkciót: Sub ReverseText() 'Updateby20131128 Dim Rng As Range Dim WorkRng As Range On Error Resume Next xTitleId = "KutoolsforExcel" Set WorkRng = Application.Selection Set WorkRng,(ox = Application.Inputge) xTitleId, WorkRng.Address, Type:=8) Minden Rng In WorkRng-hez xÉrték = Rng.Value xLen = VBA.Len(xValue) xOut = "" For i = 1 To xLen getChar = VBA.Right(xÉrték, 1) xÉrték = VBA.Left(xValue, xLen - i) xOut = xOut & getChar Next Rng.Value = xOut Next End Sub, de amikor számokkal futtattam, az összes nullát törölte. tudsz olyan függvényt, ami nem törli a nullákat? Kösz!!
A weboldal moderátora ezt a megjegyzést minimalizálta
Használja a Vineet függvénykódját modulként, és a képlet használatakor használja ezt a trükköt: =strrev(""&D9&""), ahol a D9 tartalmazza a számot. A Vineet VBA kódja ehhez a függvényhez: Strrev(strValue As String) függvény strrev = StrReverse(strValue) End Function
A weboldal moderátora ezt a megjegyzést minimalizálta
Használja ezt..adja be a bemenetet A1-be, akkor a kimenet B1-ben lesz Sub zzzText() Dim xlen, xvalue, xoutput xlen = VBA.Len(Range("A1")) xvalue = Range("A1").Érték xoutput = "" For i = 1 To xlen GetText = VBA.Right(xvalue, 1) xvalue = VBA.Left(xvalue, xlen - i) xoutput = xoutput & GetText Next i Range("B1").Érték = xoutput Range( "C1").Érték = xlen Tartomány("D1").Érték = xérték End Sub
A weboldal moderátora ezt a megjegyzést minimalizálta
Észrevettem, hogy sokan újra feltalálják a kereket a bal és jobb parancsok végrehajtásával, a VB6 támogatja a karakterláncok fordítottját SZINTAXIS: strRevese("String") ez minden, amire szüksége van Dim stCellValue, i For i = 1-től 5-ig Range("A" & X).Select stCellValue = Tartomány("A" & X).Value stCellValue = StrReverse(stCellValue) Range("A" & X).Value = stCellValue Következő i Egy másik remek trükk a nullák előzetes kitöltése, ha az értékek 10 alatti, de olyan időformátumban kell lennie, mint például "10:01:24", nem pedig "10:1:24" intMins = 1 stMinutes = jobb ("00" és intMins, 2) eredmény = 01
A weboldal moderátora ezt a megjegyzést minimalizálta
köszönöm nagyon hasznos számomra :roll:
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia, szeretném megfordítani a dátumokat. 20/11/2015-2015/11/20 Segítség? Kösz
A weboldal moderátora ezt a megjegyzést minimalizálta
A dátumokhoz mindössze annyit kell tennie, hogy módosítsa a cella formátumát a szükséges formátumra. Kattintson a jobb gombbal a visszafordítani kívánt cellára, és válassza ki a cella formázását. A kategória részben válassza ki a Dátumot, és változtassa meg a helyet az Egyesült Államokra vagy Csehországra, vagy más olyan országra, amely az Önt érdeklő formátumot használhatja. Ezután válassza ki az Ön igényeinek megfelelőt.
A weboldal moderátora ezt a megjegyzést minimalizálta
sziasztok, nincs Kutools-om a szöveg karakterének megfordításához. Ha valakinek van ilyen eszköze, és segíteni szeretne nekem, kérem, küldjön e-mailt, hogy elküldjem a fájlomat a visszafordításhoz. az email-em: [b][b]mohanned1@windowslive.com[/b][/b] tekintettel
A weboldal moderátora ezt a megjegyzést minimalizálta
Kérjük, olvassa el az Extend Office webhely által adott utasításokat, miután az Excelben fordított karakterlánccal keresett a google-val.
A weboldal moderátora ezt a megjegyzést minimalizálta
Lehetőség van a szöveg megfordítására képlet segítségével, ez ismétlődő, és arra korlátozódik, hogy milyen messzire készen áll, és az Excel által a képletsávban megengedett karakterszám függvényében. A szöveg maximális hossza 30 karakter lehet, és az A1 cellában található. A B1 cella a következőképpen jelenik meg: =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)&KÖZÉP(BAL(A1&REPT(" ",31),31),27,1)&KÖZÉP(BAL(A1&REPT(" ",31),31),26,1 ,1)&KÖZÉP(BAL(A31&REPT(" ",31),25,1),1)&KÖZÉP(BAL(A31&REPT(" ",31),24,1),1)&KÖZÉP(BAL(A31&REPT(" ", 31),23,1),1)&KÖZÉP(BAL(A31&REPT(" ",31),22,1),1)&KÖZÉP(BAL(A31&REPT(" ",31),21,1),1)&KÖZÉP( BAL(A31&REPT(" ",31),20,1),1)&KÖZÉP(BAL(A31&REPT(" ",31),19,1),1)&KÖZÉP(BAL(A31&REPT(" ",31),18,1) ,1)&KÖZÉP(BAL(A31&REPT(" ",31),17,1),1)&KÖZÉP(BAL(A31&REPT(" ",31),16,1),1)&KÖZÉP(BAL(A31&REPT(") ",31),15,1),1)&KÖZÉP(BAL(A31&REPT(" ",31),14,1),1)&KÖZÉP(BAL(A31&REPT(" ",31),13,1),1) &KÖZÉP(BAL(A31&REPT(" ",31),12,1),1)&KÖZÉP(BAL(A31&REPT(" ",31),11,1),1)&KÖZÉP(BAL(A31&REPT(" ",31), 10,1),1)&KÖZÉP(BAL(A31&REPT(" ",31),9,1),1)&KÖZÉP(BAL(A31&REPT(" ",31),8,1),1)&KÖZÉP(BAL(A31&REPT) (" ",31),7,1),1)&KÖZÉP(BAL(A31&REPT(" ",31),6,1),1)&KÖZÉP(BAL(A31&REPT(" ",31),5,1),1, 31)&KÖZÉP(BAL(A31&REPT(" ",4,1),1),31)&KÖZÉP(BAL(A31&REPT(" ",3,1),1),31)&M ID(BAL(A31&REPT(" ",2,1),1),31)&MID(BAL(A31&REPT(" ",1,1),1),1)) Eredmény: A1: Duncan Sullivan-Shaw B31: wahS -navilluS nacnuD Alapvetően az A1 cellában lévő szöveg 1 karakter hosszú lesz, ha ehhez elegendő szóközt kell hozzáadni, és a rendszer minden karaktert egyesével jobbról balra olvas, amíg el nem éri az első karaktert. Ez azt eredményezi, hogy a fordított szöveg szóközöket tartalmaz, amelyeket a TRIM parancs eltávolít. A hosszúság csökkentéséhez vagy növeléséhez el kell távolítania vagy hozzáadnia kell az egyes utasításokat. A REPT utasításban szereplő számnak XNUMX-gyel nagyobbnak kell lennie, mint a maximális hossz, amellyel dolgozik, és az első MID utasítás a maximális hosszúságtól kezdődik, XNUMX-re csökkentve.
A weboldal moderátora ezt a megjegyzést minimalizálta
Azt tapasztaltam, hogy az eredeti Sub további sóhajjal adta ki az eredményeket az összes kijelölt cella végén. Szóval javítottam ezt a részt. For i = UBound(strList) 0-hoz -1. lépés Ha i > 0 Akkor xOut = xOut & strList(i) & Sigh Else xOut = xOut & strList(i) Next Rng.Value = xOut
A weboldal moderátora ezt a megjegyzést minimalizálta
Lehetséges-e egy bizonyos karakterhosszúságnál elindítani a fordítottat (a felhasználó által definiált függvényhez vagy VBA kódhoz)? Például az A1 cellaértékek megfordítása a B1 értékkel megegyező karakterszám után kezdődik. Tehát ha B1 10 karakterből áll, akkor a fordított 11+ karakternél kezdődik az A1-ben.
A weboldal moderátora ezt a megjegyzést minimalizálta
Nagyon szépen köszönjük. Ez a kód nagyon jó értelemben segített a barátomnak
A weboldal moderátora ezt a megjegyzést minimalizálta
nagyon hasznos, köszönöm a részletek megosztását
A weboldal moderátora ezt a megjegyzést minimalizálta
Ez valóban nagy segítség... Köszönöm szépen
A weboldal moderátora ezt a megjegyzést minimalizálta
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 idea? VrGr Amanda
Még senki sem írt megjegyzést
Kérjük, írja meg észrevételeit angol nyelven
Feladás vendégként
×
Értékeld ezt a bejegyzést:
0   Karakterek
Javasolt helyek

Kövess minket

Copyright © 2009 - www.extendoffice.com. | Minden jog fenntartva. Powered by ExtendOffice. | Oldaltérkép
A Microsoft és az Office logó a Microsoft Corporation védjegyei vagy bejegyzett védjegyei az Egyesült Államokban és / vagy más országokban.
Sectigo SSL védi