时间戳

首页 > 解决方案 > 如何从我的 excel 列中删除所有尾随空格？

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

问题描述

我使用修剪功能删除了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

但是，我收到错误：

编译错误：

子或函数未定义

任何帮助，将不胜感激。

编辑：反映的方法更改为建议的“替换”。

标签： excelwhitespacetrimremoving-whitespacevba

解决方案

这是两个部分：

首先转换不间断的空格：

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

推荐阅读