Բաց թողնել հիմնական բովանդակությունը

Ինչպե՞ս Excel- ում տեքստը բաժանել առանձին սյունակների `մեծատառով:

փաստաթուղթը բաժանված է կապիտալով 1

Ենթադրելով, որ դուք ունեք մի շարք տվյալներ, որոնք ցանկանում եք բջջային բովանդակությունը բաժանել առանձին սյունակների մեծատառով, ինչպես ցույց է տրված հետևյալ նկարը, արդյո՞ք ունեք լավ գաղափարներ Excel- ում այս խնդիրը լուծելու համար:

Տեքստը բաժանեք առանձին սյունակների ՝ մեծատառով բանաձևերով

Տեքստը բաժանեք առանձին սյունակների ՝ մեծատառով VBA կոդով

Տեքստը բաժանեք առանձին սյունակների ՝ մեծատառով Excel- ի համար նախատեսված Kutools- ի հետ


Եթե ​​ձեր բջիջներում ընդամենը երկու բառ կա, հետևյալ բանաձևերը կօգնեն ձեզ ավարտել այս գործը: Խնդրում ենք անել հետևյալը.

1, Մուտքագրեք զանգվածի այս բանաձևը. =LEFT(A2,SMALL(FIND(CHAR(ROW(INDIRECT("65:90"))),A2&"ABCDEFGHIJKLMNOPQRSTUVWXYZ"),2)-1) (A2 այն բջիջն է, որը ցանկանում եք բաժանել մեծատառով) ձեր տվյալների կողքին գտնվող դատարկ բջիջի, ապա սեղմել Ctrl + Shift + Մուտք ստեղները միասին ՝ առաջին բառը ստանալու համար, տե՛ս նկարը.

փաստաթուղթը բաժանված է կապիտալով 2

2, Դրանից հետո ընտրեք C2, և լրացնելու բռնիչը ներքև քաշեք դեպի այն բջիջները, որոնք ցանկանում եք կիրառել այս բանաձևը, ընդգրկույթի բջիջների բոլոր առաջին բառերը միանգամից արդյունահանվել են, տե՛ս նկարը.

փաստաթուղթը բաժանված է կապիտալով 3

3, Շարունակեք մուտքագրել մեկ այլ բանաձև. = Փոխարինել (A2,1, LEN (C2), "") (A2 այն բջիջն է, որը ցանկանում եք բաժանել, և C2 է, որ բջիջը պարունակում է ձեր վերադարձած առաջին բառը) D2 բջիջում և սեղմեք Մտնել երկրորդ բառը ստանալու բանալին, տես նկարի նկարը.

փաստաթուղթը բաժանված է կապիտալով 4

4, Ընտրեք D2 բջիջը, լրացնելու բռնիչը ներքև քաշեք բջիջներ ՝ երկրորդ բառը ստանալու համար, և միջակայքի բջիջների պարունակությունը մեծատառով բաժանվել է երկու սյունակի, տես նկարի նկարը.

փաստաթուղթը բաժանված է կապիտալով 5


Վերոնշյալ բանաձևերը կիրառվում են միայն բջջային արժեքի վրա, որը պարունակում է երկու բառ, եթե բջջում կան բազմաթիվ բառեր, որոնք անհրաժեշտ է պառակտել, կարող եք բացատներ ավելացնել մեծատառերից առաջ, ապա կիրառել տեքստը սյունակների վրա ՝ բջջի պարունակությունը բաժանելու համար: ըստ տարածության առանձին սյունակների:

Նախ, կիրառեք VBA կոդ ՝ բառերն առանձնացնելու համար մեծատառից առաջ բացատներ ավելացնելու համար:

1, Պահեք պահեք ALT + F11 բացել ստեղները Microsoft Visual Basic հավելվածների համար պատուհան.

2: Սեղմեք Տեղադրել > Մոդուլներ, և տեղադրեք հետևյալ կոդը Մոդուլներ Պատուհանը:

VBA կոդ. Խցում տեղադրեք բացատներ յուրաքանչյուր մեծատառից առաջ

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, Պահեք և փակեք այս կոդը, վերադառնաք աշխատանքային թերթ, խնդրում ենք մուտքագրել այս բանաձևը. = splitwords (A2) ձեր տվյալների հարևանությամբ գտնվող դատարկ բջիջի մեջ, տես նկարի նկարը.

փաստաթուղթը բաժանված է կապիտալով 6

4, Այնուհետև լրացրեք բռնիչը ներքև դեպի այն բջիջները, որոնք ցանկանում եք կիրառել այս բանաձևը, և ​​բացերը տեղադրվել են յուրաքանչյուր մեծատառից առաջ ՝ բջիջների պարունակությունն առանձնացնելու համար:

փաստաթուղթը բաժանված է կապիտալով 7

5, Եվ ապա դուք պետք է պատճենեք և կպցրեք թեզերի բանաձևի բջիջները որպես արժեքներ ՝ բանաձևերը մեկ այլ վայրում կամ սկզբնական տիրույթում հանելու համար:

փաստաթուղթը բաժանված է կապիտալով 8

Երկրորդ, կիրառեք Text to Column հատկությունը ՝ բջիջների պարունակությունը բաժանելու համար սյունակների ըստ տարածության:

6, Ընտրեք ձեր տեղադրած տարածությունների բջջային արժեքները և կտտացրեք Ամսաթիվ > Տեքստը սյունակներում, քայլ 1-ում Փոխարկել տեքստը սյունակների մոգընտրեք Դիմակավորված տարբերակը, տես նկարի նկարը.

փաստաթուղթը բաժանված է կապիտալով 9

7. Այնուհետեւ կտտացրեք հաջորդ կոճակը, կախարդի Step2- ում, ստուգեք Տարածություն տարբերակով Սահմանազատողներ բաժին, տես նկարի նկարը.

փաստաթուղթը բաժանված է կապիտալով 10

8, Անցեք կտտացնելով հաջորդ կոճակը, կախարդի Step3- ում, ընտրեք ընդհանուր տարբերակով Սյունակի տվյալների ձևաչափ, ապա ընտրեք բջիջ, որտեղ ցանկանում եք տեղադրել պառակտված արժեքները ՝ կտտացնելով փաստաթուղթը բաժանված է կապիտալով 12 կոճակը, տես նկարի նկարը.

փաստաթուղթը բաժանված է կապիտալով 11

9, Վերջապես կտտացրեք Ավարտել կոճակը, բջջի պարունակությունը բաժանվել է բազմաթիվ սյունակների, ինչպես ցույց է տրված հետևյալ նկարը.

փաստաթուղթը բաժանված է կապիտալով 13


Եթե ​​դուք ունեք Excel- ի համար նախատեսված գործիքներ, համատեղելով իր Ավելացրեք տեքստ և Պառակտված բջիջներ առանձնահատկություններ, դուք կարող եք հեշտությամբ և հարմարավետորեն գործ ունենալ այս խնդրի հետ, խնդրում ենք կատարել հետևյալը.

Excel- ի համար նախատեսված գործիքներ : ավելի քան 300 հարմար Excel հավելվածներով, 30 օրվա ընթացքում առանց սահմանափակումների փորձեք անվճար.

1, Ընտրեք այն բնօրինակ տվյալները, որոնք ցանկանում եք բաժանել:

2. Այնուհետեւ կտտացրեք ԿուտոլսՏեքստ > Ավելացրեք տեքստ, տես նկարի նկարը.

3, Մեջ Ավելացրեք տեքստ երկխոսության տուփ, խնդրում ենք մուտքագրել տարածության տողը մեկ անգամ կամ ձեզ անհրաժեշտ ցանկացած այլ տարանջատիչ Տեքստ տուփ, ապա ընտրել 1-ին տառը մեծ է - ից Միայն ավելացնել բաժին, տես նկարի նկարը.

փաստաթուղթը բաժանված է կապիտալով 15

4. Այնուհետեւ կտտացրեք Ok կոճակը, և բացատներն ավելացվել են յուրաքանչյուր մեծատառից առաջ, տես նկարի նկարը.

փաստաթուղթը բաժանված է կապիտալով 16

5, Եվ ապա կարող եք կիրառել այն Պառակտված բջիջներ օգտակարությունը Excel- ի համար նախատեսված գործիքներ բջիջների արժեքները տարածության վրա բաժանելու համար ՝ տվյալների տիրույթը ընտրված պահելով և այնուհետև կտտացրեք Կուտոլս > Միաձուլում և պառակտում > Պառակտված բջիջներ, տես նկարի նկարը.

6, Մեջ Պառակտված բջիջներ երկխոսության տուփ, ընտրեք Բաժանել սյունակների տակ Տիպ բաժինը և ստուգել Տարածություն կամ այլ սահմանազատողներ, որոնք դուք ավելացրել եք Քայլ 3-ում, տես նկարի նկարը.

18

7. Այնուհետեւ կտտացրեք Ok, և հուշվում է արագ տուփ ՝ հիշեցնելու համար, որ բջիջ եք ընտրում պառակտված տվյալները տեղադրելու համար, տե՛ս նկարը.

փաստաթուղթը բաժանված է կապիտալով 19

8, Վերջապես կտտացրեք OK կոճակը, և դուք կստանաք ձեզ անհրաժեշտ արդյունքը, տեսեք,

փաստաթուղթը բաժանված է կապիտալով 20

Ներբեռնեք և անվճար փորձեք Kutools- ը Excel- ի համար:


Excel- ի համար նախատեսված գործիքներ. Excel- ի ավելի քան 300 հարմարավետ հավելումներով, 30 օրվա ընթացքում անվճար փորձեք առանց սահմանափակումների: Ներբեռնեք և անվճար փորձեք հիմա:

Գրասենյակի արտադրողականության լավագույն գործիքները

🤖 Kutools AI օգնականՀեղափոխություն կատարել տվյալների վերլուծության հիման վրա՝ Խելացի կատարում   |  Ստեղծեք ծածկագիր  |  Ստեղծեք հատուկ բանաձևեր  |  Վերլուծել տվյալները և ստեղծել գծապատկերներ  |  Invoke Kutools-ի գործառույթները...
Հանրաճանաչ հատկություններ: Գտեք, ընդգծեք կամ նույնականացրեք կրկնօրինակները   |  Deleteնջել դատարկ շարքերը   |  Միավորել սյունակները կամ բջիջները՝ առանց տվյալների կորստի   |   Կլոր առանց բանաձևի ...
Super Փնտրել: Բազմաթիվ չափանիշների VLookup    Բազմակի արժեք VLookup  |   VLookup բազմաթիվ թերթերում   |   Fuzzy Փնտրել ....
Ընդլայնված բացվող ցուցակ: Արագ ստեղծեք բացվող ցուցակը   |  Կախված բացվող ցուցակ   |  Բազմակի ընտրություն Drop Down ցուցակ ....
Սյունակի կառավարիչ: Ավելացրեք որոշակի քանակությամբ սյունակներ  |  Տեղափոխել սյունակները  |  Փոխարկել թաքնված սյունակների տեսանելիության կարգավիճակը  |  Համեմատեք միջակայքերը և սյունակները ...
Առանձնահատկություններ: Ցանցի կենտրոնացում   |  Դիզայնի տեսք   |   Մեծ Formula Bar    Աշխատանքային գրքույկի և թերթիկների կառավարիչ   |  Ռեսուրսների գրադարան (Ավտոմատ տեքստ)   |  Ամսաթիվ ընտրող   |  Միավորել աշխատանքային թերթերը   |  Գաղտնագրել/գաղտնազերծել բջիջները    Ուղարկեք նամակներ ըստ ցանկի   |  Սուպեր զտիչ   |   Հատուկ զտիչ (զտել թավ/շեղ/շեղված...) ...
Լավագույն 15 գործիքների հավաքածու12 Տեքստ Գործիքներ (Ավելացրեք տեքստ, Հեռացնել նիշերը, ...)   |   50+ Աղյուսակ Տեսակներ (Գանտի աղյուսակը, ...)   |   40+ Գործնական Բանաձեւեր (Հաշվարկել տարիքը ՝ ելնելով ծննդյան տարեդարձից, ...)   |   19 միացում Գործիքներ (Տեղադրեք QR կոդ, Տեղադրեք նկար ուղուց, ...)   |   12 Փոխարկում Գործիքներ (Բառեր համարներ, Արտարժույթի փոխակերպումը, ...)   |   7 Միաձուլում և պառակտում Գործիքներ (Ընդլայնված կոմբինատ տողեր, Պառակտված բջիջներ, ...)   |   ... եւ ավելին

Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար:  Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...

Նկարագրություն


Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
Comments (8)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hola! Llevo todo el dia tratando de divir palabras juntas en celdas en excel, he dado con esta pagina, pero el código VBA no me funciona, tengo entendido que =Splitwords ya no esta disponible.
Es posible que puedas ayudarme?
This comment was minimized by the moderator on the site
Formula/function works as it should now, a later amendment (#25891) fixed it - thank you so much
This comment was minimized by the moderator on the site
DanMorgan = Dan
MollieClark = Mollie
Jade, Jam, Ryan, Dummy (not his real name),Jess,Cass, Jenni and Jack all come through as Jade,Jam, etc

using Excel 2013 (company supplied)
This comment was minimized by the moderator on the site
I need some help splitting a cell. I can do it by lower case next to upper case. But if the splitting word is one capitol letter, followed by another capitol letter it won't work. Also, if there are Roman numerals involved there are problems. If there is a word, such as "McDonald" or "MacDonald" there are problems. Can you help?
This comment was minimized by the moderator on the site
This doesn't work for two of the same capital letters
This comment was minimized by the moderator on the site
Hello,
If the two words are same words, please change the first array formula to the follows:
=LEFT(A2,SMALL(FIND(CHAR(ROW(INDIRECT("65:90"))),RIGHT(A2, LEN(A2)-1)&"ABCDEFGHIJKLMNOPQRSTUVWXYZ"),1))

Please remember to press Ctrl + Shift + Enter keys together.

Hope it can help you!
This comment was minimized by the moderator on the site
Thanks for the content it really worked
This comment was minimized by the moderator on the site
Your formula fail if name is like this: JhonJhon MarkMark
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations