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

Cum se inversează șirul de text sau ordinea cuvintelor în Excel?

Când utilizați foaia de lucru Excel, cum inversați șirul de text sau ordinea cuvintelor în Excel? De exemplu, doriți să inversați „Excel este un instrument util pentru noi"La"su rof loot lufesu a si lecxE”. Sau uneori puteți inversa ordinea cuvintelor, cum ar fi „Excel, Word, PowerPoint, OneNote"La"OneNote, PowerPoint, Word, Excel”. În mod normal, acest lucru este oarecum dificil de rezolvat această problemă. Vă rugăm să consultați următoarele metode:

Inversați șirul de text cu funcția definită de utilizator

Inversați ordinea cuvintelor separate printr-un separator specific cu codul VBA

Inversați șirul de text sau ordinea cuvintelor cu Kutools pentru Excel rapid și ușor


săgeată albastru dreapta balon Inversați șirul de text cu funcția definită de utilizator

Presupunând că aveți o serie de șiruri de text pe care doriți să le inversați, cum ar fi „adăugați zerouri în Excel"La"lecxE ni sorez gnidael dda”. Puteți inversa textul urmând pașii următori:

1. Țineți apăsat butonul ALT + F11 tastele și deschide fișierul Microsoft Visual Basic pentru aplicații fereastră.

2. Clic Insera > Moduleși lipiți următoarea macro în fișierul Modulefereastră.

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

3. Și apoi salvați și închideți acest cod, reveniți la foaia de lucru și introduceți această formulă: = reversestr (A2) într-o celulă goală pentru a pune rezultatul, vezi captura de ecran:

4. Apoi trageți mânerul de umplere în jos pentru a copia această formulă, iar textul din celule este venerat simultan, vedeți captura de ecran:


săgeată albastru dreapta balon Inversați ordinea cuvintelor separate printr-un separator specific cu codul VBA

Dacă aveți o listă de cuvinte celulare care sunt separate prin virgulă ca aceasta „profesor, doctor, student, muncitor, șofer”, Și doriți să inversați ordinea cuvintelor astfel”conducere, muncitor, student, doctor, profesor”. Puteți utiliza, de asemenea, urmați VBA pentru a o rezolva.

1. Țineți apăsat butonul ALT + F11 tastele și deschide fișierul Microsoft Visual Basic pentru aplicații fereastră.

2. Clic Insera > Moduleși lipiți următoarea macro în fișierul Module fereastră.

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. Apoi apăsați F5 tasta, este afișat un dialog, vă rugăm să selectați un interval cu care să lucrați. Vedeți captura de ecran:

4. Și apoi apăsați Ok, este afișat un alt dialog pentru a specifica separatorul pe care doriți să inversați cuvintele bazate pe, a se vedea captura de ecran:

5. Apoi faceți clic pe OK, și puteți vedea cuvintele selectate sunt inversate, vedeți capturi de ecran:


săgeată albastru dreapta balon Inversați șirul de text sau ordinea cuvintelor cu Kutools pentru Excel rapid și ușor

Kutools pentru Excel'S Ordine inversă a textului vă poate ajuta rapid și convenabil să inversați diferite șiruri de text. Poate face următoarele operații:

Inversați textul de la dreapta la stânga, cum ar fi „atingeți câteva cuvinte"La"sdrow emos pat";

Reversul textului este separat de spațiu sau de alte caractere specifice, cum ar fi „struguri de portocale de mere"La"struguri măr portocaliu";

Kutools pentru Excel : cu mai mult de 300 de programe de completare Excel la îndemână, gratuit pentru a încerca fără limitări în 30 de zile

Inversați textul de la dreapta la stânga:

1. Selectați intervalul pe care doriți să îl inversați.

2. Clic Kutools > Instrumente de text > Ordine inversă a textului, vezi captura de ecran:

3. În Text invers caseta de dialog, selectați opțiunea corectă din Separator care corespund valorilor celulei. Și puteți previzualiza rezultatele din Panoul de examinare. Vedeți captura de ecran:

 Descărcați și proba gratuită Kutools pentru Excel acum!


Reversul textului este separat de spațiu sau de alte caractere specifice:

Această caracteristică vă poate ajuta, de asemenea, să inversați șirurile de text care sunt separate de caractere specifice.

1. Selectați celulele și aplicați acest utilitar făcând clic pe Kutools > Text > Ordine inversă a textului.

2. În Text invers caseta de dialog, alegeți separatorul care separă valorile celulei pe care doriți să inversați cuvintele pe baza, vedeți captura de ecran:

3. Apoi apasa Ok or Aplică, cuvintele din celule au fost inversate deodată. Vedeți capturi de ecran:

notițe:Control Treceți peste text celule pentru a preveni inversarea numerelor din intervalul selectat.

Pentru a afla mai multe despre această funcție, vă rugăm să vizitați Ordine inversă a textului.

Descărcați și proba gratuită Kutools pentru Excel acum!


săgeată albastru dreapta balon Demo: șir de text invers pe baza separatorului specific cu Kutools pentru Excel

Kutools pentru Excel: cu mai mult de 300 de programe de completare Excel la îndemână, încercați fără limitări în 30 de zile. Descărcați și proba gratuită acum!

Articol asociat:

Cum se întoarce numele și prenumele din celule în Excel?


Cele mai bune instrumente de productivitate Office

Kutools pentru Excel vă rezolvă majoritatea problemelor și vă crește productivitatea cu 80%

  • reutilizarea: Introduceți rapid formule complexe, diagrame și orice ai folosit anterior; Criptați celulele cu parola; Creați o listă de corespondență și trimiteți e-mailuri ...
  • Super Formula Bar (editați cu ușurință mai multe linii de text și formulă); Layout de citire (citiți și editați cu ușurință un număr mare de celule); Lipiți la interval filtrat...
  • Merge celule / rânduri / coloane fără a pierde date; Conținut de celule divizate; Combinați rânduri / coloane duplicate... Prevenirea celulelor duplicate; Comparați gamele...
  • Selectați Duplicat sau Unic Rânduri; Selectați Rânduri goale (toate celulele sunt goale); Super Find și Fuzzy Find în multe cărți de lucru; Selectare aleatorie ...
  • Copie exactă Mai multe celule fără modificarea referinței formulelor; Creați automat referințe la foi multiple; Introduceți gloanțe, Casete de selectare și multe altele ...
  • Extrageți textul, Adăugați text, eliminați după poziție, Eliminați spațiul; Creați și imprimați subtotaluri de paginare; Convertiți conținutul dintre celule și comentarii...
  • Super Filtru (salvați și aplicați scheme de filtrare altor foi); Sortare avansată după lună / săptămână / zi, frecvență și multe altele; Filtru special cu bold, italic ...
  • Combinați cărți de lucru și foi de lucru; Merge Tables pe baza coloanelor cheie; Împărțiți datele în mai multe foi; Conversia în loturi xls, xlsx și PDF...
  • Peste 300 de funcții puternice. Suportă Office / Excel 2007-2021 și 365. Acceptă toate limbile. Implementare ușoară în întreprinderea sau organizația dvs. Funcții complete Probă gratuită de 30 de zile. Garanție de returnare a banilor de 60 de zile.
fila kte 201905

Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară

  • Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
  • Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ​​ferestrele noi.
  • Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!
fundul officetab

 

Comentarii (19)
Încă nu există evaluări. Fii primul care evaluează!
Acest comentariu a fost redus la minimum de moderatorul de pe site
Acest lucru este absurd. Atât de mult cod de efectuat doar o sarcină simplă de a inversa șirul? :o Trebuie adăugate doar 3 linii de funcție în modul, după cum urmează: Funcția strrev(strValue As String) strrev = StrReverse(strValue) End Function Acum formula =strrev(A1) poate fi utilizată în foaia Excel. Acest lucru funcționează deoarece StrReverse este o funcție încorporată a VBA. :D
Acest comentariu a fost redus la minimum de moderatorul de pe site
Altul... Funcție 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
Acest comentariu a fost redus la minimum de moderatorul de pe site
Ne pare rău de editare Funcție InvertText(str As String) 'De 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 Funcția de sfârșit
Acest comentariu a fost redus la minimum de moderatorul de pe site
Bună tuturor, am încercat această funcție: 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) Pentru fiecare Rng din WorkRng xValue = Rng.Value xLen = VBA.Len(xValue) xOut = "" Pentru 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 dar când l-am rulat cu numere, a șters toate zerourile. știi o funcție care nu șterge zerouri? Mulțumiri!!
Acest comentariu a fost redus la minimum de moderatorul de pe site
Utilizați codul funcției Vineet ca modul și atunci când utilizați formula, utilizați acest truc: =strrev(""&D9&"") unde D9 conține numărul. Codul VBA al lui Vineet pentru acea funcție este: Function strrev(strValue As String) strrev = StrReverse(strValue) End Function
Acest comentariu a fost redus la minimum de moderatorul de pe site
Utilizați acest lucru... puneți-vă intrarea în A1, apoi rezultatul va fi în B1 Sub zzzText() Dim xlen, xvalue, xoutput xlen = VBA.Len(Range("A1")) xvalue = Range("A1").Value xoutput = "" Pentru 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
Acest comentariu a fost redus la minimum de moderatorul de pe site
Observ că mulți oameni reinventează roata făcând comenzi la stânga, la dreapta, VB6 acceptă inversarea șirurilor SINTAXĂ: strRevese(„String”), asta este tot ce ai nevoie Dim stCellValue, i For i = 1 To 5 Range(„A” & X).Selectați stCellValue = Range("A" și X).Value stCellValue = StrReverse(stCellValue) Range("A" & X).Value = stCellValue Next i Un alt truc ingenios ar fi să prepopulați zerouri, dacă valorile sub 10, dar trebuie să fie într-un format de oră, cum ar fi „10:01:24” în loc de „10:1:24” intMins = 1 stMinutes = right(„00” & intMins, 2) result = 01
Acest comentariu a fost redus la minimum de moderatorul de pe site
multumesc, imi este foarte util :roll:
Acest comentariu a fost redus la minimum de moderatorul de pe site
Bună, aș dori să inversez Datele. 20/11/2015 până la 2015/11/20 Ajutor? Mulțumiri
Acest comentariu a fost redus la minimum de moderatorul de pe site
Pentru date, tot ce trebuie să faceți este să schimbați formatul celulei în formatul necesar. Faceți clic dreapta pe celula pe care doriți să o inversați și selectați formatul celulei. Selectați Data din secțiunea categorie și schimbați locația de oriunde v-ați afla în SUA sau Cehia sau în altă țară care ar putea folosi formatul care vă interesează. Apoi alegeți pe cel care se potrivește cerințelor dvs.
Acest comentariu a fost redus la minimum de moderatorul de pe site
salut tuturor, nu am Kutools pentru a inversa un caracter al textului, dacă cineva are aceste instrumente și dorește să mă ajute, vă rugăm să-mi trimiteți un e-mail pentru a vă trimite fișierul pentru inversare. email-ul meu este: [b][b]mohanned1@windowslive.com[/b][/b] cu privire la,
Acest comentariu a fost redus la minimum de moderatorul de pe site
vă rugăm să parcurgeți instrucțiunile oferite de site-ul web extins office după ce ați căutat cu google prin șir invers în excel.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Este posibil să inversați textul folosind formula, este repetitiv și limitat la cât de departe sunteți pregătit să mergeți și în funcție de numărul de caractere pe care Excel îl va permite în bara de formule. Lungimea maximă a textului va fi de 30 de caractere și se află în celula A1. Celula B1 ar citi: =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(STÂNGA(A31&REPT(" ",31),25,1),1)&MID(STÂNGA(A31&REPT(" ",31),24,1),1)&MID(STÂNGA(A31&REPT(" ", 31),23,1),1)&MID(STÂNGA(A31&REPT(" ",31),22,1),1)&MID(STÂNGA(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(STÂNGA(A31&REPT(" ",31),17,1),1)&MIJUNĂ(STÂNGA(A31&REPT(" ",31),16,1),1)&MID(STÂNGA(A31&REPT(") ",31),15,1),1)&MID(STÂNGA(A31&REPT(" ",31),14,1),1)&MID(STÂNGA(A31&REPT(" ",31),13,1),1) &MID(STÂNGA(A31&REPT(" ",31),12,1),1)&MIJUL (STÂNGA(A31&REPT(" ",31),11,1),1)&MID(STÂNGA(A31&REPT(" ",31),) 10,1),1)&MID(STÂNGA(A31&REPT(" ",31),9,1),1)&MIJUNĂ(STÂNGA(A31&REPT(" ",31),8,1),1)&MID(STÂNGA(A31&REPT) (" ",31),7,1),1)&MID(LEFT(A31&REPT(" ",31),6,1),1)&MID(LEFT(A31&REPT(" ",31),5,1),1, 31)&MID(STÂNGA(A31&REPT(" ",4,1),1),31)&MID(STÂNGA(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 Practic, textul din celula A1 devine 1 de caractere prin adăugarea de spații suficiente pentru a permite acest lucru, iar fiecare caracter este citit singular de la dreapta la stânga până când ajungeți la primul caracter. Acest lucru va avea ca rezultat textul dvs. inversat care conține spații de început, pe care comanda TRIM le elimină pentru dvs. Pentru a reduce sau a mări lungimea, ați elimina sau adăuga fiecare declarație. Numărul din instrucțiunea REPT ar trebui să fie cu XNUMX mai mare decât lungimea maximă la care lucrați, iar prima declarație MID va începe cu lungimea maximă până la XNUMX.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Am descoperit că Sub-ul original a dat rezultatele cu un suspin suplimentar la sfârșitul tuturor celulelor selectate. Așa că am reparat această parte. Pentru i = UBound(strList) La 0 Pasul -1 Dacă i > 0 Atunci xOut = xOut & strList(i) & Sigh Else xOut = xOut & strList(i) Următorul Rng.Value = xOut
Acest comentariu a fost redus la minimum de moderatorul de pe site
Este posibil să porniți inversul la o anumită lungime de caractere (pentru funcția definită de utilizator sau codul VBA)? De exemplu, inversați valorile celulei A1 începând după numărul de caractere egal cu valoarea B1. Deci, dacă B1 are 10 caractere, inversul va începe cu caracterele 11+ în A1..
Acest comentariu a fost redus la minimum de moderatorul de pe site
Mulțumesc foarte mult. Acest cod l-a ajutat pe prietenul meu într-un mod foarte bun
Acest comentariu a fost redus la minimum de moderatorul de pe site
minunat, foarte util, mulțumesc pentru împărtășirea detaliilor
Acest comentariu a fost redus la minimum de moderatorul de pe site
Acesta este cu adevărat un mare ajutor... Vă mulțumesc mult
Acest comentariu a fost redus la minimum de moderatorul de pe site
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. Iemand enig idee? VrGr Amanda
Nu există comentarii postate aici încă
Lăsa comentarii
Postare ca invitat
×
Evaluează această postare:
0   Caractere
Locații sugerate

Urmărește-ne

Copyright © 2009 - www.extendoffice.com. | Toate drepturile rezervate. Cu sprijinul ExtendOffice. | Harta site-ului
Microsoft și sigla Office sunt mărci comerciale sau mărci comerciale înregistrate ale Microsoft Corporation în Statele Unite și / sau în alte țări.
Protejat de Sectigo SSL