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

Hoe tekenreeks- of woordvolgorde in Excel omkeren?

Wanneer u het Excel-werkblad gebruikt, hoe keert u de tekstreeks of woordenvolgorde in Excel om? U wilt bijvoorbeeld "Excel is voor ons een handig hulpmiddel' als 'su rof buit lufesu a si lecxE”. Of soms kunt u de volgorde van de woorden omdraaien, zoals 'Excel, Word, PowerPoint, One Note' als 'OneNote, PowerPoint, Word, Excel”. Normaal gesproken is dit enigszins moeilijk om dit probleem op te lossen. Bekijk de volgende methoden:

Omgekeerde tekstreeks met door de gebruiker gedefinieerde functie

Omgekeerde volgorde van woorden gescheiden door een specifiek scheidingsteken met VBA-code

Keer tekstreeks of woorden om met Kutools voor Excel snel en gemakkelijk


pijl blauw rechts bel Omgekeerde tekstreeks met door de gebruiker gedefinieerde functie

Stel dat u een reeks tekstreeksen heeft die u wilt omkeren, zoals 'voeg voorloopnullen toe in Excel' als 'lecxE ni sorez gnidael dda”. U kunt de tekst omkeren met de volgende stappen:

1. Houd de ALT + F11 toetsen, en het opent de Microsoft Visual Basic voor toepassingen venster.

2. Klikken Invoegen > Moduleen plak de volgende macro in het Modulevenster.

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

3. En sla deze code vervolgens op en sluit deze, ga terug naar het werkblad en voer deze formule in: = reversestr (A2) in een lege cel om het resultaat te plaatsen, zie screenshot:

4. Sleep vervolgens de vulgreep naar beneden om deze formule te kopiëren en de tekst in de cellen wordt meteen vereerd, zie screenshot:


pijl blauw rechts bel Omgekeerde volgorde van woorden gescheiden door een specifiek scheidingsteken met VBA-code

Als u een lijst met celwoorden heeft die door komma's worden gescheiden, zoals 'leraar, dokter, student, arbeider, chauffeur", En u wilt de volgorde van de woorden als volgt omdraaien"rijden, arbeider, student, dokter, leraar”. Je kunt ook volg VBA gebruiken om het op te lossen.

1. Houd de ALT + F11 toetsen, en het opent de Microsoft Visual Basic voor toepassingen venster.

2. Klikken Invoegen > Moduleen plak de volgende macro in het Module venster.

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. Druk vervolgens op F5 -toets, wordt een dialoogvenster weergegeven, selecteer een bereik om mee te werken. Zie screenshot:

4. En druk vervolgens op Ok, er verschijnt een ander dialoogvenster waarin u het scheidingsteken kunt specificeren waarop u de woorden wilt omkeren, zie screenshot:

5. Dan klikken OK, en je kunt zien dat de geselecteerde woorden omgekeerd zijn, zie screenshots:


pijl blauw rechts bel Keer tekstreeks of woorden om met Kutools voor Excel snel en gemakkelijk

De Kutools for Excel's Omgekeerde tekstvolgorde kan u helpen om snel en gemakkelijk verschillende tekstreeksen om te keren. Het kan de volgende bewerkingen uitvoeren:

Keer de tekst van rechts naar links om, zoals 'tik op een paar woorden' als 'sdrow emo's pat";

Omgekeerd worden de tekst gescheiden door een spatie of andere specifieke tekens, zoals 'appel oranje druif' als 'druif oranje appel";

Kutools for Excel : met meer dan 300 handige Excel-invoegtoepassingen, gratis te proberen zonder beperking in 30 dagen

Keer de tekst om van rechts naar links:

1. Selecteer het bereik dat u wilt omkeren.

2. Klikken Kutools > Teksttools > Omgekeerde tekstvolgorde, zie screenshot:

3. In de Tekst omkeren dialoogvenster, selecteert u de juiste optie uit Separator die overeenkomen met de celwaarden. En u kunt een voorbeeld van de resultaten bekijken in het Voorbeeldvenster. Zie screenshot:

 Download en gratis proef Kutools voor Excel nu!


Omgekeerd worden de tekst gescheiden door een spatie of andere specifieke tekens:

Deze functie kan u ook helpen om de tekstreeksen om te keren die worden gescheiden door specifieke tekens.

1. Selecteer de cellen en pas dit hulpprogramma toe door op te klikken Kutools > Tekst > Omgekeerde tekstvolgorde.

2. In het Tekst omkeren dialoogvenster, kies het scheidingsteken dat de celwaarden scheidt waarvan u de woorden wilt omkeren op basis van, zie screenshot:

3. Dan klikken Ok or Toepassen, zijn de woorden in de cellen meteen omgedraaid. Zie screenshots:

Opmerking:: Controleren Sla niet-tekst over cellen om te voorkomen dat u de getallen in het geselecteerde bereik omkeert.

Ga voor meer informatie over deze functie naar Omgekeerde tekstvolgorde.

Download en gratis proef Kutools voor Excel nu!


pijl blauw rechts bel Demo: tekenreeks omkeren op basis van een specifiek scheidingsteken met Kutools voor Excel

Kutools for Excel: met meer dan 300 handige Excel-invoegtoepassingen, gratis te proberen zonder beperking in 30 dagen. Download en probeer nu gratis!

Gerelateerd artikel:

Hoe de voor- en achternaam in cellen in Excel omdraaien?


De beste tools voor kantoorproductiviteit

Kutools voor Excel lost de meeste van uw problemen op en verhoogt uw productiviteit met 80%

  • visfuik: Snel invoegen complexe formules, grafieken en alles wat je eerder hebt gebruikt; Versleutel cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • Super Formula-balk (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken in gefilterd bereik...
  • Voeg cellen / rijen / kolommen samen zonder gegevens te verliezen; Gespleten cellen inhoud; Combineer dubbele rijen / kolommen... Voorkom dubbele cellen; Vergelijk Ranges...
  • Selecteer Dupliceren of Uniek Rijen; Selecteer lege rijen (alle cellen zijn leeg); Super zoeken en fuzzy zoeken in veel werkboeken; Willekeurige selectie ...
  • Exacte kopie Meerdere cellen zonder de formuleverwijzing te wijzigen; Maak automatisch verwijzingen naar meerdere bladen; Plaats kogels, Selectievakjes en meer ...
  • Extraheer tekst, Tekst toevoegen, Verwijderen op positie, Ruimte verwijderen; Paging-subtotalen maken en afdrukken; Converteren tussen celinhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerd sorteren per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
  • Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
  • Meer dan 300 krachtige functies. Ondersteunt Office / Excel 2007-2021 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. Volledige functies Gratis proefperiode van 30 dagen. 60 dagen geld-terug-garantie.
kte tabblad 201905

Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker

  • Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
  • Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
  • Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!
officetab onderkant

 

Heb je vragen? Stel ze hier. (19)
Nog geen beoordelingen. Beoordeel als eerste!
Deze opmerking is gemaakt door de moderator op de site
Dit is absurd. Zoveel code om slechts een simpele taak uit te voeren om de string om te keren? :o Er hoeft slechts een 3-regelige functie in de module te worden toegevoegd, zoals hieronder: Functie strrev(strValue As String) strrev = StrReverse(strValue) End Function Nu kan de formule =strrev(A1) worden gebruikt in het Excel-blad. Dit werkt omdat StrReverse een ingebouwde functie van VBA is. :D
Deze opmerking is gemaakt door de moderator op de site
Nog een... Functie InvertText(str As String) 'Door Faseeh Muhammad Dim m As Integer For m = Len(str) To 1 Step -1 countRepp = countRepp & Mid(str, m, 1) Volgende m End Functie
Deze opmerking is gemaakt door de moderator op de site
Sorry een beetje bewerken Functie InvertText(str As String) 'Door Faseeh Muhammad Dim curr As String Dim m As Integer For m = Len(str) To 1 Step -1 countRepp = countRepp & Mid(str, m, 1) Volgende m Inverttext Einde functie
Deze opmerking is gemaakt door de moderator op de site
Hallo allemaal, ik heb deze functie geprobeerd: 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) Voor elke 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 maar toen ik het met getallen uitvoerde, heeft het alle nullen verwijderd. ken je een functie die geen nullen verwijdert? Bedankt!!
Deze opmerking is gemaakt door de moderator op de site
Gebruik de functiecode van Vineet als een module en als je de formule gebruikt, gebruik dan deze truc: =strrev(""&D9&"") waarbij D9 het getal bevat. De VBA-code van Vineet voor die functie is: Functie strrev(strValue As String) strrev = StrReverse(strValue) End Function
Deze opmerking is gemaakt door de moderator op de site
Gebruik dit..zet je invoer in A1 dan is de uitvoer in B1 Sub zzzText() Dim xlen, xvalue, xoutput xlen = VBA.Len(Range("A1")) xvalue = Range("A1").Value xoutput = "" For i = 1 To xlen GetText = VBA.Right(xvalue, 1) xvalue = VBA.Left(xvalue, xlen - i) xoutput = xoutput & GetText Next i Range("B1").Value = xoutput Range( "C1"). Waarde = xlen Range ("D1"). Waarde = xwaarde End Sub
Deze opmerking is gemaakt door de moderator op de site
Ik merk dat veel mensen het wiel opnieuw uitvinden door links, rechts commando's uit te voeren, VB6 ondersteunt string reverse SYNTAX: strRevese("String") dat is alles wat je nodig hebt Dim stCellValue, i For i = 1 To 5 Range ("A" & X).Selecteer stCellValue = Range("A" & X).Value stCellValue = StrReverse(stCellValue) Range("A" & X).Value = stCellValue Volgende i Een andere handige truc zou zijn om vooraf nullen in te vullen, als waarden onder de 10 maar moet een tijdnotatie hebben zoals "10:01:24" in plaats van "10:1:24" intMins = 1 stMinuten = rechts ("00" & intMins, 2) resultaat = 01
Deze opmerking is gemaakt door de moderator op de site
bedankt, het is echt nuttig voor mij :roll:
Deze opmerking is gemaakt door de moderator op de site
Hallo, ik wil graag datums omdraaien. 20/11/2015 tot 2015/11/20 Hulp? Bedankt
Deze opmerking is gemaakt door de moderator op de site
Voor datums hoeft u alleen maar de opmaak van de cel te wijzigen in de gewenste opmaak. Klik met de rechtermuisknop op de cel die u wilt omkeren en selecteer cel opmaken. Selecteer Datum onder het categoriegedeelte en wijzig de locatie van waar u ook bent naar de VS of Tsjechisch of een ander land dat het formaat waarin u geïnteresseerd bent, kan gebruiken. Kies vervolgens het formaat dat overeenkomt met uw vereisten.
Deze opmerking is gemaakt door de moderator op de site
hallo allemaal, ik heb geen Kutools om een ​​teken van tekst om te keren, als iemand deze tools heeft en me wil helpen, stuur me dan een e-mail om mijn bestand naar je te sturen voor reverse. mijn email is: [b][b]mohanned1@windowslive.com[/b][/b] met vriendelijke groeten,
Deze opmerking is gemaakt door de moderator op de site
volg de instructies van de Extend Office-website na het zoeken met Google door omgekeerde string in Excel.
Deze opmerking is gemaakt door de moderator op de site
Het is mogelijk om tekst om te keren met behulp van formule, het is repetitief en beperkt tot hoe ver u bereid bent te gaan en afhankelijk van het aantal tekens dat Excel in de formulebalk zal toestaan. De maximale lengte van de tekst is 30 tekens en bevindt zich in cel A1. Cel B1 zou lezen: =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)&MID(LEFT(A1&REPT(" ",31),31),27,1)&MID(LEFT(A1&REPT(" ",31),31),26,1 ,1)&MID(LEFT(A31&REPT(" ",31),25,1),1)&MID(LEFT(A31&REPT(" ",31),24,1),1)&MID(LEFT(A31&REPT(" ", 31),23,1),1)&MID(LEFT(A31&REPT(" ",31),22,1),1)&MID(LEFT(A31&REPT(" ",31),21,1),1)&MID( LEFT(A31&REPT(" ",31),20,1),1)&MID(LEFT(A31&REPT(" ",31),19,1),1)&MID(LEFT(A31&REPT(" ",31),18,1) ,1)&MID(LEFT(A31&REPT(" ",31),17,1),1)&MID(LEFT(A31&REPT(" ",31),16,1),1)&MID(LEFT(A31&REPT(" ",31),15,1),1)&MID(LEFT(A31&REPT(" ",31),14,1),1)&MID(LEFT(A31&REPT(" ",31),13,1),1) &MID(LEFT(A31&REPT(" ",31),12,1),1)&MID(LEFT(A31&REPT(" ",31),11,1),1)&MID(LEFT(A31&REPT(" ",31), 10,1),1)&MID(LEFT(A31&REPT(" ",31),9,1),1)&MID(LEFT(A31&REPT(" ",31),8,1),1)&MID(LEFT(A31&REPT (" ",31),7,1),1)&MID(LEFT(A31&REPT(" ",31),6,1),1)&MID(LEFT(A31&REPT(" ",31),5,1),1, 31)&MID(LEFT(A31&REPT(" ",4,1),1),31)&MID(LEFT(A31&REPT(" ",3,1),1),31)&M ID(LEFT(A31&REPT(" ",2,1),1),31)&MID(LEFT(A31&REPT(" ",1,1),1),1)) Resultaat: A1: Duncan Sullivan-Shaw B31: wahS -navilluS nacnuD In principe wordt uw tekst in cel A1 1 tekens lang door voldoende spaties toe te voegen om dit mogelijk te maken, en elk teken wordt afzonderlijk van rechts naar links gelezen totdat u het eerste teken bereikt. Dit zal resulteren in uw omgekeerde tekst met voorloopspaties, die de TRIM-opdracht voor u verwijdert. Om de lengte te verkorten of te vergroten, zou u elke verklaring verwijderen of toevoegen. Het getal in de REPT-instructie moet XNUMX meer zijn dan de maximale lengte waar u naartoe werkt en uw eerste MID-instructie begint met de maximale lengte en werkt naar beneden tot XNUMX.
Deze opmerking is gemaakt door de moderator op de site
Ik ontdekte dat de originele Sub de resultaten gaf met een extra zucht aan het einde van alle geselecteerde cellen. Dus ik heb dit onderdeel gerepareerd. Voor i = UBound(strList) Naar 0 Stap -1 Als i > 0 Dan xOut = xOut & strList(i) & Sigh Anders xOut = xOut & strList(i) Volgende Rng.Value = xOut
Deze opmerking is gemaakt door de moderator op de site
Is het mogelijk om het omgekeerde te beginnen bij een bepaalde tekenlengte (voor de door de gebruiker gedefinieerde functie of VBA-code)? Keer bijvoorbeeld cel A1-waarden om die beginnen na het aantal tekens dat gelijk is aan B1-waarde. Dus als B1 10 tekens is, begint het omgekeerde bij tekens 11+ in A1..
Deze opmerking is gemaakt door de moderator op de site
Heel erg bedankt. Deze code heeft mijn vriend op een zeer goede manier geholpen
Deze opmerking is gemaakt door de moderator op de site
geweldig erg behulpzaam bedankt voor het delen van de details
Deze opmerking is gemaakt door de moderator op de site
Dit is echt een grote hulp ... Heel erg bedankt
Deze opmerking is gemaakt door de moderator op de site
Ik zoek een manier om een ​​heel woorden in 'rijm-betische gebruiken' te zetten. Dus de laatste letters van het woord moeten in alfabetische letters. enig idee? VrGr Amanda
Er zijn nog geen reacties geplaatst
Laat uw commentaar
Posten als gast
×
Beoordeel dit bericht:
0   Personages
Voorgestelde locaties

Volg ons

Copyright © 2009 - www.extendoffice.com. | Alle rechten voorbehouden. Aangedreven door ExtendOffice. | Sitemap
Microsoft en het Office-logo zijn handelsmerken of gedeponeerde handelsmerken van Microsoft Corporation in de Verenigde Staten en / of andere landen.
Beschermd door Sectigo SSL