Skip i'r prif gynnwys

Sut i rannu testun yn golofnau ar wahân yn ôl priflythyren yn Excel?

doc wedi'i rannu â chyfalaf 1

Gan dybio, mae gennych chi ystod o ddata rydych chi am rannu cynnwys y gell yn golofnau ar wahân â'r briflythyren fel y dangosir y screenshot canlynol, a oes gennych chi unrhyw syniadau da i ddatrys y broblem hon yn Excel?

Rhannwch destun yn golofnau ar wahân trwy briflythyren gyda fformwlâu

Rhannwch destun yn golofnau ar wahân trwy briflythyren gyda chod VBA

Rhannwch y testun yn golofnau ar wahân yn ôl prif lythyren gyda Kutools ar gyfer Excel


Os mai dim ond dau air sydd yn eich celloedd, mae'r fformwlâu canlynol yn eich helpu i orffen y swydd hon. Gwnewch fel a ganlyn:

1. Rhowch y fformiwla arae hon: =LEFT(A2,SMALL(FIND(CHAR(ROW(INDIRECT("65:90"))),A2&"ABCDEFGHIJKLMNOPQRSTUVWXYZ"),2)-1) (A2 yw'r gell rydych chi am ei rhannu â phriflythyren) i mewn i gell wag sy'n gyfagos i'ch data, ac yna pwyswch Ctrl + Shift + Enter allweddi gyda'i gilydd i gael y gair cyntaf, gweler y screenshot:

doc wedi'i rannu â chyfalaf 2

2. Yna dewiswch C2, a llusgwch y ddolen llenwi i lawr i'r celloedd rydych chi am gymhwyso'r fformiwla hon, mae holl eiriau cyntaf y celloedd amrediad wedi'u tynnu ar unwaith, gweler y screenshot:

doc wedi'i rannu â chyfalaf 3

3. Ewch ymlaen i nodi fformiwla arall: = LLEIHAU (A2,1, LEN (C2), "") (A2 yw'r gell rydych chi am ei rhannu, a C2 ydy'r gell yn cynnwys y gair cyntaf i chi ei ddychwelyd) i gell D2, a gwasgwch Rhowch allwedd i gael yr ail air, gweler y screenshot:

doc wedi'i rannu â chyfalaf 4

4. Dewiswch gell D2, llusgwch y ddolen llenwi i lawr i'r celloedd i gael yr ail air, ac mae cynnwys celloedd yr ystod wedi'i rannu'n ddwy golofn gan y briflythyren, gweler y screenshot:

doc wedi'i rannu â chyfalaf 5


Mae'r fformwlâu uchod yn cael eu cymhwyso i werth y gell sy'n cynnwys dau air yn unig, os oes angen rhannu geiriau lluosog mewn cell, gallwch ychwanegu bylchau cyn y priflythrennau, ac yna defnyddio'r Testun i Golofnau i rannu cynnwys y gell yn colofnau ar wahân yn ôl gofod.

Yn gyntaf, cymhwyswch god VBA i ychwanegu bylchau cyn y briflythyren i wahanu'r geiriau.

1. Daliwch i lawr y ALT + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Cliciwch Mewnosod > Modiwlau, a gludwch y cod canlynol yn y Modiwlau Ffenestr.

Cod VBA: Mewnosodwch fannau cyn pob priflythyren mewn cell

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. Cadw a chau'r cod hwn, ewch yn ôl i'r daflen waith, nodwch y fformiwla hon: = holl eiriau (A2) i mewn i gell wag wrth ymyl eich data, gweler y screenshot:

doc wedi'i rannu â chyfalaf 6

4. Yna llusgwch y handlen llenwi i lawr i'r celloedd rydych chi eisiau defnyddio'r fformiwla hon, ac mae'r lleoedd wedi'u mewnosod cyn pob priflythyren i wahanu cynnwys y gell, gweler y screenshot:

doc wedi'i rannu â chyfalaf 7

5. Ac yna dylech chi gopïo a gludo celloedd fformiwla traethodau ymchwil fel gwerthoedd i gael gwared ar y fformwlâu mewn man arall neu'r ystod wreiddiol.

doc wedi'i rannu â chyfalaf 8

Yn ail, cymhwyswch y nodwedd Testun i Golofn i rannu cynnwys y gell yn golofnau ar wahân â'r gofod.

6. Dewiswch y gwerthoedd celloedd rydych chi wedi'u mewnosod bylchau, a chlicio Dyddiad > Testun i Colofnau, yng Ngham 1 y Trosi Deunydd Testun i Colofnau, dewiswch Wedi'i ddosbarthu opsiwn, gweler y screenshot:

doc wedi'i rannu â chyfalaf 9

7. Yna cliciwch Digwyddiadau botwm, yng Ngham 2 y dewin, gwiriwch Gofod opsiwn o dan y Amffinyddion adran, gweler y screenshot:

doc wedi'i rannu â chyfalaf 10

8. Ewch ymlaen i glicio Digwyddiadau botwm, yng Ngham 3 y dewin, dewiswch cyffredinol opsiwn o dan y Fformat data colofn, ac yna dewiswch gell lle rydych chi am roi'r gwerthoedd hollt trwy glicio doc wedi'i rannu â chyfalaf 12 botwm, gweler y screenshot:

doc wedi'i rannu â chyfalaf 11

9. O'r diwedd, cliciwch Gorffen botwm, mae cynnwys y gell wedi'i rannu'n golofnau lluosog fel y dangosir y screenshot canlynol:

doc wedi'i rannu â chyfalaf 13


Os oes gennych Kutools ar gyfer Excel, gan gyfuno ei Ychwanegu Testun ac Celloedd Hollt nodweddion, gallwch ddelio â'r dasg hon yn hawdd ac yn gyffyrddus, gwnewch fel a ganlyn:

Kutools ar gyfer Excel : gyda mwy na 300 o ychwanegiadau Excel defnyddiol, am ddim i geisio heb unrhyw gyfyngiad mewn 30 diwrnod.

1. Dewiswch y data gwreiddiol rydych chi am ei rannu.

2. Yna cliciwch KutoolsTestun > Ychwanegu Testun, gweler y screenshot:

3. Yn y Ychwanegu Testun blwch deialog, teipiwch y bar gofod unwaith neu unrhyw wahanydd arall sydd ei angen arnoch chi yn y Testun blwch, ac yna dewis Mae'r llythyren gyntaf yn uwch oddi wrth y Dim ond ychwanegu at adran, gweler y screenshot:

doc wedi'i rannu â chyfalaf 15

4. Yna cliciwch Ok botwm, ac mae lleoedd wedi'u hychwanegu cyn pob priflythyren, gweler y screenshot:

doc wedi'i rannu â chyfalaf 16

5. Ac yna gallwch chi gymhwyso'r Celloedd Hollt cyfleustodau Kutools ar gyfer Excel i rannu gwerthoedd y celloedd yn ôl gofod, gan gadw'r ystod ddata wedi'i dewis ac yna cliciwch Kutools > Uno a Hollti > Celloedd Hollt, gweler y screenshot:

6. Yn y Celloedd Hollt blwch deialog, dewiswch Hollti i Golofnau O dan y math adran, a gwirio Gofod neu amffinyddion eraill a ychwanegwyd gennych yng Ngham 3, gweler y screenshot:

doc wedi'i rannu â chyfalaf 18 18

7. Yna cliciwch Ok, ac mae blwch prydlon yn cael ei popio allan i'ch atgoffa i ddewis cell i roi'r data hollt, gweler y screenshot:

doc wedi'i rannu â chyfalaf 19

8. O'r diwedd, cliciwch OK botwm, a byddwch yn cael y canlyniad sydd ei angen arnoch, gweler y screenshot:

doc wedi'i rannu â chyfalaf 20

Dadlwythwch a threial am ddim Kutools ar gyfer Excel Nawr !


Kutools ar gyfer Excel: gyda mwy na 300 o ychwanegiadau Excel defnyddiol, am ddim i geisio heb unrhyw gyfyngiad mewn 30 diwrnod. Dadlwythwch a threial am ddim Nawr!

Offer Cynhyrchiant Swyddfa Gorau

🤖 Kutools AI Aide: Chwyldro dadansoddi data yn seiliedig ar: Cyflawniad Deallus   |  Cynhyrchu Cod  |  Creu Fformiwlâu Personol  |  Dadansoddi Data a Chynhyrchu Siartiau  |  Invoke Swyddogaethau Kutools...
Nodweddion Poblogaidd: Darganfod, Amlygu neu Adnabod Dyblygiadau   |  Dileu Rhesi Gwag   |  Cyfuno Colofnau neu Gelloedd heb Colli Data   |   Rownd heb Fformiwla ...
Super-edrych: VLookup Meini Prawf Lluosog    VLookup Gwerth Lluosog  |   VLookup Ar Draws Taflenni Lluosog   |   Edrych Niwlog ....
Rhestr gwympo Uwch: Creu Rhestr Gollwng yn Gyflym   |  Rhestr Gollwng Dibynnol   |  Rhestr Gollwng Aml-ddewis ....
Rheolwr Colofn: Ychwanegu Nifer Penodol o Golofnau  |  Symud Colofnau  |  Toglo Statws Gwelededd Colofnau Cudd  |  Cymharwch Ystodau a Cholofnau ...
Nodweddion dan Sylw: Ffocws ar y Grid   |  Golwg Dylunio   |   Bar Fformiwla Mawr    Rheolwr Llyfr Gwaith a Thaflen   |  Llyfrgell Adnoddau (Testun Auto)   |  Dewiswr Dyddiad   |  Cyfuno Taflenni Gwaith   |  Amgryptio/Dadgryptio Celloedd    Anfon E-byst trwy Restr   |  Hidlo Super   |   Hidlo Arbennig (hidlo mewn print trwm/italig/strikethrough...) ...
15 Set Offer Gorau12 Testun offer (Ychwanegu Testun, Dileu Cymeriadau,...)   |   50 + Siart Mathau (Siart Gantt,...)   |   40+ Ymarferol Fformiwlâu (Cyfrifwch oedran yn seiliedig ar ben-blwydd,...)   |   19 mewnosod offer (Mewnosod Cod QR, Mewnosod Llun o'r Llwybr,...)   |   12 Trosi offer (Rhifau i Eiriau, Trosi arian cyfred,...)   |   7 Uno a Hollti offer (Rhesi Cyfuno Uwch, Celloedd Hollt,...)   |   ... a mwy

Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer Excel Yn Cynnig Dros 300 o Nodweddion Uwch i Hybu Cynhyrchiant ac Arbed Amser.  Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...

Disgrifiad


Mae Office Tab yn dod â rhyngwyneb Tabbed i Office, ac yn Gwneud Eich Gwaith yn Haws o lawer

  • Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
  • Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
  • Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
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