Comment ajouter ou insérer des caractères spécifiques tous les X caractères dans les cellules Excel

Dans Excel, l'ajout de séparateurs tels que des tirets ou des caractères spécifiques à quelques positions dans des chaînes de texte peut être une tâche fastidieuse si elle est effectuée manuellement. Par exemple, l'insertion d'un tiret après chaque groupe de quatre caractères dans plusieurs cellules nécessite une approche efficace. Cet article propose deux solutions simples : l'utilisation du code VBA ou de l'utilitaire Ajouter du texte dans Kutools for Excel pour insérer des caractères à intervalles fixes de manière transparente.

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.

2. Cliquez 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. Pressez F5 pour exécuter ce code. Une boîte de dialogue apparaît, vous demandant de sélectionner la plage de données dans laquelle vous souhaitez insérer un caractère spécifique dans les chaînes de texte. Voir la capture d'écran ci-dessous :

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:

6. Cliquez 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 caractère spécifié sera désormais inséré dans chaque chaîne de texte tous les quatre caractères. Voir la capture d'écran ci-dessous :

Insérez certains caractères tous les x caractères dans la cellule avec Kutools for Excel

Le code VBA peut être difficile à utiliser pour les débutants en Excel. Voici une alternative plus simple : Kutools for Excel. En utilisant son Ajouter du texte fonctionnalité, vous pouvez ajouter rapidement du texte ou des caractères spécifiques avant, après ou à des positions spécifiques dans les valeurs des cellules.

1. Sélectionnez la plage de données dans laquelle vous souhaitez insérer un caractère spécifique.

2. Puis cliquer Kutools > Texte > Ajouter du texte, voir capture d'écran:

3. Dans le Ajouter du texte boîte de dialogue, spécifiez le caractère que vous souhaitez insérer dans le Texte champ. Sous le Position section, choisissez Spécifier et entrez les positions où le caractère doit être inséré. Vous pouvez prévisualiser le résultat dans le volet de droite. Voir la capture d'écran ci-dessous :

Tips: 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 cliquer 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.

Démo : Insérez certains caractères tous les x caractères dans la cellule avec Kutools for Excel