Hoe voegt u een voorvoegsel of achtervoegsel toe aan een bereik van cellen in Excel?

Met de TEKST.SAMENVOEGEN-functie van Excel voeg je in een handomdraai een voorvoegsel of achtervoegsel toe aan een cel.

1. Voer de functie =CONCATENATE(„Food - ",A1) in een lege cel in, bijvoorbeeld cel C1, en sleep vervolgens de automatische invulgreep van deze cel over het bereik dat u wilt vullen. Alle cellen krijgen nu automatisch het opgegeven voorvoegsel. Zie screenshot:

U kunt de TEKST.SAMENVOEGEN-functie gebruiken om een voorvoegsel, achtervoegsel of beide toe te voegen, als volgt:

Mogelijk bent u nog niet bekend met functies en VBA-code in Excel. Met de Add Text-functie van Kutools for Excel voegt u in een handomdraai een voorvoegsel of achtervoegsel toe aan elk geselecteerd bereik.

1. Selecteer de cellen waaraan u een voorvoegsel of achtervoegsel wilt toevoegen en klik op KutoolsKutools > > Add Text Text Add Text.

2. Voer in het dialoogvenster Add Text uw voorvoegsel of achtervoegsel in het vak Tekst in, vink de optie Before first character (voor het toevoegen van een voorvoegsel) of de optie After last character (voor het toevoegen van een achtervoegsel) aan, afhankelijk van wat u nodig hebt, en klik op de knop Ok.
Het opgegeven voorvoegsel of achtervoegsel wordt nu in één keer aan alle geselecteerde cellen toegevoegd. Zie screenshot:

U kunt dit probleem ook oplossen met de volgende VBA-code:

1. Selecteer het bereik waarbij u een voorvoegsel of achtervoegsel wilt toevoegen.

2. Klik op Developer > Visual Basic Visual Basic. Er verschijnt dan een nieuw Microsoft Visual Basic for applications-venster. Klik vervolgens op InsertInsert > Module en voer 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 daarna op de knop Run of druk op de toets F5 om de VBA-code uit te voeren.

4. Geef in het eerste KutoolsforExcel-dialoogvenster het bereik op waaraan u een voorvoegsel of achtervoegsel wilt toevoegen en klik op de knop OK. Typ vervolgens in het tweede KutoolsforExcel-dialoogvenster het gewenste voorvoegsel of achtervoegsel en klik op de knop OK. Zie de onderstaande screenshots:
     
Het opgegeven voorvoegsel of achtervoegsel is nu toegevoegd aan elke geselecteerde cel, zoals in de onderstaande screenshot wordt weergegeven:

Tekst toevoegen aan het begin of einde van alle cellen

Tekstreeksen toevoegen aan meerdere cellen

voorloopnullen toevoegen aan getallen of tekst