Comment ajouter / insérer certains caractères tous les x caractères dans des cellules?
Supposons que j'ai une liste de chaînes de texte que je souhaite insérer des tirets ou tout autre séparateur tous les quatre caractères dans les cellules pour obtenir le résultat de la capture d'écran suivant. Il y a trop de cellules nécessaires pour insérer le certain caractère, existe-t-il des moyens rapides d'insérer des tirets tous les quatre caractères dans Excel?
Insérez certains caractères tous les x caractères dans la cellule avec le code VBA
Insérez certains caractères tous les x caractères dans la cellule avec Kutools for Excel
Insérez certains caractères tous les x caractères dans la cellule avec le code VBA
Vous pouvez appliquer le code VBA suivant pour insérer un caractère spécifique tous les quatre caractères dans les cellules, procédez comme suit:
1. Maintenez le ALT + F11 clés dans Excel, et il ouvre le Microsoft Visual Basic pour applications fenêtre.
2Cliquez sur insérer > Moduleet collez le code suivant dans le Module Fenêtre.
Code VBA: insérer certains caractères tous les x caractères dans la cellule
Sub InsertCharacter()
'Updateby Extendoffice
Dim Rng As Range
Dim InputRng As Range, OutRng As Range
Dim xRow As Integer
Dim xChar As String
Dim index As Integer
Dim arr As Variant
Dim xValue As String
Dim outValue As String
Dim xNum As Integer
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
xRow = Application.InputBox("Number of characters :", xTitleId, Type:=1)
xChar = Application.InputBox("Specify a character :", xTitleId, Type:=2)
Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type:=8)
Set OutRng = OutRng.Range("A1")
xNum = 1
For Each Rng In InputRng
xValue = Rng.Value
outValue = ""
For index = 1 To VBA.Len(xValue)
If index Mod xRow = 0 And index <> VBA.Len(xValue) Then
outValue = outValue + VBA.Mid(xValue, index, 1) + xChar
Else
outValue = outValue + VBA.Mid(xValue, index, 1)
End If
Next
OutRng.Cells(xNum, 1).Value = outValue
xNum = xNum + 1
Next
End Sub
3. Puis appuyez F5 pour exécuter ce code, et une boîte de dialogue apparaîtra pour vous rappeler de sélectionner la plage de données dans laquelle vous souhaitez insérer un certain caractère dans les chaînes de texte, voir capture d'écran:
4. Et cliquez sur OK, dans la boîte de dialogue suivante, veuillez entrer le numéro que vous souhaitez insérer un certain caractère après, voir capture d'écran:
5. Continuez à cliquer OK, et dans la boîte de dialogue suivante, entrez le caractère que vous souhaitez ajouter au texte, voir capture d'écran:
6Cliquez sur OK et choisissez une cellule dans laquelle vous souhaitez afficher le résultat dans la boîte de dialogue, voir capture d'écran:
7. Enfin, cliquez OK, le certain caractère a été inséré dans chaque chaîne de texte tous les quatre caractères, voir capture d'écran:
Insérez certains caractères tous les x caractères dans la cellule avec Kutools for Excel
Le code ci-dessus peut-être un peu difficile pour la plupart des débutants d'Excel, ici, je peux présenter un outil pratique - Kutools for Excel, Avec son Ajouter du texte fonctionnalité, vous pouvez rapidement ajouter un texte ou un caractère spécifique avant, après ou à certaines positions de la valeur de cellule.
| Kutools for Excel : avec plus de 300 compléments Excel pratiques, essai gratuit sans limitation en 30 jours. |
Si vous avez installé Kutools for Excel, procédez comme suit:
1. Sélectionnez la plage de données dans laquelle vous souhaitez insérer un caractère spécifique.
2. Puis clique Kutools > Texte > Ajouter du texte, voir capture d'écran:
3. Dans le Ajouter du texte boîte de dialogue, spécifiez un caractère à insérer dans le Texte boîte, puis choisissez Spécifier à partir de la position section, dans la zone de texte, entrez les positions que vous souhaitez insérer le caractère après, en même temps, vous pouvez prévisualiser le résultat dans le volet de droite, voir capture d'écran:
Pourboires: Ici, je tape 4,8,12 dans la zone de texte de Spécifier qui indiquent d'insérer le texte spécifique après les 4e, 8e et 12e caractères de la chaîne de texte.
4. Puis clique Ok or Appliquer , le caractère spécifié a été inséré dans les valeurs de cellule à des positions spécifiques.
 |
 |
 |
Cliquez pour en savoir plus sur cet utilitaire Ajouter du texte.
Téléchargez et essayez gratuitement Kutools for Excel Now!
Démo : Insérez certains caractères tous les x caractères dans la cellule avec Kutools for Excel
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!
