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 :
Meilleurs outils de productivité pour Office
Améliorez vos compétences Excel avec Kutools pour Excel, et découvrez une efficacité incomparable. Kutools pour Excel propose plus de300 fonctionnalités avancées pour booster votre productivité et gagner du temps. Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte l’interface par onglets à Office, simplifiant considérablement votre travail.
- Activez la modification 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é de50 % et réduit des centaines de clics de souris chaque jour !
Tous les modules complémentaires Kutools. Une seule installation
La suite Kutools for Office regroupe les modules complémentaires pour Excel, Word, Outlook & PowerPoint ainsi qu’Office Tab Pro, idéal pour les équipes travaillant sur plusieurs applications Office.
- Suite tout-en-un — modules complémentaires Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Un installateur, une licence — installation en quelques minutes (compatible MSI)
- Une synergie optimale — productivité accélérée sur l’ensemble des applications Office
- Essai complet30 jours — sans inscription, ni carte bancaire
- Meilleure valeur — économisez par rapport à l’achat d’add-ins individuels