如何在VBA中正确移除字符串中的不间断空格（Chr(160)）

为什么你的Replace代码没生效？ #

先排查两个核心问题：

• 确认目标字符真的是Chr(160)：有时候视觉上像不间断空格的可能是其他字符（比如全角空格Chr(12288)、空字符Chr(0)）。可以用Asc(Mid(你的字符串, 疑似空格位置, 1))输出ASCII码，确认是否为160。
• 检查变量类型与函数调用：确保s是String类型（如果是Variant，建议先转换为String再操作），且函数调用无拼写错误——VBA的Replace大小写不敏感，但参数顺序不能错：Replace(源字符串, 要替换的字符, 替换后的字符)。

正确高效的Replace用法 #

如果确认是Chr(160)，直接用原生Replace就能快速处理，比自定义循环函数快几个量级：

' 把不间断空格替换为普通空格
s = Replace(s, Chr(160), " ")

' 如果要直接移除不间断空格，替换为空字符串
s = Replace(s, Chr(160), vbNullString)

批量处理多类型空格的高效方案 #

如果你的字符串里可能混有多种空白字符（比如全角空格、制表符），可以用正则表达式一次性批量替换，效率同样很高：

Dim regEx As Object
Set regEx = CreateObject("VBScript.RegExp")
regEx.Global = True ' 全局替换所有匹配项
regEx.Pattern = Chr(160) ' 仅匹配不间断空格
' 若要匹配所有空白类字符，把Pattern改为 "\s"

s = regEx.Replace(s, " ") ' 替换为普通空格，或vbNullString直接移除
Set regEx = Nothing

验证替换效果 #

可以用这段测试代码快速验证：

Dim testStr As String
testStr = "测试" & Chr(160) & "字符串"
Debug.Print "替换前: " & testStr
Debug.Print "空格ASCII码: " & Asc(Mid(testStr, 3, 1)) ' 应输出160
testStr = Replace(testStr, Chr(160), " ")
Debug.Print "替换后: " & testStr

内容的提问来源于stack exchange，提问作者DaveInDev