Comment diviser rapidement une chaîne de texte par casse dans Excel ?

Dans Excel, nous divisons généralement du texte par largeur fixe ou délimiteur avec la fonction Texte en Colonnes. Mais avez-vous déjà essayé de diviser un texte selon les majuscules et minuscules ? Par exemple, vous avez une liste de données que vous devez diviser en deux colonnes basées sur la casse : une colonne contient des chaînes en minuscules, et l'autre contient des chaînes en majuscules, comme le montre la capture d'écran ci-dessous. La fonction Texte en Colonnes ne prend pas en charge cette opération. Cependant, je peux vous montrer une astuce pour diviser rapidement une chaîne de texte par casse dans Excel.

Diviser du texte par casse avec VBA

Diviser du texte en lignes/colonnes par séparateur avec Kutools pour Excel

Diviser du texte par casse avec VBA

Dans Excel, il n'existe qu'un code macro pour diviser rapidement une chaîne basée sur les minuscules et majuscules.

1. Appuyez sur Alt + F11 pour ouvrir la fenêtre Microsoft Visual Basic for Applications.

2. Cliquez sur Insérer > Module, puis collez le code ci-dessous dans le script du Module vierge.

VBA : Diviser une chaîne par casse.

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. Appuyez sur F5 et une boîte de dialogue apparaît pour vous rappeler de sélectionner les textes à diviser. Voir la capture d'écran :

4. Cliquez sur OK, et les textes sélectionnés ont été divisés en deux colonnes, l'une contenant des minuscules et l'autre des majuscules.

Diviser du texte en lignes/colonnes par séparateur avec Kutools pour Excel

Dans de nombreux cas, vous souhaiterez peut-être diviser une cellule en plusieurs lignes ou colonnes en fonction d'un caractère spécifique. Dans Excel, la fonction intégrée Texte en Colonnes ne permet de convertir une cellule qu'en colonnes directement, mais ne fonctionne pas pour la conversion en lignes. Cependant, avec Kutools pour Excel – un outil pratique et utile, vous pouvez utiliser son utilitaire Diviser les Cellules pour diviser rapidement une chaîne en lignes ou colonnes en fonction d'un séparateur ou d'une largeur spécifiée.

Après avoir installé gratuitement Kutools pour Excel, veuillez procéder comme suit :

1. Sélectionnez la cellule que vous souhaitez diviser, puis cliquez sur Kutools > Fusionner & Diviser > Diviser les Cellules. Voir la capture d'écran :

2. Dans la Diviser les Cellules boîte de dialogue, cochez le type de division souhaité dans la section Type et allez cocher le délimiteur spécifique sur lequel vous souhaitez diviser dans la section Diviser par . Voir la capture d'écran :

3. Cliquez sur Ok, une boîte de dialogue apparaît pour vous rappeler de sélectionner une cellule où placer les contenus divisés. Voir la capture d'écran :

4. Après avoir sélectionné, cliquez sur OK, et la cellule sélectionnée a été divisée en lignes en fonction de l'espace. Voir la capture d'écran :