如何从我的 excel 列中删除所有尾随空格？

Question

我使用 trim 函数删除了 excel 中名称列列表中的尾随空格。但是，仍然有不少名字在没有被删除的名字后面有额外的空格。

我也尝试创建自己的：

Sub NoSpaces()
    Dim c As Range
    For Each c In Selection.Cells
        c.Value = Replace(c.Value, Chr(160), Chr(32))
    Next
End Sub

但是，我收到错误消息：

Compile Error:

Sub or Function not defined

如有任何帮助，我们将不胜感激。

编辑：反映方法已按照建议更改为 "Replace"。

Answer 1

它是两个部分：

首先转换不间断空格：

Sub ConvertNonBreakingSpaces()
Dim c As Range
    For Each c In Selection.Cells
        c.Value = Replace(c.Value, Chr(160), Chr(32))
    Next
End Sub

然后使用Trim函数删除所有正常空格(chr(32))。

Sub ClearSpaces()
Dim c As Range
    For Each c In Selection.Cells
        c.Value = Trim(c.Value)
    Next
End Sub

如何从我的 excel 列中删除所有尾随空格？

How can I remove all trailing whitespace from my excel column?

excel

whitespace

vba

trim

removing-whitespace