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

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

申请前 Kutools for Excel请 首先下载并安装.

  如果您想免费试用（30-day) 这个实用程序， 请点击下载，然后按照上述步骤进行操作。

最佳办公生产力工具

在Word，Excel，PowerPoint中启用选项卡式编辑和阅读，发布者，Access，Visio和Project。 在同一窗口的新选项卡中而不是在新窗口中打开并创建多个文档。 每天将您的工作效率提高50％，并减少数百次鼠标单击！