Astuce: Les autres langues sont Google-Traduction. Vous pouvez visiter le English version de ce lien.
Se connecter
x
or
x
x
S'enregistrer
x

or

Comment ajouter / insérer certains caractères tous les x caractères dans les cellules?

En supposant, j'ai une liste de chaînes de texte que je veux insérer des tirets ou d'autres séparateurs après chaque quatre caractères dans les cellules pour obtenir le résultat de capture d'écran suivant. Il y a trop de cellules nécessaires pour insérer le caractère, y a-t-il des moyens rapides d'insérer des tirets tous les quatre caractères dans Excel?

Insérer un certain caractère tous les caractères x dans la cellule avec le code VBA

Insérer un certain caractère tous les x caractères dans la cellule avec Kutools pour Excel

doc insérer chaque caractère x 1


Ajouter un caractère spécifique avant / après / certaine position de la chaîne de texte:

Kutools for Excel's Ajouter du texte utilitaire peut vous aider à ajouter un caractère spécifique ou une lettre avant ou après toutes les cellules, en même temps, il peut également insérer le caractère entre la position certaine des chaînes de texte.

doc insérer chaque caractère x 11

Kutools for Excel: avec plus que 200 compléments Excel pratiques, libre d'essayer sans limitation dans les jours 60. Téléchargez et essai gratuit maintenant!


Insérer un certain caractère tous les caractères x dans la cellule avec le code VBA


Vous pouvez appliquer le code VBA suivant pour insérer un caractère spécifique après tous les quatre caractères dans les cellules, procédez comme suit:

1. Maintenez le ALT + F11 clés dans Excel, et il ouvre la Microsoft Visual Basic pour applications fenêtre.

2. Cliquez insérer > Moduleet collez le code suivant dans le Module Fenêtre.

Code VBA: Insérer un certain caractère tous les x caractères dans la cellule

Sub InsertCharacter()
'Updateby20150813
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 clé pour exécuter ce code, et une boîte de dialogue apparaîtra pour vous rappeler de sélectionner la plage de données que vous souhaitez insérer un certain caractère dans les chaînes de texte, voir capture d'écran:

doc insérer chaque caractère x 2

4. Et cliquez sur OK, dans la boîte d'invite suivante, entrez le numéro que vous voulez insérer après chaque caractère, voir capture d'écran:

doc insérer chaque caractère x 3

5. Aller en cliquant OK, et dans la boîte de dialogue suivante, veuillez entrer le caractère que vous voulez ajouter au texte, voir capture d'écran:

doc insérer chaque caractère x 4

6. Cliquez OK Cliquez sur le bouton et choisissez une cellule dans laquelle vous souhaitez afficher le résultat dans la zone d'invite, voir capture d'écran:

doc insérer chaque caractère x 5

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:

doc insérer chaque caractère x 6


Insérer un certain caractère tous les x caractères dans la cellule avec Kutools pour Excel

Le code ci-dessus peut-être un peu difficile pour la plupart des débutants Excel, ici, je peux vous 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 la cellule.

Kutools for Excel : avec plus de 300 compléments Excel pratiques, libre d'essayer sans limitation dans 60 jours.

Si vous avez installé Kutools for Excel, s'il vous plaît faites 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:

doc insérer tous les caractères x 7 7

3. Dans le Ajouter du texte boîte de dialogue, spécifiez un caractère que vous souhaitez insérer dans le Texte boîte, puis choisissez Précisez à 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:

doc insérer chaque caractère x 8

Conseils: 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 caractères 4th, 8th et 12th de la chaîne de texte.

4. Puis clique Ok or Appliquer bouton, le caractère spécifié a été inséré dans les valeurs de cellule à des positions spécifiques.

doc insérer chaque caractère x 9  2 doc insérer chaque caractère x 10

Cliquez pour en savoir plus sur cet utilitaire d'ajout de texte.

Télécharger et tester gratuitement Kutools for Excel maintenant!


Démo: Insérer un certain caractère tous les caractères x dans la cellule avec Kutools pour Excel

Kutools for Excel: avec plus que 200 compléments Excel pratiques, libre d'essayer sans limitation dans les jours 60. Téléchargez et essai gratuit maintenant!



Outils de productivité recommandés

Office Tab

étoile d&#39;or1 Apportez des onglets pratiques à Excel et à d'autres logiciels Office, tout comme Chrome, Firefox et Internet Explorer.

Kutools for Excel

étoile d&#39;or1 Incroyable! Augmentez votre productivité dans les minutes 5. Ne nécessite pas de compétences particulières, économisez deux heures par jour!

étoile d&#39;or1 300 Nouvelles fonctionnalités pour Excel, rendent Excel facile et puissant:

  • Fusionner des cellules / lignes / colonnes sans perdre de données.
  • Combiner et consolider plusieurs feuilles et classeurs.
  • Comparez les gammes, copiez plusieurs gammes, convertissez le texte en date, l'unité et la conversion de devise.
  • Compter par couleurs, sous-totaux de recherche, tri avancé et super filtre,
  • Plus Sélectionner / Insérer / Supprimer / Texte / Format / Lier / Commenter / Classeurs / Feuilles de calcul Outils ...

Capture d&#39;écran de Kutools pour Excel

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.