Tip: andere talen zijn Google-Vertaald. Je kunt het English versie van deze link.
Log in
x
or
x
x
Registreren
x

or

Hoe splits je tekst in hoofdletters in afzonderlijke kolommen in Excel?

doc gedeeld door hoofdletter 1

Stel dat je een bereik van gegevens hebt dat je de celinhoud in de afzonderlijke kolommen wilt splitsen door de hoofdletter zoals de volgende schermafbeelding laat zien, heb je goede ideeën om dit probleem in Excel op te lossen?

Splits tekst in afzonderlijke kolommen per hoofdletter met formules

Splits tekst in afzonderlijke kolommen op hoofdletter met VBA-code

Splits tekst in afzonderlijke kolommen per hoofdletter met Kutools voor Excel



Als er slechts twee woorden in uw cellen staan, helpen de volgende formules u om deze taak af te maken. Ga als volgt te werk:

1. Voer deze matrixformule in: =LEFT(A2,SMALL(FIND(CHAR(ROW(INDIRECT("65:90"))),A2&"ABCDEFGHIJKLMNOPQRSTUVWXYZ"),2)-1) (A2 is de cel die u wilt splitsen op hoofdletter) in een lege cel naast uw gegevens en druk vervolgens op Ctrl + Shift + Enter toetsen samen om het eerste woord te krijgen, zie screenshot:

doc gedeeld door hoofdletter 2

2. Selecteer vervolgens C2 en sleep de vulgreep naar de cellen die u deze formule wilt toepassen, alle eerste woorden van de bereikcellen zijn in één keer geëxtraheerd, zie screenshot:

doc gedeeld door hoofdletter 3

3. Ga door met het invoeren van een andere formule: = REPLACE (A2,1, LEN (C2), "") (A2 is de cel die u wilt splitsen, en C2 is de cel bevat het eerste woord dat u hebt teruggestuurd) in cel D2, en druk op invoeren sleutel om het tweede woord te krijgen, zie screenshot:

doc gedeeld door hoofdletter 4

4. Selecteer cel D2, sleep de vulgreep omlaag naar de cellen om het tweede woord te krijgen en de celinhoud van het bereik is gesplitst in twee kolommen door de hoofdletter, zie screenshot:

doc gedeeld door hoofdletter 5


De bovenstaande formules worden alleen toegepast op de celwaarde die twee woorden bevat, als er meerdere woorden in een cel moeten worden gesplitst, kunt u spaties vóór de hoofdletters toevoegen en vervolgens de tekst naar kolommen toepassen om de celinhoud op te splitsen in aparte kolommen door de spatie.

Ten eerste, pas VBA-code toe om spaties toe te voegen vóór de hoofdletter om de woorden te scheiden.

1. Houd de toets ingedrukt ALT + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.

2. Klikken bijvoegsel > moduleen plak de volgende code in de module Venster.

VBA-code: voeg spaties in vóór elke hoofdletter in een cel

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. Bewaar en sluit deze code, ga terug naar het werkblad, voer deze formule in: = Splitwords (A2) in een lege cel naast uw gegevens, zie screenshot:

doc gedeeld door hoofdletter 6

4. Sleep vervolgens de vulgreep naar de cellen die u deze formule wilt toepassen en de spaties zijn vóór elke hoofdletter ingevoegd om de inhoud van de cel te scheiden, zie screenshot:

doc gedeeld door hoofdletter 7

5. En dan zou u formulecellen moeten kopiëren en plakken als waarden om de formules op een andere plaats of in het originele bereik te verwijderen.

doc gedeeld door hoofdletter 8

Ten tweede past u de functie Tekst naar kolom toe om de inhoud van de cel in de afzonderlijke kolommen op te splitsen.

6. Selecteer de celwaarden waarin u spaties hebt ingevoegd en klik op Data > Tekst naar kolommen, in Step1 van de Wizard Tekst naar kolommen converterenselecteer afgebakend optie, zie screenshot:

doc gedeeld door hoofdletter 9

7. Dan klikken volgende knop, in Step2 van de wizard, vink aan Ruimte optie onder de delimiters sectie, zie screenshot:

doc gedeeld door hoofdletter 10

8. Blijf klikken volgende knop, kies in Step3 van de wizard Algemeen optie onder de Kolom gegevensformaaten selecteer vervolgens een cel waarin u de splitsingswaarden wilt plaatsen door op te klikken doc gedeeld door hoofdletter 12 knop, zie screenshot:

doc gedeeld door hoofdletter 11

9. Klik ten slotte op afwerking knop, de inhoud van de cel is opgesplitst in meerdere kolommen zoals het volgende screenshot is getoond:

doc gedeeld door hoofdletter 13


Als je Kutools for Excel, het combineren van zijn toe te voegen tekst en Gespleten cellen functies kunt u gemakkelijk en comfortabel met deze taak omgaan, doe dit als volgt:

Kutools for Excel : met meer dan 300 handige Excel-invoegtoepassingen, gratis om zonder beperking te proberen in 60-dagen.

1. Selecteer de originele gegevens die u wilt splitsen.

2. Dan klikken Kutools > Tekst > toe te voegen tekstzie screenshot:

doc gedeeld door hoofdletter 14

3. In de toe te voegen tekst dialoogvenster, typ de spatiebalk een keer of een ander scheidingsteken dat u nodig hebt in de Tekst in en kies vervolgens 1 st letter is hoofdletter van de Alleen toevoegen aan sectie, zie screenshot:

doc gedeeld door hoofdletter 15

4. Dan klikken Ok knop en spaties zijn toegevoegd vóór elke hoofdletter, zie screenshot:

doc gedeeld door hoofdletter 16

5. En dan kunt u de Gespleten cellen nut van Kutools for Excel om de celwaarden op te splitsen per spatie, het gegevensbereik geselecteerd te houden en klik vervolgens op Kutools > Tekst > Gespleten cellenzie screenshot:

doc gedeeld door hoofdletter 17

6. In de Gespleten cellen dialoogvenster, selecteer Splitsen naar kolommen onder de Type Woning sectie en vink aan Ruimte of andere scheidingstekens die u in stap 3 hebt toegevoegd, zie screenshot:

doc gedeeld door hoofdletter 18 18

7. Dan klikken Oken er verschijnt een promptvak om u eraan te herinneren een cel te selecteren om de gesplitste gegevens te plaatsen, zie screenshot:

doc gedeeld door hoofdletter 19

8. Klik ten slotte op OK knop, en je krijgt het resultaat dat je nodig hebt, zie screenshot:

doc gedeeld door hoofdletter 20

Download en proef Kutools nu voor Excel!


Kutools for Excel: met meer dan 200 handige Excel-add-ins, gratis om zonder beperking in 60-dagen te proberen. Download en gratis proef nu!



Aanbevolen productiviteitstools voor Excel

Kutools voor Excel helpt u altijd om uw werk voor de tijd af te maken en uzelf te onderscheiden van een menigte

  • Meer dan 300 krachtige geavanceerde functies, ontworpen voor 1500-werkscenario's, verhoging van de productiviteit met 70%, geeft u meer tijd om voor uw gezin te zorgen en van het leven te genieten.
  • U hoeft niet langer formules en VBA-codes te onthouden, maar uw hersenen rust vanaf nu.
  • Word een Excel-expert in 3 minuten, gecompliceerde en herhaalde bewerkingen kunnen in seconden worden uitgevoerd,
  • Verminder dagelijks duizenden toetsenbord- en muisbewerkingen, zeg nu tot ziens tegen beroepsziekten.
  • 110,000 zeer effectieve mensen en 300 + keuze van wereldberoemde bedrijven.
  • 60-day full features free trial. 60-dagen geld-teruggaranties. 2 jaar gratis upgrade en ondersteuning.

Brengt browsen met tabbladen en bewerken naar Microsoft Office, veel krachtiger dan de tabbladen van de browser

  • Office-tabblad is ontworpen voor Word, Excel, PowerPoint en andere Office-toepassingen: Publisher, Access, Visio en Project.
  • Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster, in plaats van in nieuwe vensters.
  • Verhoogt uw productiviteit met 50% en verlaagt dagelijks honderden muisklikken voor u!
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    guest · 10 months ago
    This doesn't work for two of the same capital letters
    • To post as a guest, your comment is unpublished.
      skyyang · 10 months ago
      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!
  • To post as a guest, your comment is unpublished.
    sdf · 2 years ago
    Thanks for the content it really worked
  • To post as a guest, your comment is unpublished.
    Tom · 2 years ago
    Your formula fail if name is like this:

    JhonJhon
    MarkMark