Cum se împarte textul în coloane separate cu majuscule în Excel?

Să presupunem că aveți o serie de date pe care doriți să le împărțiți conținutul celulei în coloane separate cu litere mari, după cum se arată în următoarea captură de ecran, aveți idei bune pentru a rezolva această problemă în Excel?
Împărțiți textul în coloane separate cu majuscule cu formule
Împarte textul în coloane separate cu majuscule cu cod VBA
Împarte textul în coloane separate cu majuscule cu Kutools pentru Excel
Împărțiți textul în coloane separate cu majuscule cu formule
Dacă există doar două cuvinte în celulele dvs., următoarele formule vă ajută să finalizați această lucrare. Vă rugăm să faceți următoarele:
1. Introduceți această formulă matrice: =LEFT(A2,SMALL(FIND(CHAR(ROW(INDIRECT("65:90"))),A2&"ABCDEFGHIJKLMNOPQRSTUVWXYZ"),2)-1) (A2 este celula pe care doriți să o împărțiți cu litere mari) într-o celulă necompletată adiacentă datelor dvs., apoi apăsați Ctrl + Shift + Enter tastele împreună pentru a obține primul cuvânt, consultați captura de ecran:
2. Apoi selectați C2 și trageți mânerul de umplere în jos până la celulele pe care doriți să le aplicați această formulă, toate primele cuvinte din celulele intervalului au fost extrase simultan, vedeți captura de ecran:
3. Continuați să introduceți o altă formulă: = REPLACE (A2,1, LEN (C2), "") (A2 este celula pe care doriți să o împărțiți și C2 este celula conține primul cuvânt pe care l-ați returnat) în celula D2 și apăsați Intrați tasta pentru a obține al doilea cuvânt, vezi captura de ecran:
4. Selectați celula D2, trageți mânerul de umplere în jos în celule pentru a obține cel de-al doilea cuvânt, iar conținutul celulei din interval a fost împărțit în două coloane cu litera mare, a se vedea captura de ecran:
Împarte textul în coloane separate cu majuscule cu cod VBA
Formulele de mai sus sunt aplicate numai valorii celulei care conține două cuvinte, dacă există mai multe cuvinte într-o celulă care trebuie împărțite, puteți adăuga spații înainte de literele majuscule și apoi aplicați Textul la coloane pentru a împărți conținutul celulei în separați coloanele după spațiu.
Mai întâi, aplicați codul VBA pentru a adăuga spații înainte de litera mare pentru a separa cuvintele.
1. Țineți apăsat butonul ALT + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.
2. Clic Insera > Moduleși lipiți următorul cod în Module Fereastră.
Cod VBA: introduceți spații înaintea fiecărei litere mari într-o celulă
Function SplitWords(ByVal Str As String) As String
'updateby Extendoffice 20151128
Dim I As Integer
SplitWords = Left(Str, 1)
For I = 2 To Len(Trim(Str))
If (Asc(Mid(Str, I, 1)) > 64) And _
(Asc(Mid(Str, I, 1)) < 91) And _
(Mid(Str, I - 1, 1) <> " ") Then _
SplitWords = SplitWords & " "
SplitWords = SplitWords & Mid(Str, I, 1)
Next
End Function
3. Salvați și închideți acest cod, reveniți la foaia de lucru, vă rugăm să introduceți această formulă: = cuvinte divizate (A2) într-o celulă goală adiacentă datelor dvs., consultați captura de ecran:
4. Apoi trageți mânerul de umplere în jos în celulele pe care doriți să le aplicați această formulă, iar spațiile au fost inserate înainte de fiecare literă mare pentru a separa conținutul celulei, a se vedea captura de ecran:
5. Și apoi ar trebui să copiați și să lipiți aceste celule de formulă ca valori pentru a elimina formulele într-un alt loc sau în intervalul original.
În al doilea rând, aplicați caracteristica Text la coloană pentru a împărți conținutul celulei în coloane separate după spațiu.
6. Selectați valorile celulei pe care ați inserat spații și faceți clic pe Date > Text către coloane, la Pasul 1 din Expertul Conversia textului în coloane, Selectați delimitat opțiune, vezi captura de ecran:
7. Apoi apasa Pagina Următoare → , în Pasul 2 al vrăjitorului, verificați Spaţiu opțiune în cadrul Delimitatori secțiune, vezi captura de ecran:
8. Continuați să faceți clic Pagina Următoare → , în Pasul 3 al vrăjitorului, alegeți General opțiune în cadrul Format date coloane, apoi selectați o celulă în care doriți să puneți valorile împărțite făcând clic buton, vezi captura de ecran:
9. În cele din urmă, faceți clic pe finalizarea butonul, conținutul celulei a fost împărțit în mai multe coloane, după cum se arată în următoarea captură de ecran:
Împarte textul în coloane separate cu majuscule cu Kutools pentru Excel
Dacă aveţi Kutools pentru Excel, combinând Adăuga text și Celule divizate caracteristici, puteți face față acestei sarcini ușor și confortabil, vă rugăm să faceți următoarele:
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. |
1. Selectați datele originale pe care doriți să le împărțiți.
2. Apoi apasa Kutools > Text > Adăuga text, vezi captura de ecran:
3. În Adăuga text caseta de dialog, tastați bara de spațiu o dată sau orice alt separator de care aveți nevoie în Text caseta, apoi alegeți Prima literă este cu majuscule de la Adăugați numai la secțiune, vezi captura de ecran:
4. Apoi faceți clic pe Ok buton, iar spațiile au fost adăugate înainte de fiecare literă mare, vezi captura de ecran:
5. Și apoi puteți aplica Celule divizate utilitatea Kutools pentru Excel pentru a împărți valorile celulei în funcție de spațiu, păstrând intervalul de date selectat și apoi faceți clic pe Kutools > Merge & Split > Celule divizate, vezi captura de ecran:
6. În Celule divizate fereastră de dialog, selectați Împărțiți în coloane în temeiul Tip secțiune și verificați Spaţiu sau alți delimitatori pe care i-ați adăugat la pasul 3, consultați captura de ecran:
7. Apoi faceți clic pe Ok, și se afișează o casetă de prompt pentru a vă reaminti să selectați o celulă pentru a pune datele împărțite, vedeți captura de ecran:
8. În cele din urmă, faceți clic pe OK și veți obține rezultatul de care aveți nevoie, vedeți captura de ecran:
Descărcați și proba gratuită Kutools pentru Excel acum!
Demo: divizați textul în coloane separate cu majuscule cu Kutools pentru 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 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!







