Hogyan lehet előtagot vagy utótagot hozzáadni az Excel cellatartományához?

Az Excel összekapcsol függvény gyorsan beilleszthet egyetlen cellához előtagot vagy utótagot.

1. Írja be a =CONCATENATE("Food - ",A1) egy üres cellában - mondja Cell C1, majd húzza át ennek a cellának az Automatikus kitöltés fogantyúját a kitölteni kívánt tartományon. És az összes cellához hozzáadódott a konkrét előtag szöveg. Lásd a képernyőképet: Lásd a képernyőképet:

A konkatenátum funkcióval beszúrhatja az előtagot, az utótagot, vagy mind az utótagot, mind az előtagot az alábbiak szerint:

Lehet, hogy nem ismeri az Excel funkcióit és VBA-kódját. És ez Add Text hasznossága Kutools for Excel segít gyorsan beilleszteni az előtagot vagy az utótagot bármelyik kiválasztott tartományba.

1. Jelölje ki az előtagot vagy utótagot hozzáadni kívánt cellákat, majd kattintson a gombra  Kutools > Text > Add Text.

2. Az Add Text párbeszédpanelen írja be az előtagot vagy utótagot a szöveg jelölje be a négyzetet Before first character választási lehetőség (előtag hozzáadásához), Vagy After last character választási lehetőség (az utótag hozzáadásához), és kattintson a gombra Ok gombot.
És most a megadott előtag vagy utótag minden kiválasztott cellához hozzáadódik egyszerre. Lásd a képernyőképet:

Ezt a problémát a következő VBA-kóddal is kezelheti:

1. Válassza ki azt a tartományt, ahová be szeretné illeszteni az előtagot vagy az utótagot.

2. Kattints Developer > Visual Basic, és egy új Microsoft Visual Basic for applications ablak jelenik meg, kattintson a gombra Insert > Module, majd írja be a következő kódot:

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. Ezután kattintson Run gombot, vagy nyomja meg a gombot F5 kulcs a VBA futtatásához.

4. Most kérjük, adja meg azt a tartományt, amelyhez előtagot vagy utótagot ad az elsőbe KutoolsforExcel párbeszédpanelen kattintson a gombra OK gombot, majd írja be a hozzáillesztendő utótagot vagy előtagot a másodikba KutoolsforExcel párbeszédpanelen kattintson a gombra OK gomb. Lásd az alábbi képernyőképeket:
     
Most a megadott utótagot vagy előtagot hozzáadtuk az egyes kiválasztott cellákhoz, az alábbi képernyőképen:

Szöveg hozzáadása az összes cella elejéhez vagy végéhez

Adjon hozzá szövegsorokat több cellához

add hozzá a nullákat a számokhoz vagy a szöveghez