Hoppa till huvudinnehåll

Hur delar jag text i separata kolumner med versaler i Excel?

doc delat med kapital 1

Om du antar att du har en rad data som du vill dela cellinnehållet i separata kolumner med stora bokstäver som följande skärmdump visas, har du några bra idéer för att lösa detta problem i Excel?

Dela upp text i separata kolumner med versaler med formler

Dela upp text i separata kolumner med versaler med VBA-kod

Dela upp text i separata kolumner med versaler med Kutools för Excel


Om det bara finns två ord i dina celler hjälper följande formler dig att slutföra det här jobbet. Gör så här:

1. Ange denna matrisformel: =LEFT(A2,SMALL(FIND(CHAR(ROW(INDIRECT("65:90"))),A2&"ABCDEFGHIJKLMNOPQRSTUVWXYZ"),2)-1) (A2 är den cell som du vill dela med versaler) i en tom cell som ligger intill dina data och tryck sedan på Ctrl + Skift + Enter för att få det första ordet, se skärmdump:

doc delat med kapital 2

2. Välj sedan C2 och dra påfyllningshanteraren ner till cellerna som du vill använda denna formel, alla de första orden i intervallcellerna har extraherats på en gång, se skärmdump:

doc delat med kapital 3

3. Fortsätt med att ange en annan formel: = BYT ut (A2,1, LENN (C2), "") (A2 är cellen som du vill dela, och C2 är cellen innehåller det första ordet som du har returnerat) i cell D2 och tryck på ange nyckel för att få det andra ordet, se skärmdump:

doc delat med kapital 4

4. Välj cell D2, dra fyllningshandtaget ner till cellerna för att få det andra ordet, och cellinnehållet i intervallet har delats upp i två kolumner med versaler, se skärmdump:

doc delat med kapital 5


Ovanstående formler tillämpas endast på cellvärdet som innehåller två ord. Om det finns flera ord i en cell som behöver delas kan du lägga till mellanslag före versalerna och sedan tillämpa texten på kolumner för att dela cellinnehållet i separera kolumner efter mellanslag.

Tillämpa först VBA-kod för att lägga till mellanslag före versalen för att separera orden.

1. Håll ner ALT + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.

2. Klicka Insert > Modulernaoch klistra in följande kod i Modulerna Fönster.

VBA-kod: Infoga mellanslag före varje stor bokstav i en 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. Spara och stäng den här koden, gå tillbaka till kalkylbladet, ange denna formel: = splitwords (A2) i en tom cell intill dina data, se skärmdump:

doc delat med kapital 6

4. Dra sedan fyllningshandtaget ner till de celler som du vill tillämpa denna formel, och mellanslag har införts före varje stor bokstav för att separera cellinnehållet, se skärmdump:

doc delat med kapital 7

5. Och sedan bör du kopiera och klistra in dessa formelceller som värden för att ta bort formlerna på en annan plats eller i det ursprungliga intervallet.

doc delat med kapital 8

För det andra, använd funktionen Text to Column för att dela cellinnehållet i separata kolumner efter mellanslag.

6. Markera cellvärdena som du har infogat mellanslag och klicka på Data > Text till kolumner, i steg 1 i Konvertera text till kolumner guiden, Välj avgränsad alternativ, se skärmdump:

doc delat med kapital 9

7. Klicka sedan Nästa -knappen, i steg 2 i guiden, kontrollera Utrymme alternativet under avgränsare avsnitt, se skärmdump:

doc delat med kapital 10

8. Fortsätt klicka Nästa -knappen, i guiden Steg 3, välj Allmänt alternativet under Kolumndataformatoch välj sedan en cell där du vill placera delade värden genom att klicka doc delat med kapital 12 knapp, se skärmdump:

doc delat med kapital 11

9. Äntligen klickar du på Finish knapp har cellinnehållet delats upp i flera kolumner enligt följande skärmdump:

doc delat med kapital 13


Om du har Kutools för Excel, kombinerar dess lägga till text och Dela celler funktioner kan du hantera den här uppgiften enkelt och bekvämt, gör så här:

Kutools för Excel : med mer än 300 praktiska Excel-tillägg, gratis att prova utan begränsning på 30 dagar.

1. Välj de originaldata som du vill dela.

2. Klicka sedan Kutoolstext > lägga till text, se skärmdump:

3. I lägga till text dialogrutan, skriv mellanslag en gång eller någon annan avgränsare du behöver i text rutan och välj sedan 1: a bokstaven är versal från Lägg bara till avsnitt, se skärmdump:

doc delat med kapital 15

4. Klicka sedan på Ok knapp och mellanslag har lagts till före varje stor bokstav, se skärmdump:

doc delat med kapital 16

5. Och sedan kan du tillämpa Dela celler nytta av Kutools för Excel för att dela cellvärdena efter utrymme, hålla dataområdet valt och klicka sedan på Kutools > Slå ihop och dela > Dela celler, se skärmdump:

6. I Dela celler dialogrutan väljer du Dela upp till kolumner under Typ avsnitt och kontrollera Utrymme eller andra avgränsare som du lade till i steg 3, se skärmdump:

doc delat med kapital 18 18

7. Klicka sedan på Ok, och en snabbruta dyker upp för att påminna dig om att du väljer en cell för att placera delad data, se skärmdump:

doc delat med kapital 19

8. Äntligen klickar du på OK knappen, och du får det resultat du behöver, se skärmdump:

doc delat med kapital 20

Ladda ner och testa gratis Kutools för Excel nu!


Kutools för Excel: med mer än 300 praktiska Excel-tillägg, gratis att prova utan begränsning på 30 dagar. Ladda ner och testa gratis nu!

Bästa kontorsproduktivitetsverktyg

Populära funktioner: Hitta, markera eller identifiera dubbletter   |  Ta bort tomma rader   |  Kombinera kolumner eller celler utan att förlora data   |   Rund utan formel ...
Superuppslag: Flera kriterier VLookup    VLookup med flera värden  |   VSök över flera ark   |   Fuzzy Lookup ....
Avancerad rullgardinslista: Skapa snabbt en rullgardinslista   |  Beroende rullgardinslista   |  Flervals-rullgardinslista ....
Kolumnhanterare: Lägg till ett specifikt antal kolumner  |  Flytta kolumner  |  Växla synlighetsstatus för dolda kolumner  |  Jämför intervall och kolumner ...
Utvalda funktioner: Rutnätsfokus   |  Designvy   |   Stor formelbar    Arbetsbok & Bladhanterare   |  Resursbibliotek (Automatisk text)   |  Datumväljare   |  Kombinera arbetsblad   |  Kryptera/Dekryptera celler    Skicka e-postmeddelanden efter lista   |  Superfilter   |   Specialfilter (filtrera fet/kursiv/genomstruken...) ...
Topp 15 verktygssatser12 text verktyg (lägga till text, Ta bort tecken, ...)   |   50 + Diagram Typer (Gantt Chart, ...)   |   40+ Praktiskt Formler (Beräkna ålder baserat på födelsedag, ...)   |   19 Införande verktyg (Infoga QR-kod, Infoga bild från sökväg, ...)   |   12 Konvertering verktyg (Siffror till ord, Valutaväxling, ...)   |   7 Slå ihop och dela verktyg (Avancerade kombinera rader, Dela celler, ...)   |   ... och mer

Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid.  Klicka här för att få den funktion du behöver mest...

kte-flik 201905


Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare

  • Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
  • Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
  • Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!
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