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.

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:

Astuces: 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