如何在單元格中的每個x字符後插入/添加空格？

現在，如果工作表列表中有多個文本字符串，則要在單元格中每3個或x個字符後插入空格，如下圖所示。 您如何在Excel中快速輕鬆地解決此問題？

使用VBA代碼的單元格中的每個x字符後插入/添加空格 使用Kutools for Excel在單元格中每x個字符後插入/添加空格

---

使用VBA代碼的單元格中的每個x字符後插入/添加空格

應用以下VBA代碼，您可以一次在多個單元格的每n個字符後快速插入一個空格，請執行以下操作：

1。 按住 ALT + F11 鍵打開 Microsoft Visual Basic for Applications 窗口。

2。 然後點擊 插入 > 模塊，然後將以下代碼粘貼到 模塊 窗口。

VBA代碼：每x個字符後插入一個空格：

Sub addspace()
'updateby Extendoffice
    Dim i As Long
    Dim xCell As Range
    Dim xRg As Range
    Dim xTxt As String
    Dim xStr As String
    Dim xUpdate As Boolean
    On Error Resume Next
    xTxt = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
    Set xRg = Application.Intersect(xRg, xRg.Worksheet.UsedRange)
    If xRg Is Nothing Then Exit Sub
    xUpdate = Application.ScreenUpdating
    Application.ScreenUpdating = False
    For Each xCell In xRg
        xStr = xCell.Text
        xTxt = ""
        For i = 1 To Len(xStr) Step 4
            If xTxt = "" Then
                xTxt = Mid(xStr, i, 4)
            Else
                xTxt = Trim(xTxt) & " " & Mid(xStr, i, 4)
            End If
        Next
        xCell = xTxt
    Next
    Application.ScreenUpdating = xUpdate
End Sub

3。 然後按 F5 鍵運行此代碼，然後在提示框中，選擇要向其插入空格的單元格，請參見屏幕截圖：

4。 然後點擊 OK 按鈕，並且每四個字符之後的空格已插入到單元格內容中，請參見屏幕截圖：

備註：在上面的代碼中，您可以更改數字 4 到其他數字後插入空格。 您也可以在此規則中將定界符空間更改為另一個定界符 xTxt = Trim（xTxt）＆“”＆Mid（xStr，i，4） 以上代碼。

---

使用Kutools for Excel在單元格中每x個字符後插入/添加空格

Excel的Kutools“ 添加文本 功能還可以幫助您快速輕鬆地解決此問題。

Excel的Kutools : 帶有300多個便捷的Excel加載項，可以在30天內免費試用.

前往下載 30天免費試用購買 貝寶/ MyCommerce

安裝後 Excel的Kutools，請執行以下操作： 立即免費下載Kutools for Excel！ )

1。 選擇要插入空格的文本字符串。

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

3。 在 添加文本 對話框中，按一下空格鍵 文本 框，然後選擇 指定 選項下 位置，然後輸入要插入空格的位置，請參見屏幕截圖：

4。 然後點擊 Ok or 登記 按鈕，您將得到以下結果：根據需要在每四個字符後插入空格。

保養竅門：“指定”文本框中的位置數應以逗號分隔。

立即免費下載Kutools for Excel！

---

相關文章：

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