Note: The other languages of the website are Google-translated. Back to English
Se connecter  \/ 
x
or
x
S’enregistrer  \/ 
x

or

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

doc insérer tous les x caractères 1


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

doc insérer tous les x caractères 2

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:

doc insérer tous les x caractères 3

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:

doc insérer tous les x caractères 4

6. Cliquez OK et choisissez une cellule dans laquelle vous souhaitez afficher le résultat dans la boîte de dialogue, voir capture d'écran:

doc insérer tous les x caractères 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 tous les x caractères 6


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 pour 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 pour Excel : avec plus de 300 compléments Excel pratiques, essai gratuit sans limitation en 30 jours. 

Si vous avez installé Kutools pour 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:

doc insérer tous les x caractères 8

Capsules: 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 Ajouter , le caractère spécifié a été inséré dans les valeurs de cellule à des positions spécifiques.

doc insérer tous les x caractères 9 2 doc insérer tous les x caractères 10

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

Kutools pour Excel: avec plus de 300 compléments Excel pratiques, essai gratuit sans limitation dans 30 jours. Téléchargez et essayez gratuitement maintenant!

Les meilleurs outils de productivité de bureau

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 e-mails ...
  • Barre Super Formula (modifiez facilement plusieurs lignes de texte et de formule); Disposition de lecture (lire et modifier facilement un grand nombre de cellules); Coller dans la plage filtrée...
  • Fusionner les cellules / lignes / colonnes sans perdre de données; Contenu des cellules divisées; Combiner des lignes / colonnes en double... Empêcher les cellules en double; Comparer les gammes...
  • Sélectionnez Dupliquer ou Unique Lignes; Sélectionnez les lignes vides (toutes les cellules sont vides); Super Find et Fuzzy Find dans de nombreux classeurs; Sélection aléatoire ...
  • Copie exacte Plusieurs cellules sans changer la référence de formule; Créer automatiquement des références à plusieurs feuilles; Insérer des puces, Cases à cocher et plus encore ...
  • Extrait du texte, Ajouter du texte, Supprimer par position, Supprimer l'espace; Créer et imprimer des sous-totaux de pagination; Conversion entre le contenu et les commentaires des cellules...
  • 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 par gras, italique ...
  • Combiner des classeurs et des feuilles de travail; Fusionner les tableaux en fonction des colonnes clés; Diviser les données en plusieurs feuilles; Conversion par lots xls, xlsx et PDF...
  • Plus de 300 fonctionnalités puissantes. Prend en charge Office / Excel 2007-2019 et 365. Prend en charge toutes les langues. Déploiement facile dans votre entreprise ou organisation. Essai gratuit de 30 jours. Garantie de remboursement de 60 jours.
onglet kte 201905

Office Tab apporte une interface à onglets à Office et simplifie considérablement 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!
bas de cabine
Say something here...
symbols left.
You are guest
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.
    anaid83 · 22 days ago
    Creo que en vez de macros, es más fácil (aunque más largo):
    1. Separar en columnas la columna A (Pestaña Datos - botón texto en columnas) y separar por Ancho fijo. Así podrás poner un separador cada 4 caracteres.
    2. Elige destino desde B2 (si lo dejas predeterminado, pisará la columna A y no podrás ver el texto original).
    3. Ahora viene lo bueno, ya que son 4 series de 4caracteres cada uno, en la columna G o H (considerando que los valores de 4 caracteres estén desde las columnas B a la F), colocarás la siguiente fórmula: =CONCATENAR(B2;"-";C2;"-";D2;"-";E2;"-";F2). Ahora copia esa celda al resto de valores por insertar el símbolo -.
    4. Finalmente, copia toda la columna de resultados y pégala en una columna vacía pero como valor de texto (Inicio-Pegar-Valores... o con las teclas ALT+O+V+V) y listo, ya tienes tus seriales listos para pegar donde quieras sin necesidad de macros.
  • To post as a guest, your comment is unpublished.
    Wuilf · 1 years ago
    Muy buena esta macro, una pregunta curiosa al momento de ejecutarla los caracteres los aplica de izquierda a derecha, puede cambiarse ese orden que de derecha a izquierda? En caso de ser posible como es el proceso? Gracias.
  • To post as a guest, your comment is unpublished.
    John · 1 years 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