如何在單元格中每x個字符添加/插入某些字符？

假設我有一個文本字符串列表，我想在每四個字符插入單元格後插入破折號或任何其他分隔符，以獲取以下屏幕截圖結果。 插入特定字符所需的單元格過多，是否有快速方法在Excel中每四個字符插入破折號？

使用VBA代碼將每個x字符中的某些字符插入到單元格中

使用Kutools for Excel將每個x字符中的某些字符插入單元格

使用VBA代碼將每個x字符中的某些字符插入到單元格中

您可以應用以下VBA代碼在單元格中每四個字符後插入一個特定字符，請執行以下操作：

1。 按住 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。 並點擊 OK，請在以下提示框中輸入您要在其後插入某些字符的數字，請參見屏幕截圖：

5。 繼續點擊 OK，然後在隨後的提示框中，輸入要添加到文本中的特定字符，請參見屏幕截圖：

6。 點擊 OK 按鈕，然後在提示框中選擇要在其中輸出結果的一個單元格，請參見屏幕截圖：

7。 最後點擊 OK，該字符已每四個字符插入到每個文本字符串中，請參見屏幕截圖：

使用Kutools for Excel將每個x字符中的某些字符插入單元格

對於大多數Excel初學者來說，上面的代碼可能有些困難，在這裡，我可以介紹一個方便的工具- Kutools for Excel，其 添加文本 功能，您可以在單元格值的之前，之後或某些位置快速添加特定的文本或字符。

如果你已經安裝 Kutools for Excel，請執行以下操作：

1。 選擇要插入特定字符的數據范圍。

2。 然後點擊 庫工具 > 文本 > 添加文本，請參見屏幕截圖：

3。 在 添加文本 對話框中，指定要插入的字符 文本 框，然後選擇 從位置指定 部分，在文本框中輸入要在其後插入字符的位置，同時，您可以在右側窗格中預覽結果，請參見屏幕截圖：

保養竅門：在這裡，我在的文本框中輸入4,8,12 指定 表示在文本字符串的第4、8和12個字符之後插入特定文本。

4. 然後點擊 Ok or 登記 按鈕，指定的字符已插入到單元格值中的特定位置。

單擊以了解有關此“添加文本”實用程序的更多詳細信息。

立即下載和免費試用Excel的Kutools！

演示：使用Kutools for Excel將每x個字符中的某些字符插入單元格

最佳辦公效率工具

Kutools for Excel解決了您的大多數問題，並使您的生產率提高了80％

• 重用: 快速插入 複雜的公式，圖表 以及您以前使用過的任何東西； 加密單元 帶密碼 創建郵件列表 並發送電子郵件...
• 超級公式欄 （輕鬆編輯多行文本和公式）； 閱讀版式 （輕鬆讀取和編輯大量單元格）； 粘貼到過濾範圍...
• 合併單元格/行/列 不會丟失數據； 拆分單元格內容； 合併重複的行/列...防止細胞重複； 比較範圍...
• 選擇重複或唯一 行; 選擇空白行 （所有單元格都是空的）； 超級查找和模糊查找 在許多工作簿中； 隨機選擇...
• 確切的副本 多個單元格，無需更改公式參考； 自動創建參考 到多張紙； 插入項目符號，複選框等...
• 提取文字，添加文本，按位置刪除， 刪除空間; 創建和打印分頁小計； 在單元格內容和註釋之間轉換...
• 超級濾鏡 （將過濾方案保存並應用於其他工作表）； 高級排序 按月/週/日，頻率及更多； 特殊過濾器 用粗體，斜體...
• 結合工作簿和工作表; 根據關鍵列合併表； 將數據分割成多個工作表; 批量轉換xls，xlsx和PDF...
• 超過300種強大功能。 支持Office / Excel 2007-2019和365。支持所有語言。 在您的企業或組織中輕鬆部署。 完整功能30天免費試用。 60天退款保證。

閱讀更多... 免費下載... 採購... 

---

Office選項卡為Office帶來了選項卡式界面，使您的工作更加輕鬆

• 在Word，Excel，PowerPoint中啟用選項卡式編輯和閱讀，發布者，Access，Visio和Project。
• 在同一窗口的新選項卡中而不是在新窗口中打開並創建多個文檔。
• 每天將您的工作效率提高50％，並減少數百次鼠標單擊！

閱讀更多... 免費下載... 採購...