Come aggiungere un prefisso o un suffisso a un intervallo di celle in Excel?

La funzione CONCATENA di Excel ti permette di aggiungere rapidamente un prefisso o un suffisso a una singola cella.

1. Inserisci la funzione =CONCATENATE(«Food - »,A1) in una cella vuota, ad esempio la cella C1, quindi trascina il quadratino di riempimento automatico su tutta l'area che desideri compilare: in questo modo, a tutte le celle verrà aggiunto il prefisso specificato. Vedi screenshot:

È possibile utilizzare la funzione CONCATENA per inserire un prefisso, un suffisso o entrambi come segue:

Non hai dimestichezza con le funzioni e il codice VBA in Excel? Questa utility di Kutools for Excel ti permette di aggiungere rapidamente un prefisso o un suffisso a qualsiasi intervallo selezionato.

1. Seleziona le celle a cui vuoi aggiungere un prefisso o un suffisso e fai clic su Kutools > Text > Add Text Text Add Text.

2. Nella finestra di dialogo Add Text, inserisci il tuo prefisso o suffisso nella casella Testo, seleziona l'opzione Before first character (per aggiungere un prefisso) oppure l'opzione After last character (per aggiungere un suffisso), quindi fai clic sul pulsante Ok.
Il prefisso o il suffisso specificato viene ora aggiunto contemporaneamente a tutte le celle selezionate. Vedi screenshot:

È possibile risolvere il problema anche con il seguente codice VBA:

1. Seleziona l'intervallo a cui vuoi aggiungere il prefisso o il suffisso.

2. Fai clic su Developer > Visual Basic Visual Basic: si aprirà una nuova finestra di Microsoft Visual Basic for applications. Clicca su Insert > Module Module e inserisci il seguente codice:

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. Fai quindi clic sul pulsante Run o premi il tasto F5 per eseguire il codice VBA.

4. Nella finestra di dialogo KutoolsforExcel, specifica innanzitutto l'intervallo a cui aggiungere il prefisso o il suffisso e fai clic sul pulsante OK. Successivamente, nella seconda finestra di dialogo KutoolsforExcel, digita il prefisso o il suffisso da aggiungere e conferma con il pulsante OK. Ecco gli screenshot seguenti:
     
Il prefisso o il suffisso specificato è stato aggiunto a ogni cella selezionata, come mostrato nello screenshot seguente:

Aggiungi Aggiungi testo all'inizio o alla fine di tutte le celle

Aggiungi stringhe di testo a più celle

aggiungi zeri iniziali a numeri o testo