Comment ajouter un préfixe ou un suffixe à une plage de cellules dans Excel ?

La fonction concaténer d'Excel peut insérer un préfixe ou un suffixe dans une seule cellule rapidement.

1Entrez la fonction suivante : =CONCATENATE("Nourriture - ",A1) dans une cellule vide, par exemple la cellule C1, puis faites glisser la poignée de recopie automatique de cette cellule sur la plage que vous souhaitez remplir. Et tous les cellules se sont vu ajouter le texte préfixe spécifique. Voir capture d'écran :

Vous pouvez utiliser la fonction concaténer pour insérer un préfixe, un suffixe, ou les deux comme suit :

Vous ne connaissez peut-être pas bien les fonctions et le code VBA dans Excel. Et cet utilitaire Ajouter du texte de Kutools pour Excel vous aidera à insérer un préfixe ou un suffixe dans n'importe quelle plage sélectionnée rapidement.

1.  Sélectionnez les cellules auxquelles vous souhaitez ajouter un préfixe ou un suffixe, puis cliquez sur Kutools > Texte > Ajouter du texte.

2Dans la boîte de dialogue Ajouter du texte entrez votre préfixe ou suffixe dans la zone Texte cochez l'option Avant le premier caractère (pour ajouter un préfixe) ou Après le dernier caractère (pour ajouter un suffixe) selon vos besoins, puis cliquez sur le bouton Ok .
Et maintenant, le préfixe ou le suffixe spécifié est ajouté à chaque cellule sélectionnée en une seule fois. Voir capture d'écran :

Vous pouvez également résoudre ce problème avec le code VBA suivant :

1. Sélectionnez la plage où vous souhaitez insérer le préfixe ou le suffixe.

2. Cliquez sur Développeur > Visual Basic, et une nouvelle fenêtre Microsoft Visual Basic pour applications s'affichera, cliquez sur Insérer > Module, puis saisissez le code suivant :

Sub AddTextOnLeft()
'Updateby20131128
Dim Rng As Range
Dim WorkRng As Range
Dim addStr As String
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
addStr = Application.InputBox("Add text", xTitleId, "", Type:=2)
For Each Rng In WorkRng
    Rng.Value = addStr & Rng.Value
Next
End Sub

Sub AddTextOnRight()
'Updateby20131128
Dim Rng As Range
Dim WorkRng As Range
Dim addStr As String
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
addStr = Application.InputBox("Add text", xTitleId, "", Type:=2)
For Each Rng In WorkRng
    Rng.Value = Rng.Value & addStr
Next
End Sub

3. Cliquez ensuite sur le bouton Exécuter ou appuyez sur la touche F5 pour exécuter le VBA.

4Maintenant, veuillez spécifier la plage à laquelle vous ajouterez un préfixe ou un suffixe dans la première KutoolsforExcel boîte de dialogue et cliquez sur le bouton OK puis tapez le suffixe ou le préfixe que vous souhaitez ajouter dans la deuxième KutoolsforExcel boîte de dialogue et cliquez sur le bouton OK Voici les captures d'écran ci-dessous :
     
Le suffixe ou le préfixe spécifié a maintenant été ajouté à chaque cellule sélectionnée comme le montre la capture d'écran ci-dessous :

Ajouter du texte au début ou à la fin de toutes les cellules

Ajouter des chaînes de texte à plusieurs cellules

ajouter des zéros non significatifs aux nombres ou au texte