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

Hur omvänd textsträng eller ordningsordning i Excel?

När du använder Excel-kalkylbladet, hur vänder du textsträngen eller ordordningen i Excel? Till exempel vill du göra om ”Excel är ett användbart verktyg för oss"Att"su rof loot lufesu a si lecxE”. Eller ibland kan du vända ordens ordning som ”Excel, Word, PowerPoint, OneNote"Att"OneNote, PowerPoint, Word, Excel”. Normalt är detta något svårt att lösa detta problem. Titta på följande metoder:

Omvänd textsträng med användardefinierad funktion

Omvänd ordningsordning separerad med specifik avgränsare med VBA-kod

Omvänd textsträng eller ordningsordning med Kutools för Excel snabbt och enkelt


pil blå höger bubbla Omvänd textsträng med användardefinierad funktion

Om du antar att du har en rad textsträngar som du vill vända, till exempel “lägg till ledande nollor i Excel"Att"lecxE ni sorez gnidael dda”. Du kan vända texten med följande steg:

1. Håll ner ALT + F11 knapparna och det öppnar Microsoft Visual Basic för applikationer fönster.

2. Klicka Insert > Modulernaoch klistra in följande makro i Modulernafönster.

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

3. Och sedan spara och stäng den här koden, gå tillbaka till kalkylbladet och ange den här formeln: = reversestr (A2) i en tom cell för att sätta resultatet, se skärmdump:

4. Dra sedan ned fyllningshandtaget för att kopiera den här formeln och texten i cellerna vördas på en gång, se skärmdump:


pil blå höger bubbla Omvänd ordningsordning separerad med specifik avgränsare med VBA-kod

Om du har en lista över cellord som är separerade med kommatecken som detta “lärare, läkare, student, arbetare, förare”, Och du vill vända ordordningen så här“kör, arbetare, student, läkare, lärare”. Du kan också följa VBA för att lösa det.

1. Håll ner ALT + F11 knapparna och det öppnar Microsoft Visual Basic för applikationer fönster.

2. Klicka Insert > Modulernaoch klistra in följande makro i Modulerna fönster.

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. Tryck sedan på F5 , visas en dialogruta, välj ett intervall att arbeta med. Se skärmdump:

4. Och tryck sedan på Ok, en annan dialog dyker upp för att du ska kunna specificera avgränsaren som du vill vända på orden baserat på, se skärmdump:

5. Klicka sedan på OK, och du kan se att de valda orden är omvända, se skärmdumpar:


pil blå höger bubbla Omvänd textsträng eller ordningsordning med Kutools för Excel snabbt och enkelt

Du har nu möjlighet Kutools för ExcelÄr Omvänd textordning kan hjälpa dig snabbt och bekvämt att vända olika textsträngar. Det kan göra följande åtgärder:

Omvänd texten från höger till vänster, till exempel “knacka på några ord"Att"sdrow emos pat";

Omvänd texten är åtskilda av mellanslag eller andra specifika tecken, till exempel “äpple orange druva"Att"druva orange äpple";

Kutools för Excel : med mer än 300 praktiska Excel-tillägg, gratis att prova utan begränsning på 30 dagar

Omvänd texten från höger till vänster:

1. Välj det intervall som du vill vända om.

2. Klicka Kutools > Textverktyg > Omvänd textordning, se skärmdump:

3. I Omvänd text välj rätt alternativ från Separator som motsvarar cellvärdena. Och du kan förhandsgranska resultaten från Förhandsgranska panelen. Se skärmdump:

 Ladda ner och testa gratis Kutools för Excel nu!


Omvänd texten är åtskilda av mellanslag eller andra specifika tecken:

Denna funktion kan också hjälpa dig att vända textsträngarna som skiljs åt av specifika tecken.

1. Markera cellerna och använd detta verktyg genom att klicka Kutools > text > Omvänd textordning.

2. i Omvänd text dialogrutan, välj separatorn som separerar cellvärdena som du vill vända på orden baserat på, se skärmdump:

3. Klicka sedan Ok or tillämpas, orden i cellerna har vänt om på en gång. Se skärmdumpar:

Anmärkningar:Kontroll Hoppa över icke-text celler för att förhindra att du vänder siffrorna i det valda intervallet.

För mer information om den här funktionen, besök Omvänd textordning.

Ladda ner och testa gratis Kutools för Excel nu!


pil blå höger bubbla Demo: Omvänd textsträng baserad på specifik separator med Kutools för Excel

Kutools för Excel: med mer än 300 praktiska Excel-tillägg, gratis att prova utan begränsning på 30 dagar. Ladda ner och testa gratis nu!

Relaterad artikel:

Hur vänder du för- och efternamnet i celler i Excel?


De bästa Office-produktivitetsverktygen

Kutools för Excel löser de flesta av dina problem och ökar din produktivitet med 80%

  • återanvändning: Sätt snabbt i komplexa formler, diagram och allt som du har använt tidigare; Kryptera celler med lösenord; Skapa e-postlista och skicka e-post ...
  • Super Formula Bar (enkelt redigera flera rader med text och formel); Läslayout (enkelt läsa och redigera ett stort antal celler); Klistra in i filtrerat intervall...
  • Sammanfoga celler / rader / kolumner utan att förlora data; Delat cellinnehåll; Kombinera duplicerade rader / kolumner... Förhindra duplicerade celler; Jämför intervall...
  • Välj Duplicera eller Unikt Rader; Välj tomma rader (alla celler är tomma); Super Find och Fuzzy Find i många arbetsböcker; Slumpmässigt val ...
  • Exakt kopia Flera celler utan att ändra formelreferens; Skapa referenser automatiskt till flera ark; Sätt in kulor, Kryssrutor och mer ...
  • Extrahera text, Lägg till text, ta bort efter position, Ta bort mellanslag; Skapa och skriva ut personsökningstalsatser; Konvertera mellan celler innehåll och kommentarer...
  • Superfilter (spara och tillämpa filterscheman på andra ark); Avancerad sortering efter månad / vecka / dag, frekvens och mer; Specialfilter av fet, kursiv ...
  • Kombinera arbetsböcker och arbetsblad; Sammanfoga tabeller baserat på nyckelkolumner; Dela data i flera ark; Batchkonvertera xls, xlsx och PDF...
  • Mer än 300 kraftfulla funktioner. Stöder Office / Excel 2007-2021 och 365. Stöder alla språk. Enkel implementering i ditt företag eller organisation. Fullständiga funktioner 30 dagars gratis provperiod. 60 dagars pengarna tillbaka-garanti.
kte-flik 201905

Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare

  • Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
  • Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
  • Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!
officetab botten

 

Sortera kommentarer efter
Kommentarer (19)
Inga betyg än. Bli först med att betygsätta!
Denna kommentar minimerades av moderatoren på webbplatsen
Det här är absurt. Så mycket kod att utföra bara en enkel uppgift att vända strängen? :o Endast 3 raders funktion behöver läggas till i modulen enligt nedan: Funktion strrev(strValue As String) strrev = StrReverse(strValue) Slutfunktion Nu kan formeln =strrev(A1) användas i Excel-ark. Detta fungerar eftersom StrReverse är en inbyggd funktion i VBA. :D
Denna kommentar minimerades av moderatoren på webbplatsen
Ytterligare en... Funktion InvertText(str As String) 'Av Faseeh Muhammad Dim m Som heltal För m = Len(str) Till 1 Steg -1 countRepp = countRepp & Mid(str, m, 1) Nästa m Slutfunktion
Denna kommentar minimerades av moderatoren på webbplatsen
Ursäkta lite redigering Funktion InvertText(str As String) 'Av Faseeh Muhammad Dim curr As String Dim m Som heltal För m = Len(str) Till 1 Steg -1 countRepp = countRepp & Mid(str, m, 1) Nästa m Inverttext Avsluta funktion
Denna kommentar minimerades av moderatoren på webbplatsen
Hej alla, jag har provat den här funktionen: 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) För varje Rng In WorkRng xValue = Rng.Value xLen = VBA.Len(xValue) xOut = "" För i = 1 Till 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 jag har kört den med siffror har den raderat alla nollor. känner du till en funktion som inte raderar nollor? Tack!!
Denna kommentar minimerades av moderatoren på webbplatsen
Använd Vineets funktionskod som en modul och när du använder formeln, använd detta trick: =strrev(""&D9&"") där D9 innehåller numret. Vineets VBA-kod för den funktionen är: Funktion strrev(strValue As String) strrev = StrReverse(strValue) End Function
Denna kommentar minimerades av moderatoren på webbplatsen
Använd detta.. lägg in din inmatning i A1 så kommer utdata att vara i B1 Sub zzzText() Dim xlen, xvalue, xoutput xlen = VBA.Len(Range("A1")) xvalue = Range("A1").Value xoutput = "" För i = 1 Till 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
Denna kommentar minimerades av moderatoren på webbplatsen
Jag märker att många människor återuppfinner hjulet genom att göra vänster, höger kommandon, VB6 stöder sträng omvänd SYNTAX: strRevese("String") det är allt du behöver Dim stCellValue, i For i = 1 Till 5 Range("A" & X).Välj stCellValue = Range("A" & X).Value stCellValue = StrReverse(stCellValue) Range("A" & X).Value = stCellValue Nästa i Ett annat smart knep skulle vara att i förväg fylla i nollor, om värden under 10 men måste vara i ett tidsformat som "10:01:24" istället för "10:1:24" intMins = 1 stMinutes = right("00" & intMins, 2) resultat = 01
Denna kommentar minimerades av moderatoren på webbplatsen
tack det är verkligen användbart för mig :roll:
Denna kommentar minimerades av moderatoren på webbplatsen
Hej, jag skulle vilja byta datum. 20/11/2015 till 2015/11/20 Någon hjälp? Tack
Denna kommentar minimerades av moderatoren på webbplatsen
För datum är allt du behöver göra att ändra formatet på cellen till det format som behövs. Högerklicka på cellen du vill vända och välj formatera cell. Välj Datum under kategorisektionen och ändra platsen från var du än är till USA eller Tjeckien eller ett annat land som kan använda formatet du är intresserad av. Välj sedan det som matchar dina krav.
Denna kommentar minimerades av moderatoren på webbplatsen
hej allihop, jag har inte Kutools för att vända ett tecken i text, om någon har detta verktyg och vill hjälpa mig, skicka mig e-post för att skicka min fil till dig för omvändning. Min email är: [b][b]mohanned1@windowslive.com[/b][/b] med hänsyn,
Denna kommentar minimerades av moderatoren på webbplatsen
vänligen gå igenom instruktionerna från extend office-webbplatsen efter att ha sökt med google med omvänd sträng i excel.
Denna kommentar minimerades av moderatoren på webbplatsen
Det är möjligt att vända text med hjälp av formel, det är repetitivt och begränsat till hur långt du är beredd att gå och beroende på hur många tecken Excel tillåter i formelfältet. Maxlängden på text kommer att vara 30 tecken och finns i cell A1. Cell B1 skulle läsa: =TRIM(MID(VÄNSTER(A1&REPT(" ",31),31),30,1)&MID(VÄNSTER(A1&REPT(" ",31),31),29,1)&MIDDEN(VÄNSTER( A1&REPT(" ",31),31),28,1)&MIDDEN(VÄNSTER(A1&REPT(" ",31),31),27,1)&MIDDEN(VÄNSTER(A1&REPT(" ",31),31),26,1 ,1)&MID(LEFT(A31&REPT(" ",31);25,1),1)&MID(VÄNSTER(A31&REPT(" ",31);24,1),1)&MID(VÄNSTER(A31&REPT(" ", 31),23,1),1)&MID(LEFT(A31&REPT(" ",31),22,1),1)&MID(LEFT(A31&REPT(" ",31),21,1),1)&MID( VÄNSTER(A31&REPT(" ",31),20,1),1)&MIDDEN(VÄNSTER(A31&REPT(" ",31);19,1),1)&MIDDEN(VÄNSTER(A31&REPT(" ",31),18,1) ,1)&MID(VÄNSTER(A31&REPT(" ",31),17,1),1)&MID(VÄNSTER(A31&REPT(" ",31);16,1),1)&MID(VÄNSTER(A31&REPT(" ",31),15,1),1)&MID(LEFT(A31&REPT(" ",31),14,1),1)&MID(LEFT(A31&REPT(" ",31),13,1),1) &MIDDEN(VÄNSTER(A31&REPT(" ",31);12,1),1)&MIDDEN(VÄNSTER(A31&REPT(" ",31);11,1),1)&MIDDEN(VÄNSTER(A31&REPT(" ",31), 10,1),1)&MID(LEFT(A31&REPT(" ",31),9,1),1)&MID(VÄNSTER(A31&REPT(" ",31),8,1),1)&MID(VÄNSTER(A31&REPT) (" ",31),7,1),1)&MID(LEFT(A31&REPT(" ",31),6,1),1)&MID(LEFT(A31&REPT(" ",31),5,1),1, 31)&MIDDA(VÄNSTER(A31&REPT(" ",4,1),1),31)&MIDDEL(VÄNSTER(A31&REPT(" ",3,1);1),31)&M ID(LEFT(A31&REPT(" ",2,1),1),31)&MID(LEFT(A31&REPT(" ",1,1),1),1)) Resultat: A1: Duncan Sullivan-Shaw B31: wahS -navilluS nacnuD I grund och botten blir din text i cell A1 1 tecken lång genom att lägga till tillräckligt med mellanslag för att möjliggöra detta, och varje tecken läses enskilt från höger till vänster tills du når det första tecknet. Detta kommer att resultera i att din omvända text innehåller inledande mellanslag, som TRIM-kommandot tar bort åt dig. För att minska eller öka längden skulle du ta bort eller lägga till varje påstående. Siffran i REPT-satsen ska vara XNUMX längre än den maximala längden du arbetar med och din första MID-sats börjar med den maximala längden ner till XNUMX.
Denna kommentar minimerades av moderatoren på webbplatsen
Jag upptäckte att den ursprungliga Sub gav ut resultaten med ytterligare suck i slutet av alla valda celler. Så jag fixade den här delen. För i = UBound(strList) Till 0 Steg -1 Om i > 0 Då xOut = xOut & strList(i) & Suck Annat xOut = xOut & strList(i) Nästa Rng.Value = xOut
Denna kommentar minimerades av moderatoren på webbplatsen
Är det möjligt att starta det omvända vid en viss teckenlängd (för den användardefinierade funktionen eller VBA-koden)? Omvänd till exempel cell A1-värden som börjar efter teckenantalet lika med B1-värdet. Så om B1 är 10 tecken börjar omvänt med tecken 11+ i A1.
Denna kommentar minimerades av moderatoren på webbplatsen
Tack så mycket. Den här koden hjälpte min vän på ett mycket bra sätt
Denna kommentar minimerades av moderatoren på webbplatsen
fantastiskt mycket hjälpsamt tack för att du delar med dig av detaljerna
Denna kommentar minimerades av moderatoren på webbplatsen
Detta är verkligen till stor hjälp ... Tack så mycket
Denna kommentar minimerades av moderatoren på webbplatsen
Jag letar efter ett sätt att sätta in ord i "fabetiska ordningsföljder". Så de sista bokstäverna av ordet måste i alfabetisk ordning. En enig idé? VrGr Amanda
Det finns inga kommentarer här ännu
Lämna dina kommentarer
Postar som gäst
×
Betygsätt detta inlägg:
0   Tecken
Föreslagna platser

Följ oss

Copyright © 2009 - www.extendoffice.com. | Alla rättigheter förbehållna. Drivs av ExtendOffice. | | Sitemap
Microsoft och Office-logotypen är varumärken eller registrerade varumärken som tillhör Microsoft Corporation i USA och / eller andra länder.
Skyddad av Sectigo SSL