Passer au contenu principal

Comment ajouter du texte au milieu des cellules sélectionnées dans Excel?

Supposons que vous ayez une liste de données composée d'une lettre de début G et d'autres nombres, et que vous souhaitiez maintenant ajouter une autre lettre D après la première lettre G à toute la liste. Voir la capture d'écran ci-dessous.

Comment pouvez-vous y parvenir? Car ajouter la lettre aux cellules une par une semble perdre du temps pendant votre travail. Dans cet article, nous allons vous montrer comment ajouter du texte au milieu des cellules sélectionnées dans Excel avec des méthodes efficaces.

Ajouter du texte au milieu des cellules sélectionnées avec une formule
Ajouter du texte au milieu des cellules sélectionnées avec le code VBA
Ajouter du texte au milieu des cellules sélectionnées avec Kutools for Excel


Ajouter du texte au milieu des cellules sélectionnées avec une formule

Dans cette section, nous vous fournirons la formule pour ajouter du texte au milieu des cellules sélectionnées. Veuillez faire comme suit.

1. Cette méthode doit être effectuée avec une colonne d'aide. Sélectionnez la cellule vide adjacente aux données d'origine, ici je sélectionne la cellule B2.

2. Copiez et collez la formule = GAUCHE (A2,1) & "D" & MID (A2,2,100, XNUMX) dans la barre de formule, puis appuyez sur la touche Entrer clé. Voir la capture d'écran:

Notes:

  • 1). Dans la formule, le chiffre 1 signifie que le texte sera ajouté après le premier caractère de la cellule.
  • 2). Les nombres 2 et 100 indiquent que les caractères de la seconde au centième de la cellule d'origine seront ajoutés après le nouveau texte inséré.
  • 3). Si vous souhaitez ajouter du texte après le deuxième caractère, veuillez changer le nombre 1 en 2 et 2 en 3 dans la formule.
  • 4). Et le caractère «D» est le texte que vous ajouterez à la cellule. Veuillez le modifier en fonction de vos besoins.

3. Sélectionnez la cellule B2, faites glisser la poignée de remplissage vers la cellule que vous souhaitez couvrir avec cette formule. Vous pouvez voir que le texte est ajouté au milieu des cellules dans toute la liste.

Pourboires: Outre la formule ci-dessus, vous pouvez également appliquer cette formule = REMPLACER (A2,2,0, "D"), (le numéro 2 indique l'emplacement où vous souhaitez insérer le texte, et la lettre D fait référence au texte que vous devez ajouter, vous pouvez les modifier selon vos besoins), puis appuyez sur la touche Entrée pour obtenir le résultat.


Ajoutez du texte au début ou à la fin de toutes les cellules sélectionnées dans Excel:

Kutools pour Excel Ajouter du texte L'utilitaire peut rapidement ajouter du texte spécifié au début ou à la fin des cellules dans une sélection dans Excel.
Téléchargez dès maintenant la version complète gratuite de Kutools for Excel pendant 30 jours !


Ajouter du texte au milieu des cellules sélectionnées avec le code VBA

En outre, vous pouvez ajouter du texte au milieu des cellules sélectionnées avec le code VBA.

1. Veuillez appuyer sur autre + F11 ouvrir le Applications Microsoft Visual Basic fenêtre.

2. Cliquez insérer > Module. Ensuite, copiez et collez ci-dessous le code VBA dans l'éditeur de code.

Code VBA: ajouter du texte à une liste de données après le premier caractère

Sub AddString()
	Dim Rng As Range
	Dim WorkRng As Range
	On Error Resume Next
	xTitleId = "KutoolsforExcel"
	Set WorkRng = Application.Selection
	Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type: = 8)
	For Each Rng In WorkRng
		Rng.Value = VBA.Left(Rng.Value, 1) & "D" & VBA.Mid(Rng.Value, 2, VBA.Len(Rng.Value) - 1)
	Next
End Sub

3. presse F5 clé pour exécuter le code, et dans le pop-up KutoolsforExcel boîte de dialogue, sélectionnez la plage à laquelle vous souhaitez ajouter du texte, puis cliquez sur le OK .

Le texte spécifié est maintenant ajouté après le premier caractère des cellules sélectionnées.

Notes: Dans le code ci-dessus, vous insérerez une valeur spécifique après le premier caractère dans la cellule, vous pouvez changer le nombre 1 et 2 en nombre 2 et 3 si vous ajoutez le texte après le deuxième caractère dans ce script VBA.Left (Rng.Value, 1) & "D" & VBA.Mid (Rng.Value, 2, VBA.Len (Rng.Value) - 1)et la lettre D est le nouveau texte que vous souhaitez insérer.


Ajouter du texte au milieu des cellules sélectionnées avec Kutools for Excel

Nous devons admettre que les deux méthodes ci-dessus ne nous conviennent pas. Ici, je vais vous montrer le Ajouter du texte utilité de Kutools for Excel, avec cet utilitaire, vous pouvez facilement spécifier la position médiane de la liste, puis ajouter le certain texte à cette position de la liste entière en même temps.

Avant d'appliquer Kutools for Excel, S'il vous plaît téléchargez et installez-le d'abord.

1. Sélectionnez la liste à laquelle vous souhaitez ajouter du texte au milieu des cellules, puis cliquez sur Kutools > Texte > Ajouter du texte. Voir la capture d'écran:

2. dans le Ajouter du texte boîte de dialogue, entrez le texte que vous souhaitez ajouter aux cellules dans le Texte , spécifiez la position à laquelle vous souhaitez ajouter le texte en cochant la case Spécifier option (ici j'entre le numéro 1), puis cliquez sur le OK bouton. (Vous pouvez instantanément prévisualiser le résultat de l'ajout dans la case de droite)

Notes: Pour ajouter du texte à plusieurs positions de la cellule sélectionnée à la fois, vous pouvez spécifier les positions avec une virgule séparant dans le Spécifier boîte. Voir la capture d'écran:

Le texte spécifié est maintenant ajouté après la première lettre de la liste sélectionnée.

  Si vous souhaitez bénéficier d'un essai gratuit (30 jours) de cet utilitaire, veuillez cliquer pour le télécharger, puis passez à appliquer l'opération selon les étapes ci-dessus.


Ajouter du texte au milieu des cellules sélectionnées avec Kutools for Excel


Article connexe:.

Meilleurs outils de productivité bureautique

🤖 Aide à l'IA Kutools: Révolutionner l'analyse des données en s'appuyant sur : Exécution intelligente   |  Générer du code  |  Créer des formules personnalisées  |  Analyser les données et générer des graphiques  |  Invoquer les fonctions Kutools...
Caractéristiques populaires: Rechercher, mettre en évidence ou identifier les doublons   |  Supprimer les lignes vides   |  Combinez des colonnes ou des cellules sans perdre de données   |   Tour sans formule 
Super recherche: VSearchup à critères multiples    VSearch à valeurs multiples  |   Recherche virtuelle sur plusieurs feuilles   |   Recherche floue ....
Liste déroulante avancée: Créez rapidement une liste déroulante   |  Liste déroulante dépendante   |  Liste déroulante à sélection multiple ....
Gestionnaire de colonnes: Ajouter un nombre spécifique de colonnes  |  Déplacer les colonnes  |  Basculer l'état de visibilité des colonnes masquées  |  Comparer les plages et les colonnes 
Caractéristiques en vedette: Mise au point de la grille   |  Voir Design   |   Grande barre de formule    Gestionnaire de classeurs et de feuilles   |  Centre de ressources (Texte automatique)   |  Sélecteur de date   |  Combiner des feuilles de travail   |  Crypter/déchiffrer les cellules    Envoyer des e-mails par liste   |  Super filtre   |   Filtre spécial (filtre gras/italique/barré...) ...
Les 15 meilleurs ensembles d'outils12 Texte Outils (Ajouter du texte, Supprimer les caractères, ...)   |   50+ Graphique Types (Diagramme de Gantt, ...)   |   40+ Pratique Formules (Calculer l'âge en fonction de l'anniversaire, ...)   |   19 Insertion Outils (Insérer le code QR, Insérer une image à partir du chemin, ...)   |   12 Conversion Outils (Nombres en mots, Conversion des devises, ...)   |   7 Fusionner et fractionner Outils (Lignes de combinaison avancées, Cellules divisés, ...)   |   ... et plus

Améliorez vos compétences Excel avec Kutools for Excel et faites l'expérience d'une efficacité comme jamais auparavant. Kutools for Excel offre plus de 300 fonctionnalités avancées pour augmenter la productivité et gagner du temps.  Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...

Description


Office Tab apporte une interface à onglets à Office et facilite grandement 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!
Comments (7)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Boa tarde, tudo bem ?

Eu testei as duas fórmulas e não funcionaram. Inclusive testei também no mesmo cenário descrito no texto e também não funcionou. Poderia verificar se falta algo na fórmula do excel ?
This comment was minimized by the moderator on the site
Tive o mesmo problema, mas segui pela resposta que enviaram aqui, a formula para o excel em português seria =ESQUERDA(A2;1) & "D" & EXT.TEXTO(A2;2;100)

A parte da fórmula que dá o erro seria o "MID" que precisa ser substituído por "EXT.TEXTO"
This comment was minimized by the moderator on the site
Hi Matheus C.,
If you are using the Excel version in a different language than English, please convert the formula from English to the language you are currently using.
You can translate the formula in this page: https://de.excel-translator.de/translator/
This comment was minimized by the moderator on the site
Hi Vick,
The formula provided in the post can only be applied in English system environment Excel. If you have Excel in a different language than English, please convert the formula from English to the language you are currently using.
It seems that you are using the Excel in Portuguese language system. You need to change the commas in the formula to semicolons.
You can translate the formula in this page: https://de.excel-translator.de/translator/
This comment was minimized by the moderator on the site
TRIMAKASIH KAK, SANGAT MEMBANTUUUU
This comment was minimized by the moderator on the site
This seems complicated. For the originally stated problem why not just do a search for G and replace all with GD?
This comment was minimized by the moderator on the site
Because you might want to insert a specific character at a certain index of the string. What if they weren't all G's? This was just to provide an example of how it works.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations