如何将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. 然后点击确定按钮，所有多余的空格都已被替换为单个空格。