如何在 Excel 中移除/删除最后一个字符后的所有空格?

ms excelmicrosoft technologiesadvanced excel function更新于 2025/3/18 2:52:17

本文将引导您完成一个简单的分步过程，以有效地清理数据并删除可能导致 Excel 工作表出现错误或问题的任何尾随空格。尽管尾随空格经常被忽视，但它们可能会在完成计算、排序数据或生成报告时导致意外问题。

无论您的 Excel 熟练程度如何，本课程都适合新手和经验丰富的用户，并提供清晰的指导和实用的提示。在开始之前，请确保您对 Microsoft Excel 有基本的了解，并且已将其安装在您的计算机上。让我们整理您的数据，并创建更简洁、更高效的 Excel 工作簿。

移除/删除最后一个字符后的所有空格

在这里，我们将首先创建一个 VBA 模块来选择单元格区域以完成任务。让我们看一个简单的过程，了解如何在 Excel 中删除最后一个字符后的所有空格。

步骤 1

假设有一个 Excel 工作表，其中有一个字符串列表，最后一个字符后有空格，类似于下图。

首先，右键单击工作表名称，然后选择"查看代码"以打开 VBA 应用程序。

右键单击 >"查看代码"。

步骤 2

然后点击"插入"，选择"模块"，然后将以下代码复制到文本框中。

插入 >"模块">"复制"。

代码

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:", "Remove Spaces Last", 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