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

Dans Excel, nous divisons généralement le texte par une largeur fixe ou un délimiteur avec la fonction Texte en colonnes, mais avez-vous déjà essayé de diviser le texte en majuscules et en minuscules? Par exemple, vous avez une liste de données et vous devez les diviser en deux colonnes en fonction de la casse: une colonne contient une chaîne en minuscules et l'autre une chaîne en majuscules, comme illustré ci-dessous. La fonction Texte en colonnes ne prend pas en charge cette opération, cependant, je peux introduire des astuces pour diviser rapidement la chaîne de texte au cas par cas dans Excel.

Diviser le texte par cas avec VBA

Diviser le texte en lignes / colonnes par séparateur avec Kutools for Excel

Diviser le texte par cas avec VBA

Dans Excel, il n'y a que du code de macro pour diviser rapidement la chaîne en fonction des minuscules et des majuscules.

1. presse Alt + F11 clés pour ouvrir Microsoft Visual Basic pour applications fenêtre.

2. Cliquez insérer > Module, et collez ci-dessous le code dans le vide Module scripts.

VBA: chaîne divisée par cas.

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. presse 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 OKet les textes sélectionnés ont été divisés en deux colonnes, l'une contenant des minuscules et l'autre des majuscules.

Diviser le texte en lignes / colonnes par séparateur avec Kutools for 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 peut uniquement vous aider à convertir une cellule en colonnes directement, mais pas à effectuer la conversion de lignes. Cependant, avec Kutools pour Excel - un outil pratique et utile, vous pouvez appliquer son Cellules divisés utilitaire pour diviser rapidement la chaîne en lignes ou en colonnes en fonction d'un séparateur ou d'une largeur fixe.

Après installation gratuite Kutools for Excel, procédez comme suit:

1. Sélectionnez la cellule que vous souhaitez fractionner et cliquez sur Kutools > Fusionner et fractionner > Cellules divisés. Voir la capture d'écran:

2. dans le Cellules divisés boîte de dialogue, cochez le type de fractionnement souhaité dans le Catégorie et allez vérifier le délimiteur spécifique sur lequel vous souhaitez fractionner en fonction de Divisé par section. Voir la capture d'écran:

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

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

Les meilleurs outils de productivité de bureau

Kutools for Excel résout la plupart de vos problèmes et augmente votre productivité de 80%

• Réutilisation: Insérer rapidement formules complexes, graphiques et tout ce que vous avez utilisé auparavant; Crypter les cellules avec mot de passe; Créer une liste de diffusion et envoyer des e-mails ...
• Barre Super Formula (modifiez facilement plusieurs lignes de texte et de formule); Disposition de lecture (lire et modifier facilement un grand nombre de cellules); Coller dans la plage filtréeplus
• Fusionner les cellules / lignes / colonnes sans perdre de données; Contenu des cellules divisées; Combiner des lignes / colonnes en double... Empêcher les cellules en double; Comparer les gammesplus
• Sélectionnez Dupliquer ou Unique Lignes; Sélectionnez les lignes vides (toutes les cellules sont vides); Super Find et Fuzzy Find dans de nombreux classeurs; Sélection aléatoire ...
• Copie exacte Plusieurs cellules sans changer la référence de formule; Créer automatiquement des références à plusieurs feuilles; Insérer des puces, Cases à cocher et plus encore ...
• Extrait du texte, Ajouter du texte, Supprimer par position, Supprimer l'espace; Créer et imprimer des sous-totaux de pagination; Conversion entre le contenu et les commentaires des cellulesplus
• Super filtre (enregistrer et appliquer des schémas de filtrage à d'autres feuilles); Tri avancé par mois / semaine / jour, fréquence et plus; Filtre spécial par gras, italique ...
• Combiner des classeurs et des feuilles de travail; Fusionner les tableaux en fonction des colonnes clés; Diviser les données en plusieurs feuilles; Conversion par lots xls, xlsx et PDFplus
• Plus de 300 fonctionnalités puissantes. Prend en charge Office / Excel 2007-2019 et 365. Prend en charge toutes les langues. Déploiement facile dans votre entreprise ou organisation. Essai gratuit de 30 jours. Garantie de remboursement de 60 jours.

Lire la suite... Téléchargement Gratuit... Achat... 

---

Office Tab apporte une interface à onglets à Office et simplifie considérablement votre travail

• Activer l'édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
• Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
• Augmente votre productivité de 50% et réduit des centaines de clics de souris chaque jour!

Lire la suite... Téléchargement Gratuit... Achat...