如何让VBA的Replace方法实现单元格精确匹配替换？

你遇到的问题是因为Excel VBA的Replace方法默认采用部分匹配（即只要单元格内容包含指定字符串就会替换），所以才会把"not completed"里的"No"也替换掉。要实现精确匹配，只需在Replace方法中添加LookAt:=xlWhole参数，该参数会强制要求单元格内容与What指定的字符串完全一致才执行替换。

修改后的代码如下：

Columns("E").Replace What:="YES", Replacement:="Completed", LookAt:=xlWhole
Columns("E").Replace What:="No", Replacement:="Not Completed", LookAt:=xlWhole

额外说明：

• xlWhole是Excel内置常量，代表精确匹配；与之对应的xlPart是默认的部分匹配逻辑。
• 如果需要区分大小写（比如只替换大写的"YES"，不替换小写的"yes"），可以额外添加MatchCase:=True参数。

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