Hoe kunt u snel een tekststring splitsen op basis van hoofdletters en kleine letters in Excel?

In Excel splitsen we tekst vaak op basis van vaste breedte of scheidingstekens met de functie Tekst naar Kolommen, maar hebt u ooit geprobeerd om tekst te splitsen op basis van hoofdletters en kleine letters? Stel dat u een lijst met gegevens heeft, en u moet ze in twee kolommen splitsen op basis van de case: één kolom bevat kleine letters en de andere bevat hoofdletters, zoals in onderstaande schermafbeelding. De functie Tekst naar Kolommen ondersteunt deze bewerking niet, maar ik kan een trucje introduceren om snel tekststrings op basis van case te splitsen in Excel.

Tekst splitsen op basis van case met VBA

Tekst splitsen in rijen/kolommen op basis van scheidingsteken met Kutools voor Excel

Tekst splitsen op basis van case met VBA

In Excel is er alleen een macrocode om snel strings te splitsen op basis van kleine letters en hoofdletters.

1. Druk op Alt + F11 toetsen om het Microsoft Visual Basic for Applications-venster te openen.

2. Klik op Invoegen > Module, en plak onderstaande code in het lege Modulescript.

VBA: String splitsen op basis van case.

Sub CamelCase()
'UpdatebyExtendoffice20160711
    Dim xRg As Range
    Dim xTxt As String
    Dim xCell As Range
    Dim xCount As Long
    On Error Resume Next
    If ActiveWindow.RangeSelection.Count > 1 Then
      xTxt = ActiveWindow.RangeSelection.AddressLocal
    Else
      xTxt = ActiveSheet.UsedRange.AddressLocal
    End If
LInput:
    Set xRg = Nothing
    Set xRg = Application.InputBox("Select a range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    If xRg.Areas.Count > 1 Then
        MsgBox "It not work in multiple selection", vbInformation, "Kutools for Excel"
        GoTo LInput
    End If
    If xRg.Columns.Count > 1 Then
        MsgBox "It only work in one column", vbInformation, "Kutools for Excel"
        GoTo LInput
    End If
    On Error Resume Next
    Application.ScreenUpdating = False
    With CreateObject("vbscript.regexp")
        .Pattern = "(\S)([A-Z]+[^A-Z])"
        .Global = True
        For Each xCell In xRg
            xCount = .Execute(xCell).Count
            If xCount Then xCell.Resize(, xCount + 1) = Split(.Replace(xCell, "$1" & Chr(1) & "$2"), Chr(1))
        Next
    End With
    Application.ScreenUpdating = True
End Sub

3. Druk op F5 toets, en er verschijnt een dialoogvenster waarin u wordt gevraagd om de teksten te selecteren die u wilt splitsen. Zie onderstaande schermafbeelding:

4. Klik op OK, en de geselecteerde teksten zijn gesplitst in twee kolommen, waarbij de ene kolom kleine letters bevat en de andere hoofdletters.

Tekst splitsen in rijen/kolommen op basis van scheidingsteken met Kutools voor Excel

In veel gevallen wilt u mogelijk een cel splitsen in meerdere rijen of kolommen op basis van een specifiek teken. In Excel kan de ingebouwde functie Tekst naar Kolommen u alleen helpen bij het direct omzetten van een cel naar kolommen, maar werkt dit niet voor rijconversie. Met Kutools voor Excel – een handig en nuttig hulpmiddel – kunt u de functie Cellen splitsen gebruiken om snel tekst om te zetten in rijen of kolommen op basis van een scheidingsteken of vaste breedte.

Na het gratis installeren van Kutools voor Excel, doe het volgende:

1. Selecteer de cel die u wilt splitsen, en klik op Kutools > Samenvoegen & Splitsen > Cellen splitsen. Zie onderstaande schermafbeelding:

2. In het Cellen splitsen dialoogvenster, selecteer het splitstype dat u wilt in de Type sectie, en ga naar de specifieke scheidingsteken die u wilt gebruiken in de Splitsen op sectie. Zie onderstaande schermafbeelding:

3. Klik op Ok, er verschijnt een dialoogvenster waarin u wordt gevraagd om een cel te selecteren om de gesplitste inhoud te plaatsen. Zie onderstaande schermafbeelding:

4. Nadat u een selectie hebt gemaakt, klik op OK, en de geselecteerde cel is gesplitst in rijen op basis van spaties. Zie onderstaande schermafbeelding: