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
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...
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!