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

La funzione CONCATENA di Excel può inserire rapidamente un prefisso o suffisso per una singola cella.

1. Inserisci la funzione di =CONCATENA("Cibo - ",A1) in una cella vuota, ad esempio la cella C1, e poi trascina l'handle di riempimento automatico di questa cella attraverso l'intervallo che desideri riempire. E a tutte le celle è stato aggiunto il testo prefisso specifico. Vedi screenshot:. Vedi screenshot:

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

Potresti non essere familiare con le funzioni e il codice VBA in Excel. E questo strumento Aggiungi Testo di Kutools per Excel ti aiuterà a inserire rapidamente un prefisso o suffisso in qualsiasi intervallo selezionato.

1.  Seleziona le celle a cui desideri aggiungere un prefisso o suffisso, e clicca  Kutools > Testo > Aggiungi Testo.

2. Nella Aggiungi Testo finestra di dialogo, inserisci il tuo prefisso o suffisso nella casella Testo e seleziona l'opzione Prima del primo carattere (per aggiungere un prefisso) o Dopo l'ultimo carattere (per aggiungere un suffisso) secondo necessità, e clicca sul pulsante Ok button.
E ora il prefisso o suffisso specificato viene aggiunto a ciascuna delle celle selezionate contemporaneamente. Vedi screenshot:

Puoi anche risolvere questo problema con il seguente codice VBA:

1. Seleziona l'intervallo in cui desideri inserire il prefisso o suffisso.

2. Clicca Sviluppatore > Visual Basic, e si aprirà una nuova finestra Microsoft Visual Basic per applicazioni, clicca Inserisci > Modulo, e quindi 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. Poi clicca sul pulsante Esegui o premi il tasto F5 per eseguire il VBA.

4. E ora specifica l'intervallo a cui aggiungerai il prefisso o suffisso nel primo KutoolsforExcel finestra di dialogo e clicca sul pulsante OK e poi digita il suffisso o prefisso che vuoi aggiungere nel secondo KutoolsforExcel finestra di dialogo e clicca sul pulsante OK pulsante. Vedi sotto gli screenshot:
     
Ora il suffisso o prefisso specificato è stato aggiunto a ciascuna delle celle selezionate come mostrato nello screenshot qui sotto:

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