Hoe tekst in Excel met een hoofdletter in afzonderlijke kolommen te splitsen?
Stel dat u een reeks gegevens heeft waarvan u de celinhoud in afzonderlijke kolommen wilt splitsen met de hoofdletter, zoals in de volgende schermafbeelding wordt getoond, heeft u dan goede ideeën om dit probleem in Excel op te lossen?
Splits tekst in afzonderlijke kolommen met een hoofdletter met formules
Splits tekst in afzonderlijke kolommen met een hoofdletter met VBA-code
Splits tekst in afzonderlijke kolommen met een hoofdletter met Kutools voor Excel
Splits tekst in afzonderlijke kolommen met een hoofdletter met formules
Als er maar twee woorden in uw cellen staan, helpen de volgende formules u om deze klus te klaren. 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 met een hoofdletter wilt splitsen) in een lege cel naast uw gegevens, en druk vervolgens op Ctrl + Shift + Enter toetsen samen om het eerste woord te krijgen, zie screenshot:
2. Selecteer vervolgens C2 en sleep de vulgreep naar de cellen waarop u deze formule wilt toepassen, alle eerste woorden van de bereikcellen zijn in één keer geëxtraheerd, zie screenshot:
3. Ga door met het invoeren van een andere formule: = VERVANGEN (A2,1, LEN (C2), "") (A2 is de cel die u wilt splitsen, en C2 is de cel het eerste woord bevat dat u hebt geretourneerd) in cel D2 en druk op Enter sleutel om het tweede woord te krijgen, zie screenshot:
4. Selecteer cel D2, sleep de vulgreep naar de cellen om het tweede woord te krijgen, en de celinhoud van het bereik is met de hoofdletter in twee kolommen opgesplitst, zie screenshot:
Splits tekst in afzonderlijke kolommen met een hoofdletter met VBA-code
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 voor de hoofdletters toevoegen en vervolgens de tekst op kolommen toepassen om de celinhoud in te splitsen scheid kolommen per spatie.
Pas eerst VBA-code toe om spaties toe te voegen vóór de hoofdletter om de woorden te scheiden.
1. Houd de ALT + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.
2. Klikken Invoegen > Moduleen plak de volgende code in het Module Venster.
VBA-code: voeg spaties in voor 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: = splitswoorden (A2) in een lege cel naast uw gegevens, zie screenshot:
4. Sleep vervolgens de vulgreep omlaag naar de cellen waarop u deze formule wilt toepassen, en de spaties zijn vóór elke hoofdletter ingevoegd om de celinhoud te scheiden, zie screenshot:
5. En dan moet u deze formulecellen kopiëren en plakken als waarden om de formules op een andere plaats of in het oorspronkelijke bereik te verwijderen.
Ten tweede past u de functie Tekst naar kolom toe om de celinhoud in afzonderlijke kolommen per spatie te splitsen.
6. Selecteer de celwaarden waarin u spaties hebt ingevoegd en klik op Data > Tekst naar kolommen, in stap 1 van het Wizard Tekst naar kolommen converterenselecteer afgebakend optie, zie screenshot:
7. Dan klikken Volgende vink in stap 2 van de wizard aan Tussenruimte optie onder de delimiters sectie, zie screenshot:
8. Blijf klikken Volgende knop, kies in stap 3 van de wizard Algemeen optie onder de Kolom data formaaten selecteer vervolgens een cel waarin u de splitsingswaarden wilt plaatsen door op te klikken knop, zie screenshot:
9. Klik ten slotte op Finish knop, is de celinhoud opgesplitst in meerdere kolommen zoals in het volgende screenshot wordt getoond:
Splits tekst in afzonderlijke kolommen met een hoofdletter met Kutools voor Excel
Als je Kutools for Excel, een combinatie van zijn toe te voegen tekst en Gespleten cellen functies, kunt u deze taak gemakkelijk en comfortabel uitvoeren, doe dit als volgt:
Kutools for Excel : met meer dan 300 handige Excel-invoegtoepassingen, gratis te proberen zonder beperking in 30 dagen. |
1. Selecteer de originele data die u wilt splitsen.
2. Dan klikken Kutools > Tekst > toe te voegen tekst, zie screenshot:
3. In de toe te voegen tekst dialoogvenster, typ de spatiebalk een keer of een ander scheidingsteken dat u nodig hebt in het Tekst box en kies vervolgens De eerste letter is een hoofdletter van het Alleen toevoegen aan sectie, zie screenshot:
4. Dan klikken Ok knop, en spaties zijn toegevoegd voor elke hoofdletter, zie screenshot:
5. En dan kun je de Gespleten cellen nut van Kutools for Excel om de celwaarden op spatie te splitsen, waarbij u het gegevensbereik geselecteerd houdt en klik vervolgens op Kutools > Samenvoegen en splitsen > Gespleten cellen, zie screenshot:
6. In de Gespleten cellen dialoogvenster, selecteer Splitsen in kolommen onder de Type sectie en controleer Tussenruimte of andere scheidingstekens die u in stap 3 hebt toegevoegd, zie screenshot:
7. Dan klikken Ok, en er verschijnt een promptvenster om u eraan te herinneren een cel te selecteren om de gesplitste gegevens te plaatsen, zie screenshot:
8. Klik ten slotte op OK knop, en je krijgt het resultaat dat je nodig hebt, zie screenshot:
Download en gratis proef Kutools voor Excel nu!
Demo: splits tekst in afzonderlijke kolommen per hoofdletter met Kutools voor Excel
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, 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 vermindert honderden muisklikken voor u elke dag!