如何删除Excel中最后一个字符后的所有空格？

如果要删除单元格中最后一个字符（尾随空格）之后的所有空格，您会怎么做？本文将向您展示两种处理方法。

使用VBA代码删除最后一个字符后的所有空格
使用Kutools for Excel轻松删除最后一个字符后的所有空格

使用VBA代码删除最后一个字符后的所有空格

以下VBA代码可以帮助您删除单元格中最后一个字符后的所有空格。

1. 选择需要删除最后一个字符后所有空格的单元格，然后同时按下 Alt + F11 键打开 Microsoft Visual Basic for Applications 窗口。

2. 在 Microsoft Visual Basic for Applications 窗口中，请点击 插入 > 模块。然后复制并将以下VBA代码粘贴到模块窗口中。

VBA代码：删除最后一个字符后的所有空格

Sub NoSpaces()
    Dim xRg As Range
    Dim xTxt As String
    Dim xCell As Range
    On Error Resume Next
    If ActiveWindow.RangeSelection.Count > 1 Then
      xTxt = ActiveWindow.RangeSelection.AddressLocal
    Else
      xTxt = ActiveSheet.UsedRange.AddressLocal
    End If
    Set xRg = Application.InputBox("Please select range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    For Each xCell In xRg
        xCell.Value = RTrim(xCell.Value)
    Next
    Application.ScreenUpdating = True
End Sub

3. 按下 F5 键运行代码，随后会弹出一个 Kutools for Excel 对话框，请选择需要删除最后一个字符后所有空格的区域，然后点击 确定 按钮。

现在，所选单元格中最后一个字符后的所有空格立即被删除。

使用Kutools for Excel轻松删除最后一个字符后的所有空格

在本节中，我们将向您推荐 Kutools for Excel 的 删除空格 工具。通过此工具，您可以根据需要仅需点击几下即可删除尾随空格以及任何类型的空格，例如前导空格或多余空格。

1. 选择需要删除最后一个字符后所有空格的单元格区域。然后点击 Kutools > 文本 > 删除空格。参见截图：

2. 在 删除空格 对话框中，请选择 后面的空格 选项，然后点击 确定 按钮。参见截图：

随后，所选单元格中最后一个字符后的所有空格立即被删除。

备注：如果您想删除所有前面的空格或其他空格，请在 删除空格 对话框中选择相应的选项，并应用该功能。