代码之家 › 专栏 › 技术社区 › obizues

如何从excel列中删除所有尾随空格?

vba removing-whitespace trim whitespace excel

obizues · 技术社区 · 6 年前

我使用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

但是,我得到了一个错误:

编译错误:

未定义子或函数

任何帮助都将不胜感激。

编辑:根据建议将反映的方法更改为“替换”。

1 回复 | 直到 6 年前

obizues 6 年前

它由两部分组成:

首先转换非打断空格:

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

推荐文章

CPS · 当变量值为空时,在另一个变量中赋值

2 年前

xris23 · 通过VBA选择命名范围,让用户直接编辑单元格

2 年前

Stormer · 从Access格式化Excel单元格无效

2 年前

j johns · 通过VBA将ascii art添加到命令提示符

2 年前

BinaryCat · Excel-将单元格转换为具有成对数据的行

2 年前

Waleed · 以下拆分函数的(0)表示什么?

2 年前

judo_ürgens · vlookup和sumif(每个项目的总利润)

2 年前

Louay Alkhawam · 在任意多个列中计算包含子字符串*[橙色]*的行,而不重复计算?

2 年前

smrmodel78 · VBA创建表格未选择正确的范围

2 年前

HouÅ¡tí · 如何检测鼠标释放

2 年前