VBA实用功能：删除字符最末尾的空格

功能需求：只需要删除字符末尾的空格，不需要删除中间的空格。

1. 选择要删除末尾空格字符的单元格，然后按 Alt+F11打开 Microsoft Visual Basic应用程序 窗口

2. 在里面 Microsoft Visual Basic应用程序 窗口，点击sheet1打开

然后将以下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:", "tools 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.按 Alt+F8键来打开代码Macro，选择刚刚写好的代码，Run后弹出对话框，请选择您要删除最后一个字符后的所有空格的范围（不能选择整列，可能会造成卡死，选择到最后数据行即可），然后单击 OK 按钮

不能选择整列，可能会造成卡死，选择到最后数据行即可。