你的问题根源出在查找模式的通配符使用上！你用的" *"会匹配一个空格加上任意长度的后续内容，替换时自然会把空格后面的文本一并删掉，这可不是你想要的效果。

下面给你两种适配需求的解决方案：

方案1：精准替换双空格（简单直接） #

如果核心需求就是把所有连续两个空格替换成换行，同时完整保留空格后的文本，直接修改查找内容为双空格即可：

.Replace What:="  ", Replacement:=Chr(10), LookAt:=xlPart

这个写法只会替换连续的两个空格，完全不会触动后面的文本，完美解决你最初的问题。

方案2：仅替换“双空格后有文本”的情况（更精准） #

如果需要严格满足“仅对空格后存在文本的情况执行替换”（比如忽略字符串末尾的双空格），可以用VBA的正则表达式实现更精准的匹配：

Dim regEx As Object
Set regEx = CreateObject("VBScript.RegExp")
regEx.Global = True ' 开启全局匹配，处理所有符合条件的内容
regEx.Pattern = "  (?=\S)" ' 匹配两个空格，且后面必须跟着非空白字符

' 执行替换（yourRange替换为你实际操作的单元格/区域）
yourRange.Value = regEx.Replace(yourRange.Value, Chr(10))

这里的(?=\S)是正向预查规则，意思是“空格后面必须跟着非空白字符（即有文本内容）”，这样就只会替换那些后面还有文本的双空格，末尾无内容的双空格会被自动忽略。

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