如何在 Excel 中为单元格区域批量添加前缀或后缀？

使用 Excel 的 CONCATENATE 函数，即可快速为单个单元格添加前缀或后缀。

1. 在空白单元格（例如 ）C1）中输入 =CONCATENATE("Food - ",A1) 函数，然后拖动该单元格的填充柄，覆盖目标区域即可快速为所有单元格添加指定前缀文本。效果如下图所示：

您可以使用 CONCATENATE 函数按如下方式插入前缀、后缀，或同时插入两者：

您可能不熟悉 Excel 中的函数和 VBA 代码，但借助 Kutools for Excel 的 Add Text 功能，即可快速为任意选定区域添加前缀或后缀！

1. 选择要添加前缀或后缀的单元格，然后点击 KutoolsKutools > Text > Text Add Text。

2. 在 Add Text 对话框中，于文本框内输入您的前缀或后缀，根据需要勾选 Before first character 选项（用于添加前缀）或 After last character 选项（用于添加后缀），然后点击 Ok 按钮。
此时，指定的前缀或后缀已一次性添加到所有选中的单元格中。请参见截图：

您也可以使用以下 VBA 代码解决此问题：

1. 选择要添加前缀或后缀的区域。

2. 点击 Developer > Visual Basic Visual Basic，将弹出一个新的 Microsoft Visual Basic for applications 窗口；接着点击 Insert > Module Module，然后输入以下代码：

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. 然后点击 Run 按钮，或按 F5 键运行 VBA。

4. 现在，请在第一个 KutoolsforExcel 对话框中指定要添加前缀或后缀的区域，点击 OK 按钮；随后在第二个 KutoolsforExcel 对话框中输入要添加的前缀或后缀，并点击 OK 按钮。请参见下方截图：
     
现在，指定的前缀或后缀已成功添加到每个选中的单元格中，如下方截图所示：

在所有单元格的开头或末尾添加添加文本

为多个单元格添加文本字符串

为数字或文本添加前导零