嘿，这个坑我之前也踩过！你遇到的问题本质是Excel的自动格式识别机制在捣乱：虽然你用CStr()把单元格内容转成了字符串，但当你把处理后的结果写回单元格时，Excel看到5 - 10这种格式，会自动把它解析成日期（也就是5月10日），完全忽略你原本想要的字符串形式。

下面给你两个靠谱的解决方案：

方案1：先设置单元格为文本格式再赋值 #

先把目标单元格的格式改成文本类型，从根源上阻止Excel自动转换内容格式，代码如下：

With .Range("D5")
    .NumberFormat = "@" ' 强制设置为文本格式
    .Value = Replace(.Value, "bis", " - ") ' 执行替换并赋值
End With

方案2：给字符串加前缀单引号（强制文本） #

如果不想修改单元格的默认格式，可以在替换后的字符串前加一个单引号（'）——Excel会把单引号开头的内容强制当作文本处理，而且这个单引号不会在单元格中显示出来：

.Range("D5") = "'" & Replace(.Range("D5").Value, "bis", " - ")

补充说明 #

你之前用CStr()无效的原因是：CStr()只是把单元格的值在VBA代码里转成了字符串，但当你把这个字符串写回Excel单元格时，Excel的自动类型转换规则会优先生效，只要内容符合日期格式（比如数字 - 数字），就会自动转成日期类型。

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