宏去除单元格最后空格

录入宏
工具->宏->Visual Basic编辑器
在工程中插入->模块
输入代码
Sub csum()
Dim cell As Object
For Each cell In Selection
If IsNumeric(Right(cell, 1)) Then
Else
cell = Left(cell, Len(cell) - 1)
End If
Next cell
End Sub

alt+f8 执行 宏

最后是数字则不删除，不是则删除