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 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:
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:
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:
Meilleurs outils de productivité bureautique
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...
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!