Excel spojit Funkce může rychle vložit předponu nebo příponu pro jednu buňku.

1. Zadejte funkci =CONCATENATE("Food - ",A1) v prázdné buňce, říká Cell C1a potom přetáhněte úchyt automatického vyplňování této buňky v rozsahu, který chcete vyplnit. A do všech buněk byl přidán konkrétní text předpony. Viz screenshot :. Viz snímek obrazovky:

Funkci zřetězení můžete použít k vložení předpony, přípony nebo obou přípon a předpon takto:

Pravděpodobně nejste obeznámeni s funkcemi a kódem VBA v aplikaci Excel. A tohle Add Text užitečnost Kutools for Excel vám pomůže rychle vložit předponu nebo příponu do všech vybraných rozsahů.

1. Vyberte buňky, které chcete přidat předponu nebo příponu, a klepněte na  Kutools > Text > Add Text.

2. V Add Text V dialogovém okně zadejte předponu nebo příponu do souboru Text zaškrtněte políčko Before first character možnost (pro přidání předpony), Nebo After last character možnost (pro přidání přípony), jak potřebujete, a klikněte na Ok .
Nyní se zadaná předpona nebo přípona přidává do všech vybraných buněk najednou. Viz snímek obrazovky:

S tímto problémem se můžete také vypořádat pomocí následujícího kódu VBA:

1. Vyberte rozsah, do kterého chcete vložit předponu nebo příponu.

2, klikněte Developer > Visual Basic, a nový Microsoft Visual Basic for applications okno se zobrazí, klikněte na Insert > Modulea poté zadejte následující kód:

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. Pak klikněte na tlačítko Run tlačítko nebo stiskněte tlačítko F5 klíč ke spuštění VBA.

4. A teď prosím určete rozsah, do kterého přidáte předponu nebo příponu do první KutoolsforExcel dialogové okno a klikněte na OK tlačítko a poté zadejte příponu nebo předponu, kterou přidáte do druhé KutoolsforExcel dialogové okno a klikněte na OK knoflík. Viz níže screenshoty:
     
Nyní byla do každé vybrané buňky přidána zadaná přípona nebo předpona, jak je uvedeno níže:

Přidejte text na začátek nebo konec všech buněk

Přidejte řetězce textu do více buněk

přidejte úvodní nuly k číslům nebo textu