Cum să rearanjați textul într-o celulă din Excel?

Presupunând că ați obținut o foaie de calcul cu o listă lungă de nume care formează toate numele „Prenume Prenume”, iar acum trebuie să rearanjați toate numele la „Prenume, Prenume”. Cum se realizează? Acest articol va introduce trei metode pentru a vă ajuta să rezolvați problema.

Rearanjați textul într-o celulă cu formulă
Rearanjați textul într-o celulă cu cod VBA
Rearanjați rapid textul într-o celulă cu Kutools pentru Excel

Rearanjați textul într-o celulă cu formulă

Formula de mai jos vă poate ajuta să întoarceți numele și prenumele într-o celulă din Excel. Vă rugăm să faceți următoarele.

1. Selectați o celulă goală pentru a afișa textul rearanjat, introduceți formula de mai jos în ea și apoi apăsați tasta Enter.

= TRIM (MID (b2, SEARCH ("", b2) +1,250)) & "" & STÂNGA (b2, SEARCH ("", b2) -1)

notițe: în formulă, B2 este celula conține numele pe care îl veți rearanja. Vă rugăm să îl modificați în funcție de nevoile dvs.

2. Continuați să selectați celula de rezultat, trageți mânerul de umplere în jos pentru a răsturna toate numele așa cum este prezentat mai jos.

Rearanjați textul într-o celulă cu cod VBA

În plus, puteți aplica mai jos codul VBA pentru a răsturna toate numele dintr-o listă simultan în Excel. Vă rugăm să faceți următoarele.

1. apasă pe Alt + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.

2. În Microsoft Visual Basic pentru aplicații fereastră, faceți clic pe Insera > Module. Apoi copiați mai jos codul VAB în fereastra Module.

Cod VBA: rearanjați textul într-o celulă

Sub RearrangeText() 
'Updated by Extendoffice 20180503
Dim xRg As Range, yRg As Range 
Dim LastRow As Long, i As Long 
Dim strTxt As String, strFs As String 
Dim strLs As String, N As Integer 
On Error Resume Next 
Set xRg = Application.InputBox(Prompt:="Range Selection:", _ 
Title:="Kutools for excel", Type:=8) 
For Each yRg In xRg 
On Error Resume Next 
strTxt = yRg.Value 
Trim (strTxt) 
N = InStr(strTxt, " ") 
strLs = Left(strTxt, N - 1) 
strFs = Right(strTxt, Len(strTxt) - N) 
yRg.Value = strFs & " " & strLs 
Next 
End Sub

3. Apoi a Kutools pentru Excel apare fereastra de dialog, selectați lista de nume pe care doriți să o rearanjați, apoi faceți clic pe OK buton. Vedeți captura de ecran:

Apoi, toate „Prenume Prenume” din lista selectată sunt răsturnate imediat.

Rearanjați rapid textul într-o celulă cu Kutools pentru Excel

Această secțiune va introduce Ordine inversă a textului utilitatea Kutools pentru Excel pentru a vă ajuta să rearanjați textul într-o celulă.

Înainte de a aplica Kutools pentru Excel, Vă rugăm să descărcați-l și instalați-l mai întâi.

1. Selectați lista de nume pe care veți răsturna „Prenume Prenume”, apoi faceți clic Kutools > Text > Ordine inversă a textului. Vedeți captura de ecran:

2. În Text invers caseta de dialog, selectați Spaţiu și apoi faceți clic pe OK buton. Vedeți captura de ecran:

Apoi, toate numele din lista selectată sunt rearanjate simultan.

  Dacă doriți să aveți o perioadă de încercare gratuită (30 de zile) a acestui utilitar, vă rugăm să faceți clic pentru a-l descărca, și apoi mergeți pentru a aplica operația conform pașilor de mai sus.

Legate de articole:

• Cum se schimbă sau se inversează ziua și luna datei în Excel?
• Cum se schimbă sau se schimbă textul într-o singură celulă din 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-2019 și 365. Suportă toate limbile. Implementare ușoară în întreprindere sau organizație. Funcții complete de încercare gratuită de 30 de zile. Garanție de restituire a banilor de 60 de zile.

Citeşte mai mult ... Descărcare gratuită... Cumpărare... 

---

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!

Citeşte mai mult ... Descărcare gratuită... Cumpărare...