Wie fügt man einem Zellbereich in Excel ein Präfix oder Suffix hinzu?

Die Funktion CONCATENATE in Excel kann schnell ein Präfix oder Suffix für eine einzelne Zelle einfügen.

1Geben Sie die Funktion =CONCATENATE("Lebensmittel - ",A1) in eine leere Zelle ein, zum Beispiel Zelle C1, und ziehen Sie dann das AutoFill-Handle dieser Zelle über den Bereich, den Sie ausfüllen möchten. Und allen Zellen wurde der spezifische Präfixtext hinzugefügt. Siehe Screenshot:. Siehe Screenshot:

Sie können die CONCATENATE-Funktion verwenden, um Präfix, Suffix oder beides wie folgt einzufügen:

Möglicherweise sind Sie mit Funktionen und VBA-Code in Excel nicht vertraut. Und diese Funktion 'Text hinzufügen' von Kutools für Excel hilft Ihnen, schnell Präfixe oder Suffixe zu beliebigen ausgewählten Bereichen hinzuzufügen.

1.  Wählen Sie die Zellen aus, denen Sie ein Präfix oder Suffix hinzufügen möchten, und klicken Sie auf  Kutools > Text > Text hinzufügen.

2Im Text hinzufügen Dialogfeld geben Sie Ihr Präfix oder Suffix in das Text Feld ein, aktivieren Sie die Option Vor dem ersten Zeichen Option (für das Hinzufügen eines Präfixes) oder Nach dem letzten Zeichen Option (für das Hinzufügen eines Suffixes) je nach Bedarf, und klicken Sie auf die Schaltfläche OK .
Und jetzt wird das angegebene Präfix oder Suffix sofort zu jeder ausgewählten Zelle hinzugefügt. Siehe Screenshot:

Sie können dieses Problem auch mit dem folgenden VBA-Code lösen:

1. Wählen Sie den Bereich aus, in den Sie das Präfix oder Suffix einfügen möchten.

2. Klicken Sie auf Entwickler > Visual Basic, und ein neues Microsoft Visual Basic for Applications-Fenster wird angezeigt. Klicken Sie auf Einfügen > Modul, und geben Sie dann den folgenden Code ein:

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. Klicken Sie dann auf die Schaltfläche Ausführen oder drücken Sie die F5-Taste, um das VBA auszuführen.

4Geben Sie nun den Bereich, dem Sie ein Präfix oder Suffix hinzufügen möchten, im ersten KutoolsforExcel Dialogfeld ein und klicken Sie auf die Schaltfläche OK Schaltfläche, und geben Sie dann das Suffix oder Präfix, das Sie hinzufügen möchten, im zweiten KutoolsforExcel Dialogfeld ein und klicken Sie auf die Schaltfläche OK Schaltfläche. Siehe unten stehende Screenshots:
     
Jetzt wurde das angegebene Suffix oder Präfix wie im folgenden Screenshot gezeigt zu jeder ausgewählten Zelle hinzugefügt:

Text am Anfang oder Ende aller Zellen hinzufügen

Textstrings zu mehreren Zellen hinzufügen

führende Nullen zu Zahlen oder Text hinzufügen