Ugrás a tartalomra

Hogyan oszthatja szét a szöveget külön oszlopokba nagybetűvel az Excelben?

tőke felosztva tőkével 1

Ha feltételezzük, hogy van egy adattartalma, amelyet a cellatartalom nagy oszlopokkal külön oszlopokra osztására szeretne, az alábbi képernyőképen látható módon, van-e jó ötlete a probléma megoldására az Excelben?

A szöveget külön oszlopokra bontsa nagybetűkkel képletekkel

A szöveget külön oszlopokra kell osztani nagybetűvel, VBA kóddal

Ossza fel a szöveget külön oszlopokra nagybetűvel a Kutools for Excel segítségével


Ha csak két szó van a celláiban, a következő képletek segítenek ennek a feladatnak a befejezésében. Kérjük, tegye a következőket:

1. Írja be ezt a tömbképletet: =LEFT(A2,SMALL(FIND(CHAR(ROW(INDIRECT("65:90"))),A2&"ABCDEFGHIJKLMNOPQRSTUVWXYZ"),2)-1) (A2 az a cella, amelyet nagybetűvel kíván felosztani) egy üres cellává, amely az adatok mellett található, majd nyomja meg a gombot Ctrl + Shift + Enter gombok együtt az első szó megszerzéséhez, lásd a képernyőképet:

tőke felosztva tőkével 2

2. Ezután válassza a C2 elemet, és húzza lefelé a kitöltő fogantyút azokra a cellákra, amelyeken alkalmazni szeretné ezt a képletet. A tartománycella összes első szavát egyszerre kivonták, lásd a képernyőképet:

tőke felosztva tőkével 3

3. Adjon meg egy másik képletet: = KICSERÉLÉS (A2,1, LEN (C2), "") (A2 az a cella, amelyet fel akarsz osztani, és C2 a cella tartalmazza az első szót, amelyet visszatért) a D2 cellába, és nyomja meg a gombot belép kulcs a második szó megszerzéséhez, lásd a képernyőképet:

tőke felosztva tőkével 4

4. Válassza ki a D2 cellát, húzza le a kitöltő fogantyút a cellákra a második szó megszerzéséhez, és a tartomány cellatartalmát két oszlopra osztotta a nagybetű, lásd a képernyőképet:

tőke felosztva tőkével 5


A fenti képleteket csak a két szót tartalmazó cellaértékre alkalmazzák. Ha több szó van egy cellában, amelyet fel kell osztani, szóközöket adhat a nagybetűk elé, majd a Szöveg oszlopokra alkalmazhatja a cella tartalmának felosztását külön oszlopok szóközzel.

Először alkalmazza a VBA kódot szóközök hozzáadására a nagybetű előtt a szavak elválasztására.

1. Tartsa lenyomva a ALT + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.

2. Kattints betétlap > Modulok, és illessze be a következő kódot a Modulok Ablak.

VBA-kód: Helyezzen szóközt a cellák minden nagybetűje elé

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. Mentse el és zárja be ezt a kódot, menjen vissza a munkalapra, írja be ezt a képletet: = splitwords (A2) az adatok melletti üres cellába, lásd a képernyőképet:

tőke felosztva tőkével 6

4. Ezután húzza lefelé a kitöltő fogantyút azokra a cellákra, amelyeken alkalmazni szeretné ezt a képletet, és a szóközöket minden nagybetű elé beillesztették a cella tartalmának elválasztására, lásd a képernyőképet:

tőke felosztva tőkével 7

5. Ezután át kell másolnia és be kell illesztenie a tézisek celláit értékekként, hogy eltávolítsa a képleteket egy másik helyen vagy az eredeti tartományban.

tőke felosztva tőkével 8

Másodszor, alkalmazza a Szöveg oszlopba funkciót, hogy a cellatartalmat a szóközzel külön oszlopokra oszthassa.

6. Jelölje ki a beillesztett szóközökkel rendelkező cellaértékeket, majd kattintson a gombra dátum > Szöveg oszlopokba, az 1. lépésben Szöveg konvertálása oszlopok varázslóváválassza a Határolójel opció, lásd a képernyőképet:

tőke felosztva tőkével 9

7. Ezután kattintson Következő gombra, a varázsló 2. lépésében ellenőrizze Hely lehetőség a Elhatárolók szakasz, lásd a képernyőképet:

tőke felosztva tőkével 10

8. Kattintson a gombra Következő gombra, a varázsló 3. lépésében válassza a lehetőséget általános lehetőség a Oszlop adatformátuma, majd kattintson arra a cellára, ahová az osztott értékeket be szeretné helyezni tőke felosztva tőkével 12 gomb, lásd a képernyőképet:

tőke felosztva tőkével 11

9. Végül kattintson befejez gombra, a cella tartalma több oszlopra lett felosztva az alábbi képernyőkép szerint:

tőke felosztva tőkével 13


Ha van Kutools az Excel számára, ötvözve annak Szöveg hozzáadása és a Hasított sejtek funkciókkal könnyen és kényelmesen kezelheti ezt a feladatot, kérjük, tegye a következőket:

Kutools az Excel számára : több mint 300 praktikus Excel-bővítménnyel, ingyenesen, korlátozás nélkül, 30 nap alatt kipróbálható.

1. Válassza ki a felosztani kívánt eredeti adatokat.

2. Ezután kattintson Kutoolsszöveg > Szöveg hozzáadása, lásd a képernyőképet:

3. Az Szöveg hozzáadása párbeszédpanelt, kérjük, írja be egyszer a szóközt vagy bármely más elválasztót szöveg mezőbe, majd válassza a lehetőséget Az első betű nagybetű tól Csak add hozzá szakasz, lásd a képernyőképet:

tőke felosztva tőkével 15

4. Ezután kattintson Ok gomb, és szóközök kerültek minden egyes nagybetű elé, lásd a képernyőképet:

tőke felosztva tőkével 16

5. És akkor alkalmazhatja a Hasított sejtek hasznossága Kutools az Excel számára a cellaértékek szóközzel történő felosztásához, az adattartomány kiválasztva tartásával, majd kattintson Kutools > Egyesítés és felosztás > Hasított sejtek, lásd a képernyőképet:

6. Az Hasított sejtek párbeszédpanelen válassza ki Oszlopokra osztás alatt a típus szakaszban, és ellenőrizze Hely vagy más határoló, amelyet a 3. lépésben adott hozzá, lásd a képernyőképet:

tőke felosztva tőkével 18 18

7. Ezután kattintson Ok, és megjelenik egy felszólító doboz, amely emlékezteti Önt, hogy válasszon egy cellát az osztott adatok elhelyezéséhez, lásd a képernyőképet:

tőke felosztva tőkével 19

8. Végül kattintson OK gombra, és megkapja a kívánt eredményt, lásd a képernyőképet:

tőke felosztva tőkével 20

Töltse le és ingyenes próbaverziója a Kutools for Excel programhoz most!


Kutools az Excel számára: több mint 300 praktikus Excel-bővítménnyel, ingyenesen, korlátozás nélkül, 30 nap alatt kipróbálható. Töltse le és ingyenes próbaverziót most!

A legjobb irodai hatékonyságnövelő eszközök

Népszerű szolgáltatások: Ismétlődések keresése, kiemelése vagy azonosítása   |  Üres sorok törlése   |  Oszlopok vagy cellák kombinálása adatvesztés nélkül   |   Kerek Formula nélkül ...
Szuper keresés: Több kritérium VLookup    Többértékű VLookup  |   VLookup több munkalapon   |   Fuzzy Lookup ....
Speciális legördülő lista: Gyors legördülő lista létrehozása   |  Függő legördülő lista   |  Többszörösen válassza ki a legördülő listát ....
Oszlopkezelő: Adjon meg egy adott számú oszlopot  |  Oszlopok mozgatása  |  Kapcsolja be a Rejtett oszlopok láthatósági állapotát  |  Tartományok és oszlopok összehasonlítása ...
Kiemelt funkciók: Rács fókusz   |  Design nézet   |   Nagy Formula bár    Munkafüzet és lapkezelő   |  Erőforrás-könyvtár (Auto szöveg)   |  Dátumválasztó   |  Kombinálja a munkalapokat   |  Cellák titkosítása/dekódolása    E-mailek küldése listánként   |  Szuper szűrő   |   Speciális szűrő (félkövér/dőlt/áthúzott szűrés...) ...
A 15 legjobb eszközkészlet12 szöveg Eszközök (Szöveg hozzáadása, Karakterek eltávolítása,...)   |   50 + Táblázatos Típusai (Gantt-diagram,...)   |   40+ Praktikus képletek (Számolja ki az életkort a születésnap alapján,...)   |   19 beszúrás Eszközök (Helyezze be a QR-kódot, Kép beszúrása az útvonalból,...)   |   12 Átalakítás Eszközök (Számok szavakig, Valuta átváltás,...)   |   7 Egyesítés és felosztás Eszközök (Haladó kombinált sorok, Hasított sejtek,...)   |   ... és több

Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz.  Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...

kte lap 201905


Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját

  • Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
  • Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
  • 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!
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