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

Wie kann man die Reihenfolge von Textzeichenfolgen oder Wörtern in Excel umkehren?

Wie können Sie bei Verwendung des Excel-Arbeitsblatts die Reihenfolge der Textzeichenfolgen oder Wörter in Excel umkehren? Zum Beispiel möchten Sie umkehren “Excel ist ein nützliches Werkzeug für uns"To"su rof Beute lufesu a si lecxE”. Oder manchmal können Sie die Wortreihenfolge umkehren, z.Excel, Word, Powerpoint, OneNote"To"OneNote, Powerpoint, Word, Excel”. Normalerweise ist es etwas schwierig, dieses Problem zu lösen. Bitte beachten Sie die folgenden Methoden:

Textzeichenfolge mit benutzerdefinierter Funktion umkehren

Die Reihenfolge der umgekehrten Wörter wird durch ein bestimmtes Trennzeichen mit VBA-Code getrennt

Mit Kutools for Excel können Sie die Reihenfolge von Textzeichenfolgen oder Wörtern schnell und einfach umkehren


Pfeil blau rechte Blase Textzeichenfolge mit benutzerdefinierter Funktion umkehren

Angenommen, Sie haben eine Reihe von Textzeichenfolgen, die Sie umkehren möchten, z.Fügen Sie führende Nullen in Excel hinzu"To"lecxE ni sorez gnidael dda”. Sie können den Text mit den folgenden Schritten umkehren:

1. Halten Sie die Taste gedrückt ALT + F11 Tasten, und es öffnet die Microsoft Visual Basic für Applikationen Fenster.

2. Klicken Sie Insert > Modulund fügen Sie das folgende Makro in das Feld ein ModulFenster.

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

3. Speichern und schließen Sie diesen Code, kehren Sie zum Arbeitsblatt zurück und geben Sie die folgende Formel ein: = Umkehrung (A2) in eine leere Zelle, um das Ergebnis zu platzieren, siehe Screenshot:

4. Ziehen Sie dann den Füllpunkt nach unten, um diese Formel zu kopieren. Der Text in den Zellen wird sofort wiedergegeben (siehe Abbildung):


Pfeil blau rechte Blase Die Reihenfolge der umgekehrten Wörter wird durch ein bestimmtes Trennzeichen mit VBA-Code getrennt

Wenn Sie eine Liste von Zellenwörtern haben, die durch Kommas getrennt sind: „Lehrer, Arzt, Schüler, Arbeiter, Fahrer", Und Sie möchten die Reihenfolge der Wörter wie folgt umkehren"fahren, Arbeiter, Schüler, Arzt, Lehrer”. Sie können auch follow VBA verwenden, um das Problem zu lösen.

1. Halten Sie die Taste gedrückt ALT + F11 Tasten, und es öffnet die Microsoft Visual Basic für Applikationen Fenster.

2. Klicken Sie Insert > Modulund fügen Sie das folgende Makro in das Feld ein Modul Fenster.

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. Dann drücken F5 Wenn Sie die Taste drücken, wird ein Dialogfeld angezeigt. Wählen Sie einen Bereich aus, mit dem Sie arbeiten möchten. Siehe Screenshot:

4. Und dann drücken OkEs erscheint ein weiteres Dialogfeld, in dem Sie das Trennzeichen angeben können, auf dessen Grundlage Sie die Wörter umkehren möchten (siehe Abbildung):

5. Dann klick OKund Sie können sehen, dass die ausgewählten Wörter umgekehrt sind, siehe Screenshots:


Pfeil blau rechte Blase Mit Kutools for Excel können Sie die Reihenfolge von Textzeichenfolgen oder Wörtern schnell und einfach umkehren

Das Kutools for Excel Textreihenfolge umkehren kann Ihnen helfen, schnell und bequem verschiedene Textzeichenfolgen umzukehren. Es kann folgende Operationen ausführen:

Kehren Sie den Text von rechts nach links um, z.Tippen Sie auf einige Wörter"To"sdrow emos pat";

Umgekehrt wird der Text durch Leerzeichen oder andere spezifische Zeichen getrennt, z.Apfelorangen-Traube"To"Traubenorangenapfel";

Kutools for Excel : Mit mehr als 300 praktischen Excel-Add-Ins können Sie diese innerhalb von 30 Tagen ohne Einschränkung testen

Kehren Sie den Text von rechts nach links um:

1. Wählen Sie den Bereich aus, den Sie umkehren möchten.

2. Klicken Sie Kutoolen > Textwerkzeuge > Textreihenfolge umkehren, siehe Screenshot:

3. In dem Reverse Text Wählen Sie im Dialogfeld die richtige Option aus Separator die den Zellenwerten entsprechen. Und Sie können eine Vorschau der Ergebnisse von der Vorschaubereich. Siehe Screenshot:

 Laden Sie Kutools for Excel jetzt herunter und testen Sie es kostenlos!


Umgekehrt wird der Text durch Leerzeichen oder andere spezifische Zeichen getrennt:

Diese Funktion kann Ihnen auch dabei helfen, die durch bestimmte Zeichen getrennten Textzeichenfolgen umzukehren.

1. Wählen Sie die Zellen aus und wenden Sie dieses Dienstprogramm an, indem Sie auf klicken Kutoolen > Text > Textreihenfolge umkehren.

2. In den Reverse Text Wählen Sie im Dialogfeld das Trennzeichen aus, das die Zellenwerte trennt, auf deren Grundlage Sie die Wörter umkehren möchten (siehe Abbildung):

3. Dann klick Ok or Hinzufügenwurden die Wörter in den Zellen sofort umgekehrt. Siehe Screenshots:

Hinweis:Überprüfung Nicht-Text überspringen Zellen, um zu verhindern, dass Sie die Zahlen im ausgewählten Bereich umkehren.

Um mehr über diese Funktion zu erfahren, besuchen Sie bitte Textreihenfolge umkehren.

Laden Sie Kutools for Excel jetzt herunter und testen Sie es kostenlos!


Pfeil blau rechte Blase Demo: Textzeichenfolge basierend auf einem bestimmten Trennzeichen mit Kutools for Excel umkehren

Kutools for Excel: Mit mehr als 300 praktischen Excel-Add-Ins können Sie es innerhalb von 30 Tagen ohne Einschränkung testen. Jetzt herunterladen und kostenlos testen!

In Verbindung stehender Artikel:

Wie kann man den Vor- und Nachnamen in Zellen in Excel umdrehen?


Die besten Tools für die Office-Produktivität

Kutools for Excel löst die meisten Ihrer Probleme und erhöht Ihre Produktivität um 80%

  • Wiederverwendung: Schnell einfügen komplexe Formeln, Diagramme und alles, was du vorher benutzt hast; Zellen verschlüsseln mit Passwort; Mailingliste erstellen und E-Mails senden ...
  • Super Formelriegel (leicht mehrere Textzeilen und Formeln bearbeiten); Layout lesen (leichtes Lesen und Bearbeiten einer großen Anzahl von Zellen); In gefilterten Bereich einfügen...
  • Zellen / Zeilen / Spalten zusammenführen ohne Daten zu verlieren; Inhalt geteilter Zellen; Kombinieren Sie doppelte Zeilen / Spalten... doppelte Zellen verhindern; Bereiche vergleichen...
  • Wählen Sie Duplizieren oder Eindeutig Reihen; Wählen Sie Leere Zeilen (alle Zellen sind leer); Super Find und Fuzzy Find in vielen Arbeitsmappen; Zufällige Auswahl ...
  • Exakte Kopie Mehrere Zellen ohne Änderung der Formelreferenz; Referenzen automatisch erstellen zu mehreren Blättern; Aufzählungszeichen einfügen, Kontrollkästchen und mehr ...
  • Text extrahieren, Text hinzufügen, Nach Position entfernen, Leerzeichen entfernen;; Paging-Zwischensummen erstellen und drucken; Inhalt und Kommentare zwischen Zellen konvertieren...
  • Superfilter (Speichern und Anwenden von Filterschemata auf andere Blätter); Erweiterte Sortierung nach Monat / Woche / Tag, Häufigkeit und mehr; Spezialfilter fett, kursiv ...
  • Kombinieren Sie Arbeitsmappen und Arbeitsblätter;; Tabellen basierend auf Schlüsselspalten zusammenführen; Daten in mehrere Blätter aufteilen; Batch-Konvertierung von xls, xlsx und PDF...
  • Mehr als 300 leistungsstarke Funktionen. Unterstützt Office / Excel 2007-2021 und 365. Unterstützt alle Sprachen. Einfache Bereitstellung in Ihrem Unternehmen oder Ihrer Organisation. 30-tägige kostenlose Testversion mit allen Funktionen. 60 Tage Geld-zurück-Garantie.
kte tab 201905

Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich

  • Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
  • Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
  • Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!
officetab unten

 

Kommentare (19)
Noch keine Bewertungen. Bewerten Sie als Erster!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Das ist absurd. So viel Code, um nur eine einfache Aufgabe auszuführen, die Zeichenfolge umzukehren? :o Nur 3 Zeilenfunktion muss wie folgt im Modul hinzugefügt werden: Funktion strrev(strValue As String) strrev = StrReverse(strValue) End Function Jetzt kann die Formel =strrev(A1) in Excel-Tabelle verwendet werden. Dies funktioniert, da StrReverse eine eingebaute Funktion von VBA ist. :D
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Noch eins... Function InvertText(str As String) 'By Faseeh Muhammad Dim m As Integer For m = Len(str) To 1 Step -1 countRepp = countRepp & Mid(str, m, 1) Next m End Function
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Entschuldigung für eine kleine Bearbeitung Funktion InvertText(str As String) 'von 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 Funktion beenden
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo zusammen, ich habe diese Funktion ausprobiert: 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 Each 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, aber wenn ich es mit Zahlen ausgeführt habe, wurden alle Nullen gelöscht. Kennen Sie eine Funktion, die Nullen nicht löscht? Vielen Dank!!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Verwenden Sie den Funktionscode von Vineet als Modul und verwenden Sie bei Verwendung der Formel diesen Trick: =strrev(""&D9&"") wobei D9 die Zahl enthält. Der VBA-Code von Vineet für diese Funktion lautet: Function strrev(strValue As String) strrev = StrReverse(strValue) End Function
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Verwenden Sie dies ... geben Sie Ihre Eingabe in A1 ein, dann ist die Ausgabe 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").Value = xlen Range("D1").Value = xvalue End Sub
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Mir ist aufgefallen, dass viele Leute das Rad neu erfinden, indem sie Links-Rechts-Befehle ausführen. VB6 unterstützt die Umkehrung von Zeichenfolgen. SYNTAX: strRevese ("String"), das ist alles, was Sie brauchen. & X).Select stCellValue = Range("A" & X).Value stCellValue = StrReverse(stCellValue) Range("A" & X).Value = stCellValue Next i Ein weiterer raffinierter Trick wäre, Nullen vorauszufüllen, wenn Werte vorhanden sind unter 1, müssen aber in einem Zeitformat wie "5:10:10" statt "01:24:10" vorliegen intMins = 1 stMinutes = right("24" & intMins, 1) result = 00
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Danke, das hilft mir wirklich weiter :roll:
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo, ich möchte die Daten umkehren. 20 bis 11 Irgendwelche Hilfe? Vielen Dank
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Für Datumsangaben müssen Sie lediglich das Format der Zelle in das gewünschte Format ändern. Klicken Sie mit der rechten Maustaste auf die Zelle, die Sie umkehren möchten, und wählen Sie Zelle formatieren. Wählen Sie Datum unter dem Kategorieabschnitt und ändern Sie den Standort von wo auch immer Sie sich in die USA oder Tschechien oder in ein anderes Land, das das Format verwendet, an dem Sie interessiert sind. Wählen Sie dann dasjenige aus, das Ihren Anforderungen entspricht.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo zusammen, ich habe keine Kutools, um ein Textzeichen umzukehren. Wenn jemand diese Tools hat und mir helfen möchte, senden Sie mir bitte eine E-Mail, um meine Datei für die Umkehrung an Sie zu senden. meine Email ist: [b][b]mohanned1@windowslive.com[/b][/b] mit freundlichen Grüßen,
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Bitte gehen Sie die Anweisungen auf der Extend Office-Website durch, nachdem Sie mit Google nach umgekehrter Zeichenfolge in Excel gesucht haben.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Es ist möglich, Text mithilfe von Formeln umzukehren, es wiederholt sich und ist darauf beschränkt, wie weit Sie bereit sind zu gehen, und abhängig von der Anzahl der Zeichen, die Excel in der Bearbeitungsleiste zulässt. Die maximale Textlänge beträgt 30 Zeichen und befindet sich in Zelle A1. Zelle B1 würde lauten: =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)) Ergebnis: A1: Duncan Sullivan-Shaw B31: wahS -navillus nacnuD Im Grunde genommen wird Ihr Text in Zelle A1 1 Zeichen lang, indem Sie genügend Leerzeichen hinzufügen, um dies zu ermöglichen, und jedes Zeichen wird einzeln von rechts nach links gelesen, bis Sie das erste Zeichen erreichen. Dies führt dazu, dass Ihr umgekehrter Text führende Leerzeichen enthält, die der TRIM-Befehl für Sie entfernt. Um die Länge zu verringern oder zu erhöhen, würden Sie jede Anweisung entfernen oder hinzufügen. Die Zahl in der REPT-Anweisung sollte um XNUMX größer sein als die maximale Länge, auf die Sie arbeiten, und Ihre erste MID-Anweisung beginnt mit der maximalen Länge, die auf XNUMX heruntergearbeitet wird.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Ich habe festgestellt, dass der ursprüngliche Sub die Ergebnisse mit zusätzlichem Seufzen am Ende aller ausgewählten Zellen ausgab. Also habe ich diesen Teil repariert. For i = UBound(strList) To 0 Step -1 If i > 0 Then xOut = xOut & strList(i) & Seufzer Else xOut = xOut & strList(i) Next Rng.Value = xOut
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Ist es möglich, die Umkehrung bei einer bestimmten Zeichenlänge (für die benutzerdefinierte Funktion oder den VBA-Code) zu starten? Kehren Sie beispielsweise die Werte der Zelle A1 um, beginnend nach der Zeichenanzahl, die dem Wert B1 entspricht. Wenn B1 also 10 Zeichen lang ist, beginnt Reverse bei Zeichen 11+ in A1.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Vielen Dank. Dieser Code hat meinem Freund sehr gut geholfen
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Super, sehr hilfreich, danke für das Teilen der Details
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Das ist wirklich eine große Hilfe ... Vielen Dank
Dieser Kommentar wurde vom Moderator auf der Website minimiert
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. Brauchen Sie eine enig idee? VrGr Amanda
Es sind noch keine Kommentare vorhanden
Hinterlassen Sie Ihre Kommentare
Als Gast posten
×
Bewerte diese Nachricht:
0   Figuren
Vorgeschlagene Standorte

Folgen Sie uns

Copyright © 2009 - www.extendoffice.com. | Alle Rechte vorbehalten. Unterstützt von ExtendOffice. | Sitemap
Microsoft und das Office-Logo sind Marken oder eingetragene Marken der Microsoft Corporation in den USA und / oder anderen Ländern.
Geschützt durch Sectigo SSL