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
Împărțiți textul în coloane separate cu majuscule Kutools for 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:
Împărțiți textul în coloane separate cu majuscule Kutools for Excel
Dacă aveţi Kutools for 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 for 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 for 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ărcare și încercare gratuită Kutools for Excel Acum!
Demo: Împărțiți textul în coloane separate cu majuscule Kutools for Excel
Cele mai bune instrumente de productivitate de birou
Îmbunătățiți-vă abilitățile Excel cu Kutools for Excelși experimentați eficiența ca niciodată înainte. Kutools for Excel Oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp. Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...
Office Tab Aduce interfața cu file la 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!








