如何將Excel單元格中的多個空格替換為單個空格？

假設我有一串包含多個空格的文字字串，現在，我需要將這些空格替換成單個空格，以分隔文字，如下方截圖所示。如何一次性將多個空格替換為單個空格，而不用逐一刪除呢？

使用公式將多個空格替換為單個空格

使用Kutools for Excel將多個空格替換為單個空格

使用VBA代碼將多個空格替換為單個空格

使用公式將多個空格替換為單個空格

在Excel中，普通的尋找和替換功能可能無法很好地解決這個問題，因此我們可以應用一個簡單的公式來處理它。請按照以下步驟操作：

1. 在空白單元格中輸入此公式：=TRIM(SUBSTITUTE(A2,CHAR(32)," "))，該單元格位於您要處理的單元格旁邊，請參見截圖：

2. 然後按下Enter鍵獲取結果，並選擇單元格B2，然後將填充柄拖動到您想應用此公式的範圍單元格上，所有額外的空格將從文字字串中移除，並且只會保留單個空格於文字之間。請參見截圖：

使用Kutools for Excel將多個空格替換為單個空格

如果您有其他類型的空格需要移除，例如移除前面的空格、後面的空格或文字的所有空格，我推薦一款強大的工具——Kutools for Excel，其刪除空格功能可以根據您的需求移除任何空格，如前導空格、尾隨空格、所有空格等。

安裝Kutools for Excel後，請按照以下步驟操作：

1. 選擇您想要移除額外空格的資料區域。

2. 點擊Kutools > 文字 > 刪除空格，請參見截圖：

3. 在刪除空格對話框中，從空格類型部分選擇所有多餘的空格，您可以從預覽窗格中查看結果，請參見截圖：

4. 然後點擊確定或應用按鈕，所有額外的空格都已從單元格中移除，並且只會在文字之間保留單個空格。

立即點擊下載Kutools for Excel並免費試用！

使用VBA代碼將多個空格替換為單個空格

如果您對VBA代碼感興趣，我可以為您創建一段代碼來將多個空格替換為單個空格，請按照以下步驟操作：

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

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

VBA代碼：將多個空格替換為單個空格

Sub replace_multiplespaces()
'Updateby Extendoffice
Dim x As Range
Dim Workx As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set Workx = Application.Selection
Set Workx = Application.InputBox("Range", xTitleId, Workx.Address, Type:=8)
    For Each x In Workx
        x = WorksheetFunction.Trim(x)
    Next x
End Sub

3. 然後按F5鍵運行此代碼，將彈出一個提示框，提醒您選擇要移除額外空格的數據範圍，請參見截圖：

4. 然後點擊確定按鈕，所有多餘的空格都已被替換為單個空格於文字之間。