Range.Replace在Office 365版本上无法正常工作

Question

我有一个比较复杂的工作表，已经为我的客户服务了一年多，最近他们向我报告了一个令我感到困惑的问题。

该工作簿会自行创建一个副本，然后执行一些每周任务以删除已完成的任务并提升本周到期的任务。

最后一步是更改命名范围内的字符数。

代码：

Sub No_More_Delays()  
    Range("Com_stat").Replace What:="D", Replacement:="X"
    Range("Com_stat").Replace What:="L", Replacement:="X"
    Range("Com_stat").Replace What:="W", Replacement:="X"
End Sub

症状是只有第一个“命中”有效。因此，如果在任何单元格中有一个D，那么所有D都将更改为X，但是，如果没有D且只有L被所有L取代，如果没有D或L被所有W取代更换。如果存在D，L和W，只有D被替换。如果我更改命令的顺序，将W首先放在D之后，则有D，L和W'所有W都被替换了，别无其他。

这些症状仅发生在他们订阅Office 365的客户办公室。在运行相同操作系统和非Office 365版本的Excel的我的计算机上，一切正常。

有没有其他人遇到过类似的事情，如果有，可以解决此问题。