Passer au contenu principal

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


flèche bleue bulle droite 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

doc divisé par cas 1

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:
doc divisé par cas 2

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.
doc divisé par cas 3


flèche bleue bulle droite 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 for 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.

Kutools for Excel, avec plus de 300 fonctions pratiques, rend vos travaux plus faciles. 

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:
doc divisé par cas 4

2. dans le Cellules divisés boîte de dialogue, cochez le type de fractionnement souhaité dans le Type 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:
doc divisé par cas 5

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:
doc divisé par cas 6

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:
doc divisé par cas 7

Meilleurs outils de productivité bureautique

Caractéristiques populaires: Rechercher, mettre en évidence ou identifier les doublons   |  Supprimer les lignes vides   |  Combinez des colonnes ou des cellules sans perdre de données   |   Tour sans formule 
Super recherche: VSearchup à critères multiples    VSearch à valeurs multiples  |   Recherche virtuelle sur plusieurs feuilles   |   Recherche floue ....
Liste déroulante avancée: Créez rapidement une liste déroulante   |  Liste déroulante dépendante   |  Liste déroulante à sélection multiple ....
Gestionnaire de colonnes: Ajouter un nombre spécifique de colonnes  |  Déplacer les colonnes  |  Basculer l'état de visibilité des colonnes masquées  |  Comparer les plages et les colonnes 
Caractéristiques en vedette: Mise au point de la grille   |  Voir Design   |   Grande barre de formule    Gestionnaire de classeurs et de feuilles   |  Centre de ressources (Texte automatique)   |  Sélecteur de date   |  Combiner des feuilles de travail   |  Crypter/déchiffrer les cellules    Envoyer des e-mails par liste   |  Super filtre   |   Filtre spécial (filtre gras/italique/barré...) ...
Les 15 meilleurs ensembles d'outils12 Texte Outils (Ajouter du texte, Supprimer les caractères, ...)   |   50+ Graphique Types (Diagramme de Gantt, ...)   |   40+ Pratique Formules (Calculer l'âge en fonction de l'anniversaire, ...)   |   19 Insertion Outils (Insérer le code QR, Insérer une image à partir du chemin, ...)   |   12 Conversion Outils (Nombres en mots, Conversion des devises, ...)   |   7 Fusionner et fractionner Outils (Lignes de combinaison avancées, Cellules divisés, ...)   |   ... et plus

Améliorez vos compétences Excel avec Kutools for Excel et faites l'expérience d'une efficacité comme jamais auparavant. Kutools for Excel offre plus de 300 fonctionnalités avancées pour augmenter la productivité et gagner du temps.  Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...

onglet kte 201905


Office Tab apporte une interface à onglets à Office et facilite grandement 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!
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations