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

Hvordan omvendt tekststreng eller ordrerækkefølge i Excel?

Når du bruger Excel-regnearket, hvordan vender du tekststrengen eller ordrenes ordning i Excel? For eksempel vil du vende “Excel er et nyttigt værktøj for os"Til"su rof loot lufesu a si lecxE”. Eller nogle gange kan du ændre ordrenes rækkefølge som “Excel, Word, PowerPoint, OneNote"Til"OneNote, PowerPoint, Word, Excel”. Normalt er dette noget vanskeligt at løse dette problem. Se på følgende metoder:

Omvendt tekststreng med brugerdefineret funktion

Omvendt ordrækkefølge adskilt af specifik separator med VBA-kode

Omvend tekststreng eller ordreordre med Kutools til Excel hurtigt og nemt


pil blå højre boble Omvendt tekststreng med brugerdefineret funktion

Antag, at du har en række tekststrenge, som du vil vende om, såsom “tilføj førende nuller i Excel"Til"lecxE ni sorez gnidael dda”. Du kan vende teksten med følgende trin:

1. Hold nede ALT + F11 tasterne, og det åbner Microsoft Visual Basic til applikationer vindue.

2. Klik indsatte > Moduler, og indsæt følgende makro i Modulervindue.

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

3. Og gem derefter og luk denne kode, gå tilbage til regnearket og indtast denne formel: = reversestr (A2) i en tom celle for at placere resultatet, se skærmbillede:

4. Træk derefter fyldhåndtaget ned for at kopiere denne formel, og teksten i cellerne æres straks, se skærmbillede:


pil blå højre boble Omvendt ordrækkefølge adskilt af specifik separator med VBA-kode

Hvis du har en liste over celleord, der adskilles med kommaer som denne “lærer, læge, studerende, arbejdstager, chauffør”, Og du vil vende ordrækkefølgen som denne“kørsel, arbejdstager, studerende, læge, lærer”. Du kan også bruge follow VBA til at løse det.

1. Hold nede ALT + F11 tasterne, og det åbner Microsoft Visual Basic til applikationer vindue.

2. Klik indsatte > Moduler, og indsæt følgende makro i Moduler vindue.

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. Tryk derefter på F5 tast, en dialogboks vises, skal du vælge et interval at arbejde med. Se skærmbillede:

4. Og tryk derefter på Ok, vises en anden dialogboks, hvor du kan specificere den separator, du vil vende ordene baseret på, se skærmbillede:

5. Klik derefter på OK, og du kan se, at de valgte ord er omvendt, se skærmbilleder:


pil blå højre boble Omvend tekststreng eller ordreordre med Kutools til Excel hurtigt og nemt

Kutools til Excel's Omvendt tekstrækkefølge kan hjælpe dig hurtigt og bekvemt med at vende forskellige tekststrenge. Det kan udføre følgende handlinger:

Vend teksten fra højre til venstre, f.eks. “tryk på nogle ord"Til"sdrow emos pat"

Omvendt er teksten adskilt af mellemrum eller andre specifikke tegn, såsom “æble orange drue"Til"drue orange æble"

Kutools til Excel : med mere end 300 praktiske Excel-tilføjelsesprogrammer, gratis at prøve uden begrænsning på 30 dage

Vend teksten fra højre mod venstre:

1. Vælg det interval, du vil vende om.

2. Klik Kutools > Tekstværktøjer > Omvendt tekstrækkefølge, se skærmbillede:

3. I Omvendt tekst dialogboks, skal du vælge den rigtige mulighed fra Separator som svarer til celleværdierne. Og du kan forhåndsvise resultaterne fra Forhåndsvis pane. Se skærmbillede:

 Download og gratis prøveversion Kutools til Excel nu!


Omvendt er teksten adskilt af mellemrum eller andre specifikke tegn:

Denne funktion kan også hjælpe dig med at vende tekststrengene, der er adskilt af bestemte tegn.

1. Vælg cellerne, og anvend dette værktøj ved at klikke på Kutools > tekst > Omvendt tekstrækkefølge.

2. I boksen Omvendt tekst dialogboks, vælg separatoren, der adskiller de celleværdier, du vil vende ordene baseret på, se skærmbillede:

3. Klik derefter på Ok or Indløs, ordene i cellerne er vendt på én gang. Se skærmbilleder:

Bemærk: Kontrol Spring ikke-tekst over celler for at forhindre dig i at vende numrene i det valgte interval.

Hvis du vil vide mere om denne funktion, kan du besøge Omvendt tekstrækkefølge.

Download og gratis prøveversion Kutools til Excel nu!


pil blå højre boble Demo: Omvendt tekststreng baseret på specifik separator med Kutools til Excel

Kutools til Excel: med mere end 300 praktiske Excel-tilføjelsesprogrammer, gratis at prøve uden begrænsning på 30 dage. Download og gratis prøveversion nu!

Relateret artikel:

Hvordan vender jeg for- og efternavnet i celler i Excel?


De bedste Office-produktivitetsværktøjer

Kutools til Excel løser de fleste af dine problemer og øger din produktivitet med 80%

  • Genbruge: Indsæt hurtigt komplekse formler, diagrammer og alt, hvad du har brugt før; Krypter celler med adgangskode Opret postliste og send e-mails ...
  • Super formel bar (let redigere flere linjer med tekst og formel); Læsning Layout (let at læse og redigere et stort antal celler); Indsæt til filtreret rækkevidde...
  • Flet celler / rækker / kolonner uden at miste data; Split celler indhold; Kombiner duplikerede rækker / kolonner... Forhindre duplikerede celler; Sammenlign områder...
  • Vælg Duplicate eller Unique Rækker; Vælg tomme rækker (alle celler er tomme); Super Find og Fuzzy Find i mange arbejdsbøger; Tilfældig valg ...
  • Præcis kopi Flere celler uden at ændre formelreference; Auto Opret referencer til flere ark; Indsæt kugler, Afkrydsningsfelter og mere ...
  • Uddrag tekst, Tilføj tekst, Fjern efter position, Fjern mellemrum; Opret og udskriv personsøgningssubtotaler; Konverter mellem celler indhold og kommentarer...
  • Superfilter (gem og anvend filterskemaer på andre ark); Avanceret sortering efter måned / uge / dag, hyppighed og mere; Specielt filter af fed, kursiv ...
  • Kombiner arbejdsbøger og arbejdsark; Fletabeller baseret på nøglekolonner; Opdel data i flere ark; Batch Konverter xls, xlsx og PDF...
  • Mere end 300 kraftfulde funktioner. Understøtter Office / Excel 2007-2021 og 365. Understøtter alle sprog. Nem implementering i din virksomhed eller organisation. Fuld funktioner 30-dages gratis prøveperiode. 60 dages pengene tilbage garanti.
kte-fane 201905

Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere

  • Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
  • Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
  • Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!
officetab bund

 

Sorter kommentarer efter
Kommentarer (19)
Ingen vurderinger endnu. Vær den første til at bedømme!
Denne kommentar blev minimeret af moderatoren på webstedet
Det er absurd. Så meget kode at udføre blot en simpel opgave med at vende strengen? :o Der skal kun tilføjes 3 linjers funktion i modulet som nedenfor: Funktion strrev(strValue As String) strrev = StrReverse(strValue) Slutfunktion Nu kan formlen =strrev(A1) bruges i Excel-ark. Dette virker, da StrReverse er en indbygget funktion i VBA. :D
Denne kommentar blev minimeret af moderatoren på webstedet
En anden... Funktion InvertText(str As String) 'Af Faseeh Muhammad Dim m Som heltal For m = Len(str) Til 1 Trin -1 countRepp = countRepp & Mid(str, m, 1) Næste m Slutfunktion
Denne kommentar blev minimeret af moderatoren på webstedet
Beklager lidt redigering Funktion InvertText(str As String) 'Af Faseeh Muhammad Dim curr As String Dim m Som heltal For m = Len(str) Til 1 Trin -1 countRepp = countRepp & Mid(str, m, 1) Next m Inverttext Afslut funktion
Denne kommentar blev minimeret af moderatoren på webstedet
Hej alle sammen, jeg har prøvet denne funktion: 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 hver 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 Next Rng.Value = xOut Next End Sub men når jeg har kørt den med tal, har den slettet alle nuller. kender du en funktion der ikke sletter nuller? Tak!!
Denne kommentar blev minimeret af moderatoren på webstedet
Brug Vineets funktionskode som et modul, og når du bruger formlen, brug dette trick: =strrev(""&D9&"") hvor D9 indeholder tallet. Vineets VBA-kode for den funktion er: Funktion strrev(strValue As String) strrev = StrReverse(strValue) End Function
Denne kommentar blev minimeret af moderatoren på webstedet
Brug dette..indsæt dit input i A1, så bliver outputtet i B1 Sub zzzText() Dim xlen, xvalue, xoutput xlen = VBA.Len(Range("A1")) xvalue = Range("A1").Value xoutput = "" For i = 1 Til 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").Værdi = xvalue End Sub
Denne kommentar blev minimeret af moderatoren på webstedet
Jeg bemærker, at mange mennesker genopfinder hjulet ved at udføre venstre, højre kommandoer, VB6 understøtter string reverse SYNTAX: strRevese("String") det er alt hvad du behøver Dim stCellValue, i For i = 1 Til 5 Range("A" & X).Vælg stCellValue = Range("A" & X).Value stCellValue = StrReverse(stCellValue) Range("A" & X).Value = stCellValue Næste i Et andet smart trick ville være at forhåndsudfylde nuller, hvis værdier under 10, men skal være i et tidsformat som "10:01:24" i stedet for "10:1:24" intMins = 1 stMinutes = right("00" & intMins, 2) resultat = 01
Denne kommentar blev minimeret af moderatoren på webstedet
tak det er virkelig nyttigt for mig :roll:
Denne kommentar blev minimeret af moderatoren på webstedet
Hej jeg vil gerne vende datoer. 20/11/2015 til 2015/11/20 Nogen hjælp? Tak
Denne kommentar blev minimeret af moderatoren på webstedet
Alt du skal gøre for datoer er at ændre cellens format til det nødvendige format. Højreklik på den celle, du vil vende om, og vælg formater celle. Vælg Dato under kategorisektionen, og skift placeringen, uanset hvor du er, til USA eller Tjekkiet eller et andet land, der kan bruge det format, du er interesseret i. Vælg derefter det, der matcher dine krav.
Denne kommentar blev minimeret af moderatoren på webstedet
hej alle sammen, jeg har ikke Kutools til at vende et tegn af tekst, hvis nogen har disse værktøjer og vil hjælpe mig, så send mig venligst en e-mail for at sende min fil til dig for omvendt. min email er: [b][b]mohanned1@windowslive.com[/b][/b] med hensyn til,
Denne kommentar blev minimeret af moderatoren på webstedet
bedes du gennemgå instruktionerne fra extend office-webstedet efter at have søgt med google med omvendt streng i excel.
Denne kommentar blev minimeret af moderatoren på webstedet
Det er muligt at vende tekst ved hjælp af formel, det er gentaget og begrænset til, hvor langt du er parat til at gå, og afhængigt af antallet af tegn excel vil tillade i formellinjen. Maksimal længde af tekst vil være 30 tegn og er i celle A1. Celle B1 ville læse: =TRIM(MID(VENSTRE(A1&REPT(" ",31),31),30,1)&MIDDEL(VENSTRE(A1&REPT(" ",31);31),29,1)&MIDDEL(VENSTRE( A1&REPT(" ",31);31),28,1)&MIDDEL(VENSTRE(A1&REPT(" ",31);31),27,1)&MIDDEL(VENSTRE(A1&REPT(" ",31);31),26,1 ,1)&MIDDEL(VENSTRE(A31&REPT(" ",31);25,1),1)&MIDDEL(VENSTRE(A31&REPT(" ",31);24,1),1)&MIDDEL(VENSTRE(A31&REPT(" ", 31),23,1),1)&MIDDEL(VENSTRE(A31&REPT(" ",31),22,1),1)&MIDDEL(VENSTRE(A31&REPT(" ",31);21,1),1)&MIDDEL( VENSTRE(A31&REPT(" ",31);20,1);1)&MIDDEL(VENSTRE(A31&REPT(" ",31);19,1),1)&MIDDEL(VENSTRE(A31&REPT(" ",31);18,1) ,1)&MIDDEL(VENSTRE(A31&REPT(" ",31);17,1),1)&MIDDEL(VENSTRE(A31&REPT(" ",31);16,1),1)&MIDDEL(VENSTRE(A31&REPT(" ",31),15,1),1)&MIDDEL(VENSTRE(A31&REPT(" ",31),14,1),1)&MIDDEL(VENSTRE(A31&REPT(" ",31),13,1),1) &MIDDEL(VENSTRE(A31&REPT(" ",31);12,1),1)&MIDDEL(VENSTRE(A31&REPT(" ",31);11,1),1)&MIDDEL(VENSTRE(A31&REPT(" ",31), 10,1),1)&MIDDEL(VENSTRE(A31&REPT(" ",31),9,1),1)&MIDDEL(VENSTRE(A31&REPT(" ",31),8,1),1)&MIDDEL(VENSTRE(A31&REPT) (" ",31),7,1),1)&MID(VENSTRE(A31&REPT(" ",31),6,1),1)&MIDDEL(VENSTRE(A31&REPT(" ",31),5,1),1, 31)&MIDDEL(VENSTRE(A31&REPT(" ",4,1);1),31)&MIDDEL(VENSTRE(A31&REPT(" ",3,1);1),31)&M ID(LEFT(A31&REPT(" ",2,1),1),31)&MID(VENSTRE(A31&REPT(" ",1,1),1),1)) Resultat: A1: Duncan Sullivan-Shaw B31: wahS -navilluS nacnuD Grundlæggende bliver din tekst i celle A1 1 tegn lang ved at tilføje nok mellemrum til at aktivere dette, og hvert tegn læses enkeltvis fra højre mod venstre, indtil du når det første tegn. Dette vil resultere i, at din omvendte tekst indeholder indledende mellemrum, som TRIM-kommandoen fjerner for dig. For at reducere eller øge længden ville du fjerne eller tilføje hver erklæring. Tallet i REPT-sætningen skal være XNUMX mere end den maksimale længde, du arbejder med, og din første MID-sætning vil starte ved den maksimale længde, der arbejder ned til XNUMX.
Denne kommentar blev minimeret af moderatoren på webstedet
Jeg fandt ud af, at den originale Sub gav resultaterne med yderligere suk i slutningen af ​​alle valgte celler. Så jeg fiksede denne del. For i = UBound(strList) Til 0 Trin -1 Hvis i > 0 Så xOut = xOut & strList(i) & Suk Else xOut = xOut & strList(i) Næste Rng.Value = xOut
Denne kommentar blev minimeret af moderatoren på webstedet
Er det muligt at starte omvendt ved en bestemt tegnlængde (for den brugerdefinerede funktion eller VBA-kode)? Vend f.eks. celle A1-værdier, der starter efter tegnantal lig med B1-værdi. Så hvis B1 er 10 tegn vil omvendt begynde ved tegn 11+ i A1.
Denne kommentar blev minimeret af moderatoren på webstedet
Mange tak. Denne kode hjalp min ven på en meget god måde
Denne kommentar blev minimeret af moderatoren på webstedet
fantastisk meget hjælpsom tak for at dele detaljerne
Denne kommentar blev minimeret af moderatoren på webstedet
Dette er virkelig en stor hjælp ... Mange tak
Denne kommentar blev minimeret af moderatoren på webstedet
Jeg leder efter en måde, hvorpå du kan sætte ord i 'fabrikationsfølge'. Så de sidste bogstaver af ordet skal i alfabetisk rækkefølge. Iemand enig idé? VrGr Amanda
Der er endnu ingen kommentarer her
Efterlad dine kommentarer
Sender som gæst
×
Bedøm dette indlæg:
0   Tegn
Foreslåede steder

Følg os

Copyright © 2009 - www.extendoffice.com. | Alle rettigheder forbeholdes. Drevet af ExtendOffice. | | Sitemap
Microsoft og Office-logoet er varemærker eller registrerede varemærker tilhørende Microsoft Corporation i USA og / eller andre lande.
Beskyttet af Sectigo SSL