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
Hagyja meg észrevételeit
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