如何在 Excel 儲存格中每隔 X 個字元加入或插入特定字元

作者Xiaoyang修改日期2024-11-20

在 Excel 中，若需手動於文字字串的固定間隔（例如每隔幾個字元）插入分隔符號（如連字符）或其他特定字元，往往費時又費力。舉例來說，若要在多個儲存格的文字中每隔四個字元加入一個連字符，就需要更有效率的解決方式。本文提供兩種簡易方案：使用 VBA 程式碼，或透過 Kutools for Excel 的「添加文字」功能，即可輕鬆在固定間隔無縫插入指定字元。

使用 VBA 程式碼在儲存格中每隔 x 個字元插入特定字元

使用 Kutools for Excel 在儲存格中每隔 x 個字元插入特定字元

在 Excel 中每隔第 4 個位置插入字元的範例

使用 VBA 程式碼在儲存格中每隔 x 個字元插入特定字元

您可以套用以下 VBA 程式碼，在儲存格中每隔四個字元插入特定字元，請依下列步驟操作：

1. 在 Excel 中按住 ALT + F11 鍵，即可開啟 Microsoft Visual Basic for Applications 視窗。

2. 點選插入＞模組，並將下列程式碼貼到模組視窗中。

VBA 程式碼：在儲存格中每隔 x 個字元插入特定字元

Sub InsertCharacter()
'Updateby Extendoffice
Dim Rng As Range
Dim InputRng As Range, OutRng As Range
Dim xRow As Integer
Dim xChar As String
Dim index As Integer
Dim arr As Variant
Dim xValue As String
Dim outValue As String
Dim xNum As Integer
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
xRow = Application.InputBox("Number of characters :", xTitleId, Type:=1)
xChar = Application.InputBox("Specify a character :", xTitleId, Type:=2)
Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type:=8)
Set OutRng = OutRng.Range("A1")
xNum = 1
For Each Rng In InputRng
    xValue = Rng.Value
    outValue = ""
    For index = 1 To VBA.Len(xValue)
        If index Mod xRow = 0 And index <> VBA.Len(xValue) Then
            outValue = outValue + VBA.Mid(xValue, index, 1) + xChar
        Else
            outValue = outValue + VBA.Mid(xValue, index, 1)
        End If
    Next
    OutRng.Cells(xNum, 1).Value = outValue
    xNum = xNum + 1
Next
End Sub

3. 按下 F5 鍵執行此程式碼後，系統將彈出提示視窗，要求您選取欲插入特定字元的資料區域。請參見下方截圖：

用於選取要插入字元之資料範圍的提示方塊

4. 點選確定後，在接下來的提示視窗中輸入您希望每隔多少字元插入一次特定字元的數值，請參見截圖：

用於指定插入字元間隔位數的提示方塊

5. 繼續點選確定，在隨後出現的提示視窗中輸入您想加入文字中的特定字元，請參見截圖：

用於輸入要插入之特定字元的提示方塊

6. 點選確定按鈕，並在提示視窗中選擇一個儲存格來輸出結果，請參見截圖：

用於選擇輸出結果之儲存格的提示方塊

7. 最後點選確定，指定字元將會每隔四個字元插入至每個文字字串中。請參見下方截圖：

在 Excel 儲存格中每隔第 4 個位置插入字元後的結果

使用 Kutools for Excel 在儲存格中每隔 x 個字元插入特定字元

對 Excel 初學者來說，VBA 程式碼可能稍嫌複雜。這裡有個更簡單的替代方案：Kutools for Excel！善用其添加文本功能，即可快速在儲存格內容的開頭、結尾或指定位置加入所需文字或字元，輕鬆提升效率！

Kutools for Excel 提供超過 300 項進階功能，簡化複雜作業，提升創造力與效率。整合 AI 功能，Kutools 能精準自動化各項任務，讓資料管理輕鬆無負擔。Kutools for Excel 的詳細資訊…… 免費試用……

1. 選取您要插入特定字元的資料範圍。

2. 接著點選 Kutools> 文字> 添加文本，請參見截圖：

Kutools for Excel Excel 功能區中的「新增文字」選項

3. 在添加文本對話方塊中，於文字欄位輸入欲插入的字元；在位置區段中，選擇指定並輸入字元應插入的位置。您可於右側窗格即時預覽結果，詳情請參見下方截圖：

Kutools for Excel 中「新增文字」工具的預覽，顯示指定的插入位置

提示：我在指定文字框中輸入 4、8、12，表示要在文字字串的第 4、8 和 12 個字元後插入指定文字。

4. 接著點選確定或套用按鈕，即可將指定字元插入至儲存格內容的特定位置。

按此深入了解此添加文字功能的詳細資訊。

Kutools for Excel－透過超過 300 項必備工具全面強化 Excel，讓您的工作更快速、更輕鬆，並運用 AI 功能實現更聰明的資料處理與高效生產力！立即取得

示範：使用 Kutools for Excel 在儲存格中每隔 x 個字元插入特定字元

Kutools for Excel：超過 300 種實用工具隨手可得！盡享 AI 驅動功能，讓工作更聰明、更快速！立即下載！

最佳 Office 生產力工具

🤖	KUTOOLS AI 助手：基於以下內容徹底革新數據分析：智慧執行｜產生程式碼｜建立自訂公式｜分析資料並產生圖表｜呼叫增強函數……
	熱門功能：尋找、醒目提示或標記重複值｜刪除空白行｜合併列或儲存格而不遺失資料｜不使用公式的四捨五入……
	高級 LOOKUP：多重條件 VLookup ｜多重數值 VLookup ｜跨多個工作表 VLookup ｜模糊查找……
	高級下拉列表：快速建立下拉式清單｜相依式下拉式清單｜多選下拉式清單……
	欄位管理員：新增指定數量的欄位｜移動欄位｜切換隱藏欄位的可見狀態｜比較範圍與欄位……
	精選功能：網格聚焦｜設計視圖｜增強編輯欄｜工作簿與工作表管理員｜資源庫（自動文字）｜日期提取｜合併工作表｜加密／解密儲存格｜依清單傳送電子郵件｜超級篩選｜特殊篩選（篩選粗體儲存格／斜體／刪除線……） ......
	頂尖 15 工具組：12 文字工具（添加文本，刪除特定字符，……）｜ 50+ 圖表類型（甘特圖，……）｜ 40+ 實用公式（基於生日計算年齡，……）｜ 19 插入工具（插入二維碼，從路徑插入圖片，……）｜ 12 轉換工具（金額轉大寫，匯率轉換，……）｜ 7 合併和拆分工具（高級合併行，分割儲存格，……）｜……以及更多