嘿，我来帮你拆解这两个在Excel VBA替换操作中遇到的常见问题——都是实际处理文本时很容易踩的坑！

一、特殊空格无法被替换的原因 #

你遇到的"导入的带特殊空格的字符串无法被替换"问题，核心原因是这些空格不是普通的半角空格：

• 普通空格的ASCII码是32，而从其他系统/工作表导入的空格，大概率是非断空格（ASCII 160，常见于网页复制、跨Office文档导入场景），或是全角空格（Unicode U+3000）这类特殊空白字符。
• VBA的Replace方法默认只匹配ASCII 32的普通空格，自然找不到这些特殊空白；而你手动输入的是标准普通空格，所以代码能正常执行替换。

二、圆点替换不彻底的原因 #

关于多个圆点只被替换一部分的情况，大概率是以下两种场景之一：

1. 混淆了不同类型的圆点字符：
   如果你输入的hello......里，其实混杂了全角句号（。，Unicode U+FF0E）或者省略号（…，Unicode U+2026，一个字符等效三个点），而你的代码里What:="."只匹配半角圆点（ASCII 46），这些特殊圆点字符不会被识别替换，看起来就像"剩下四个未处理"。
2. 极罕见的格式冲突：
   极少数情况下，如果单元格文本带有特殊格式（比如部分圆点被设置了隐藏格式、或是从富文本格式导入），SearchFormat:=False的设置可能导致部分匹配项被忽略，但这种情况非常少见。

对应的解决方法 #

针对这两个问题，你可以修改代码来覆盖所有可能的字符类型，同时优化代码效率：

处理所有类型的空格 #

直接针对常见的特殊空白字符补充替换逻辑：

With Columns("P:P")
    ' 替换普通半角空格
    .Replace What:=Chr(32), Replacement:="", LookAt:=xlPart
    ' 替换非断空格（最常见的导入型特殊空格）
    .Replace What:=Chr(160), Replacement:="", LookAt:=xlPart
    ' 替换全角空格（若有需要）
    .Replace What:=ChrW(&H3000), Replacement:="", LookAt:=xlPart
End With

处理所有类型的圆点/省略号 #

补充对全角句号和省略号的替换：

With Columns("P:P")
    ' 替换半角圆点
    .Replace What:=".", Replacement:="", LookAt:=xlPart
    ' 替换全角句号
    .Replace What:=ChrW(&HFF0E), Replacement:="", LookAt:=xlPart
    ' 替换省略号字符
    .Replace What:=ChrW(&H2026), Replacement:="", LookAt:=xlPart
End With

合并优化后的完整代码 #

把两个逻辑整合，同时避免使用Select/Selection（直接操作Range更高效稳定）：

With Columns("P:P")
    ' 处理所有空格类型
    .Replace What:=Chr(32), Replacement:="", LookAt:=xlPart
    .Replace What:=Chr(160), Replacement:="", LookAt:=xlPart
    .Replace What:=ChrW(&H3000), Replacement:="", LookAt:=xlPart
    ' 处理所有圆点类型
    .Replace What:=".", Replacement:="", LookAt:=xlPart
    .Replace What:=ChrW(&HFF0E), Replacement:="", LookAt:=xlPart
    .Replace What:=ChrW(&H2026), Replacement:="", LookAt:=xlPart
End With

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