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!


Kutools for Excel résout la plupart de vos problèmes et augmente votre productivité de 80%

  • Réutilisation: Insérer rapidement formules complexes, graphiques et tout ce que vous avez utilisé auparavant; Crypter les cellules avec mot de passe Créer une liste de diffusion et envoyer des emails ...
  • Super Formula Bar (éditez facilement plusieurs lignes de texte et de formule); Disposition de lecture (facilement lire et éditer un grand nombre de cellules); Coller à la gamme filtrée...
  • Fusionner les cellules / rangées / colonnes sans perdre de données; Contenu des cellules divisées; Combiner les lignes / colonnes en double... Prévenir les cellules en double; Comparer les plages...
  • Sélectionnez Dupliquer ou Unique Des rangées; Sélectionnez les lignes vierges (toutes les cellules sont vides); Super Find et Fuzzy Find dans de nombreux cahiers d'exercices; Sélection aléatoire ...
  • Copie exacte Plusieurs cellules sans changer la référence de la formule; Créer automatiquement des références à plusieurs feuilles; Insérer des balles, Cases à cocher et plus ...
  • Extrait du texte, Ajouter du texte, Supprimer par position, Supprimer l'espace; Créer et imprimer des sous-totaux de pagination; Conversion entre contenu de cellules et commentaires...
  • Super filtre (enregistrer et appliquer des schémas de filtrage à d'autres feuilles); Tri avancé par mois / semaine / jour, fréquence et plus; Filtre spécial en gras, en italique ...
  • Combinaison de classeurs et de feuilles de calcul; Fusionner les tables en fonction des colonnes clés; Fractionner les données en plusieurs feuilles; Conversion par lots xls, xlsx et PDF...
  • Plus que de puissantes fonctionnalités 300. Prend en charge Office / Excel 2007-2019 et 365. Prend en charge toutes les langues. Déploiement facile dans votre entreprise ou organisation. Fonctionnalités complètes Essai gratuit du jour 30.
kte tab 201905

Office Tab apporte une interface à onglets à Office et simplifie grandement votre travail

  • Activer l'édition par onglets et la lecture 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 le nombre de clics de souris pour vous chaque jour!
fond officetab
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.
  • To post as a guest, your comment is unpublished.
    John · 3 months ago
    buenas noches
    necesito que me coloque el caracter cada 6, 7, 8 de un solo clic como le modifico para poder colocar mas criterios