Hoe voeg je een voorvoegsel of achtervoegsel toe aan een bereik van cellen in Excel?

De samenvoegfunctie van Excel kan snel een voorvoegsel of achtervoegsel invoegen voor een enkele cel.

1Voer de functie in van =CONCATENATE("Eten - ",A1) in een lege cel, bijvoorbeeld Cel C1, en sleep vervolgens de automatisch invullen-greep van deze cel over het bereik dat je wilt vullen. En aan alle cellen is het specifieke voorvoegseltekst toegevoegd. Zie screenshot:. Zie screenshot:

Je kunt de samenvoegfunctie gebruiken om een voorvoegsel, achtervoegsel of beide toe te voegen zoals hieronder:

Misschien ben je niet bekend met functies en VBA-code in Excel. En deze Tekst Toevoegen tool van Kutools voor Excel helpt je om snel een voorvoegsel of achtervoegsel toe te voegen aan geselecteerde bereiken.

1.  Selecteer de cellen waar je een voorvoegsel of achtervoegsel aan wilt toevoegen, en klik  Kutools > Tekst > Tekst Toevoegen.

2In het Tekst Toevoegen dialoogvenster, voer je voorvoegsel of achtervoegsel in het Tekst vak in, vink de Voor het eerste karakter optie aan (voor het toevoegen van een voorvoegsel) of Na het laatste karakter optie (voor het toevoegen van een achtervoegsel) naar behoefte, en klik op de Ok knop.
En nu wordt het gespecificeerde voorvoegsel of achtervoegsel tegelijkertijd aan elke geselecteerde cel toegevoegd. Zie screenshot:

Je kunt dit probleem ook aanpakken met de volgende VBA-code:

1. Selecteer het bereik waar je een voorvoegsel of achtervoegsel wilt invoegen.

2. Klik Ontwikkelaar > Visual Basic, en een nieuw Microsoft Visual Basic voor applicaties venster verschijnt, klik Invoegen > Module, en voer vervolgens de volgende code in:

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. Klik vervolgens op de knop Uitvoeren of druk op de F5-toets om de VBA uit te voeren.

4Specificeer nu het bereik waaraan je een voorvoegsel of achtervoegsel wilt toevoegen in het eerste KutoolsforExcel dialoogvenster en klik op de OK knop, en typ vervolgens het achtervoegsel of voorvoegsel dat je wilt toevoegen in het tweede KutoolsforExcel dialoogvenster en klik op de OK knop. Zie onderstaande screenshots:
     
Nu is het gespecificeerde achtervoegsel of voorvoegsel toegevoegd aan elke geselecteerde cel zoals in onderstaande screenshot te zien is:

Voeg tekst toe aan het begin of einde van alle cellen

Voeg tekststrings toe aan meerdere cellen

voeg voorloopnullen toe aan getallen of tekst