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

Kako obrniti besedilni niz ali vrstni red besed v Excelu?

Kako uporabljate Excelov delovni list, kako v Excelu spremenite vrstni red besedil ali besed? Na primer, želite obrniti »Excel je za nas uporabno orodje"Da"su rof plen lufesu a si lecxE". Lahko pa včasih obrnete vrstni red besed, na primer »Excel, Word, PowerPoint, OneNote"Da"OneNote, PowerPoint, Word, Excel". Običajno je to težko rešiti. Oglejte si naslednje metode:

Obrni besedilni niz z uporabniško določeno funkcijo

Obrni vrstni red besed, ločen s posebnim ločilom s kodo VBA

Hitro in enostavno obrnite besedilni niz ali vrstni red besed s programom Kutools za Excel


puščica modri desni mehurček Obrni besedilni niz z uporabniško določeno funkcijo

Recimo, da imate vrsto besedilnih nizov, ki jih želite obrniti, na primer »dodaj vodilne ničle v Excelu"Da"lecxE ni sorez gnidael dda". Besedilo lahko obrnete z naslednjimi koraki:

1. Držite tipko ALT + F11 in odpre tipko Microsoft Visual Basic za aplikacije okno.

2. Kliknite Vstavi > Moduliin v mapo prilepite naslednji makro Moduliokno.

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

3. Nato shranite in zaprite to kodo, se vrnite na delovni list in vnesite to formulo: = povratni str (A2) v prazno celico, da postavite rezultat, glejte sliko zaslona:

4. Nato povlecite ročico za polnjenje navzdol, da kopirate to formulo, in besedilo v celicah je hkrati spoštovano, glejte posnetek zaslona:


puščica modri desni mehurček Obrni vrstni red besed, ločen s posebnim ločilom s kodo VBA

Če imate seznam besed v celicah, ki so ločene z vejicami, kot je taučitelj, zdravnik, študent, delavec, voznik", In želite obrniti vrstni red besed, kot je ta"voziti, delavec, študent, zdravnik, učitelj". Za njegovo rešitev lahko uporabite tudi sledenje VBA.

1. Držite tipko ALT + F11 in odpre tipko Microsoft Visual Basic za aplikacije okno.

2. Kliknite Vstavi > Moduliin v mapo prilepite naslednji makro Moduli 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. Nato pritisnite F5 tipka, prikaže se pogovorno okno, izberite obseg, s katerim želite delati. Oglejte si posnetek zaslona:

4. In nato pritisnite Ok, odpre se drugo pogovorno okno, v katerem določite ločilo, na katerem želite obrniti besede, glejte posnetek zaslona:

5. Nato kliknite OK, in vidite, da so izbrane besede obrnjene, glejte posnetke zaslona:


puščica modri desni mehurček Hitro in enostavno obrnite besedilni niz ali vrstni red besed s programom Kutools za Excel

O Kutools za ExcelJe Povratni vrstni red besedila vam lahko pomaga hitro in priročno obrniti različne besedilne nize. Opravlja lahko naslednje operacije:

Besedilo obrnite od desne proti levi, na primer »tapnite nekaj besed"Da"sdrow emos pat"

Besedilo v obratni smeri je ločeno s presledkom ali drugimi posebnimi znaki, na primer »jabolčno oranžno grozdje"Da"jabolko grozdne pomaranče"

Kutools za Excel : z več kot 300 priročnimi dodatki za Excel, ki jih lahko brezplačno preizkusite v 30 dneh

Obrni besedilo od desne proti levi:

1. Izberite obseg, ki ga želite obrniti.

2. Kliknite Kutools > Orodja za besedilo > Povratni vrstni red besedila, glej posnetek zaslona:

3. v Povratno besedilo v ustreznem pogovornem oknu izberite ustrezno možnost separator ki ustrezajo vrednostim celic. In lahko si ogledate rezultate iz Predogled okna. Oglejte si posnetek zaslona:

 Prenesite in brezplačno preizkusite Kutools za Excel zdaj!


Besedilo v obratni smeri je ločeno s presledkom ali drugimi posebnimi znaki:

Ta funkcija vam lahko pomaga tudi pri obračanju besedilnih nizov, ločenih s posebnimi znaki.

1. Izberite celice in uporabite ta pripomoček s klikom Kutools > Besedilo > Povratni vrstni red besedila.

2. v Povratno besedilo v pogovornem oknu izberite ločilo, ki ločuje vrednosti celic, na katerih želite obrniti besede, glejte posnetek zaslona:

3. Nato kliknite Ok or Uporabi, besede v celicah so bile naenkrat obrnjene. Oglejte si posnetke zaslona:

Opombe: Preverjanje Preskoči nebesedilo celic, da preprečite obračanje številk v izbranem obsegu.

Če želite izvedeti več o tej funkciji, obiščite Povratni vrstni red besedila.

Prenesite in brezplačno preizkusite Kutools za Excel zdaj!


puščica modri desni mehurček Predstavitev: Povratni besedilni niz na podlagi posebnega ločila s programom Kutools za Excel

Kutools za Excel: z več kot 300 priročnimi dodatki za Excel, brezplačno preizkusite brez omejitev v 30 dneh. Prenesite in brezplačno preskusite zdaj!

Povezani članek:

Kako obrniti ime in priimek v celicah v Excelu?


Najboljša orodja za pisarniško produktivnost

Kutools za Excel rešuje večino vaših težav in poveča vašo produktivnost za 80%

  • Ponovna uporaba: Hitro vstavite zapletene formule, grafikoni in vse, kar ste že uporabljali; Šifriraj celice z geslom; Ustvari poštni seznam in pošiljanje e-pošte ...
  • Vrstica Super Formula (enostavno urejanje več vrstic besedila in formule); Bralna postavitev (enostavno branje in urejanje velikega števila celic); Prilepite v filtrirani obseg...
  • Združi celice / vrstice / stolpce brez izgube podatkov; Vsebina razdeljenih celic; Združi podvojene vrstice / stolpce... prepreči podvojene celice; Primerjaj obsege...
  • Izberite Duplicate ali Unique Vrstice; Izberite prazne vrstice (vse celice so prazne); Super Find in Fuzzy Find v mnogih delovnih zvezkih; Naključna izbira ...
  • Natančna kopija Več celic brez spreminjanja sklica formule; Samodejno ustvarjanje referenc na več listov; Vstavi oznake, Potrditvena polja in še več ...
  • Izvleček besedila, Dodaj besedilo, Odstrani po položaju, Odstrani presledek; Ustvari in natisni vmesne seštevke strani Pretvarjanje med vsebino celic in komentarji...
  • Super filter (shranite in uporabite sheme filtrov za druge liste); Napredno razvrščanje glede na mesec / teden / dan, pogostost in drugo; Poseben filter s krepko, ležeče ...
  • Združite delovne zvezke in delovne liste; Spoji tabele na podlagi ključnih stolpcev; Razdelite podatke na več listov; Paketna pretvorba xls, xlsx in PDF...
  • Več kot 300 zmogljivih funkcij. Podpira Office / Excel 2007-2021 in 365. Podpira vse jezike. Enostavna uvedba v vašem podjetju ali organizaciji. 30-dnevna brezplačna preizkusna različica vseh funkcij. 60-dnevna garancija vračila denarja.
zavihek kte 201905

Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo

  • Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!
dno pisarniške mize

 

Komentarji (19)
Ocene še ni. Bodite prvi in ​​ocenite!
Ta komentar je moderator na spletnem mestu minimiziral
To je absurdno. Toliko kode, da lahko izvedete preprosto nalogo obrnenja niza? :o V modul je treba dodati samo 3 vrstično funkcijo, kot je prikazano spodaj: Funkcija strrev(strValue kot niz) strrev = StrReverse(strValue) Končna funkcija Zdaj lahko formulo =strrev(A1) uporabite v Excelovem listu. To deluje, saj je StrReverse vgrajena funkcija VBA. :D
Ta komentar je moderator na spletnem mestu minimiziral
Še ena ... Funkcija InvertText(str kot niz) 'Avtor Faseeh Muhammad Dim m kot celo število Za m = Len(str) do 1 korak -1 countRepp = countRepp & Mid(str, m, 1) Naslednji m Končna funkcija
Ta komentar je moderator na spletnem mestu minimiziral
Oprostite za malo urejanja Funkcija InvertText(str As String) 'Avtor Faseeh Muhammad Dim curr As String Dim m As Integer Za m = Len(str) Do 1 Korak -1 countRepp = countRepp & Mid(str, m, 1) Naslednji m Inverttext Končna funkcija
Ta komentar je moderator na spletnem mestu minimiziral
Pozdravljeni vsi, preizkusil sem to funkcijo: 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(" xTitleId, WorkRng.Address, Type:=8) Za vsak Rng v WorkRng xValue = Rng.Value xLen = VBA.Len(xValue) xOut = "" Za i = 1 Za xLen getChar = VBA.Right(xValue, 1) xValue = VBA.Left(xValue, xLen - i) xOut = xOut & getChar Next Rng.Value = xOut Next End Sub, a ko sem ga zagnal s številkami, je izbrisal vse ničle. poznate funkcijo, ki ne briše ničel? Hvala!!
Ta komentar je moderator na spletnem mestu minimiziral
Uporabite Vineetovo funkcijsko kodo kot modul in pri uporabi formule uporabite ta trik: =strrev(""&D9&""), kjer D9 vsebuje številko. Vineetova koda VBA za to funkcijo je: Funkcija strrev(strValue kot niz) strrev = StrReverse(strValue) Končna funkcija
Ta komentar je moderator na spletnem mestu minimiziral
Uporabite to..vnesite svoj vnos v A1, potem bo izhod v B1 Sub zzzText() Dim xlen, xvalue, xoutput xlen = VBA.Len(Range("A1")) xvalue = Range("A1").Value xoutput = "" Za i = 1 Za 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
Ta komentar je moderator na spletnem mestu minimiziral
Opažam, da veliko ljudi ponovno izumlja kolo tako, da izvaja ukaze levo in desno, VB6 podpira SINTAKSA obrnjenega niza: strRevese("String") to je vse, kar potrebujete Dim stCellValue, i Za i = 1 do 5 Range("A" & X).Izberite stCellValue = Range("A" & X).Value stCellValue = StrReverse(stCellValue) Range("A" & X).Value = stCellValue Next i Še en izvrsten trik bi bil, če bi vrednosti vnaprej zapolnili z ničli pod 10, vendar mora biti v časovni obliki, kot je "10:01:24" in ne "10:1:24" intMins = 1 stMinutes = desno ("00" & intMins, 2) rezultat = 01
Ta komentar je moderator na spletnem mestu minimiziral
hvala res mi je uporabno :roll:
Ta komentar je moderator na spletnem mestu minimiziral
Živjo, rad bi obrnil datume. 20/11/2015 do 2015/11/20 Kakšna pomoč? Hvala
Ta komentar je moderator na spletnem mestu minimiziral
Za datume morate samo spremeniti obliko celice v želeno obliko. Z desno tipko miške kliknite celico, ki jo želite obrniti, in izberite obliko celic. Izberite Datum v razdelku kategorije in spremenite lokacijo, kjer koli že ste, v ZDA ali Češko ali drugo državo, ki morda uporablja format, ki vas zanima. Nato izberite tisto, ki ustreza vašim zahtevam.
Ta komentar je moderator na spletnem mestu minimiziral
zdravo vsi, nimam Kutools, da bi obrnil znak besedila, če ima kdo to orodje in mi želi pomagati, mi prosim pošlji e-pošto, da ti pošljem svojo datoteko za obratno. moj email je: [b][b]mohanned1@windowslive.com[/b][/b] lep pozdrav,
Ta komentar je moderator na spletnem mestu minimiziral
po iskanju z Googlom po obratnem nizu v excelu preberite navodila, ki jih daje spletno mesto razširitvene pisarne.
Ta komentar je moderator na spletnem mestu minimiziral
Besedilo je mogoče obrniti s formulo, ponavlja se in je omejeno na to, kako daleč ste pripravljeni iti in glede na število znakov, ki jih bo Excel dovolil v vrstici s formulo. Največja dolžina besedila bo 30 znakov in je v celici A1. Celica B1 bi se glasila: =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)&SRED(LEVO(A1&REPT(" ",31),31),27,1)&SREDINA(LEVO(A1&REPT(" ",31),31),26,1 ,1)&SRED(LEVO(A31&REPT(" ",31),25,1),1)&SREDINA(LEVO(A31&REPT(" ",31),24,1),1)&SREDINA(LEVO(A31&REPT(" ", 31),23,1),1)&SREDINA(LEVO(A31&REPT(" ",31),22,1),1)&SREDINA(LEVO(A31&REPT(" ",31),21,1),1)&SREDINA( LEVO(A31&REPT(" ",31),20,1),1)&SREDINA(LEVO(A31&REPT(" ",31),19,1),1)&SREDINA(LEVO(A31&REPT(" ",31),18,1) ,1)&SREDINA(LEVO(A31&REPT(" ",31),17,1),1)&SREDINA(LEVO(A31&REPT(" ",31),16,1),1)&SREDINA(LEVO(A31&REPT(") ",31),15,1),1)&SREDINA(LEVO(A31&REPT(" ",31),14,1),1)&SREDINA(LEVO(A31&REPT(" ",31),13,1),1) &SREDINA(LEVO(A31&REPT(" ",31),12,1),1)&SREDINA(LEVO(A31&REPT(" ",31),11,1),1)&SREDINA(LEVO(A31&REPT(" ",31), 10,1),1)&SREDINA(LEVO(A31&REPT(" ",31),9,1),1)&SREDINA(LEVO(A31&REPT(" ",31),8,1),1)&SREDINA(LEVO(A31&REPT) (" ",31),7,1),1)&SRED(LEVO(A31&REPT(" ",31),6,1),1)&SREDINA(LEVO(A31&REPT(" ",31),5,1),1, 31)&SREDINA(LEVO(A31&REPT(" ",4,1),1),31)&SREDINA(LEVO(A31&REPT(" ",3,1),1),31)&M ID(LEFT(A31&REPT(" ",2,1),1),31)&MID(LEFT(A31&REPT(" ",1,1),1),1)) Rezultat: A1: Duncan Sullivan-Shaw B31: wahS -navilluS nacnuD V bistvu vaše besedilo v celici A1 postane dolgo 1 znakov, če dodate dovolj presledkov, da to omogočite, in vsak znak se bere posamezno od desne proti levi, dokler ne dosežete prvega znaka. To bo povzročilo, da bo vaše obrnjeno besedilo vsebovalo vodilne presledke, ki jih ukaz TRIM odstrani namesto vas. Če želite zmanjšati ali povečati dolžino, odstranite ali dodate vsak stavek. Številka v stavku REPT mora biti XNUMX večja od največje dolžine, na katero delate, in vaš prvi stavek MID se bo začel pri največji dolžini, ki se bo zmanjšal na XNUMX.
Ta komentar je moderator na spletnem mestu minimiziral
Ugotovil sem, da je originalni Sub izkazal rezultate z dodatnim vzdihom na koncu vseh izbranih celic. Tako sem popravil ta del. Za i = UBound(strList) na 0 Korak -1 Če je i > 0 Potem je xOut = xOut & strList(i) & Sigh Else xOut = xOut & strList(i) Naslednji Rng.Value = xOut
Ta komentar je moderator na spletnem mestu minimiziral
Ali je mogoče začeti obratno pri določeni dolžini znakov (za uporabniško definirano funkcijo ali kodo VBA)? Na primer, obrnite vrednosti celice A1, ki se začnejo po številu znakov, enakem vrednosti B1. Torej, če je B1 10 znakov, se bo obratno začelo pri znakih 11+ v A1..
Ta komentar je moderator na spletnem mestu minimiziral
Najlepša hvala. Ta koda je mojemu prijatelju na zelo dober način pomagala
Ta komentar je moderator na spletnem mestu minimiziral
super zelo koristno hvala za deljenje podrobnosti
Ta komentar je moderator na spletnem mestu minimiziral
To je res velika pomoč ... Najlepša hvala
Ta komentar je moderator na spletnem mestu minimiziral
Ik zoek een manier om een ​​heleboel woorden in 'rijm-fabetische volgorde' te zetten. Dus de laatste letters van het word moeten in alfabetische volgorde. Želite enig idejo? VrGr Amanda
Tu še ni objavljenih komentarjev
Pustite vaše komentarje
Objava kot gost
×
Ocenite to objavo:
0   Znaki
Predlagane lokacije

Sledi nam

Copyright © 2009 - www.extendoffice.com. | Vse pravice pridržane. Poganja ga ExtendOffice. | Kazalo
Microsoft in logotip Office sta blagovni znamki ali registrirani blagovni znamki družbe Microsoft Corporation v ZDA in / ali drugih državah.
Zaščiteno s Sectigo SSL