如何在 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. 按一下 DeveloperDeveloper > Visual Basic，將開啟新的 Microsoft Visual Basic for applications 視窗；接著按一下 InsertInsert > 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 按鈕。操作畫面請參閱下列截圖：
     
現在，指定的前置或後置字串已如以下截圖所示，成功加入每個選取的儲存格中：

在所有儲存格開頭或結尾加入添加文本

為多個儲存格新增文字字串

為數字或文字新增前置零