Excelove združiti funkcija lahko hitro vstavi predpono ali pripono za eno celico.

1. Vnesite funkcijo =CONCATENATE("Food - ",A1) v prazno celico, pravi Cell C1in nato povlecite ročico samodejnega izpolnjevanja te celice čez obseg, ki ga želite zapolniti. In vsem celicam je bilo dodano posebno besedilo predpone. Oglejte si posnetek zaslona :. Oglejte si posnetek zaslona:

S funkcijo povezovanja lahko vstavite predpono, pripono ali obe priponi in predponi, kot sledi:

Funkcije in koda VBA v Excelu morda niso seznanjeni. In to Add Text uporabnost Kutools for Excel vam bo pomagal hitro vstaviti predpono ali pripono v kateri koli izbrani obseg.

1. Izberite celice, ki jim želite dodati predpono ali pripono, in kliknite  Kutools > Text > Add Text.

2. v Add Text v pogovorno okno vnesite predpono ali pripono v Besedilo potrdite polje Before first character možnost (za dodajanje predpone) Ali After last character možnost (za dodajanje končnice) in kliknite na Ok gumb.
Zdaj se navedena predpona ali pripona dodaja v vsako izbrano celico hkrati. Oglejte si posnetek zaslona:

S to težavo se lahko spoprimete tudi z naslednjo kodo VBA:

1. Izberite obseg, v katerega želite vstaviti predpono ali pripono.

2. Kliknite Developer > Visual Basic, in novega Microsoft Visual Basic for applications odpre se okno, kliknite Insert > Modulein nato vnesite naslednjo kodo:

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. Nato kliknite Run ali pritisnite tipko F5 ključ za zagon VBA.

4. Zdaj pa določite obseg, za katerega boste v prvo dodali predpono ali pripono KutoolsforExcel pogovorno okno in kliknite OK in nato v drugo pripono vnesite pripono ali predpono, ki jo boste dodali KutoolsforExcel pogovorno okno in kliknite OK . Oglejte si spodnje posnetke zaslona:
     
Zdaj je bila določena pripona ali predpona dodana v vsako izbrano celico, kot je prikazano spodaj:

Besedilo dodajte na začetek ali konec vseh celic

V več celic dodajte nize besedila

dodajte vodilne ničle številkam ali besedilu