如何使用Excel VBA替换功能区分大小写？

Question

此代码应该用用户输入的大小写替换单词，而不是替换为忽略大小写的第一个searc。

有关如何修复它的任何想法？

Sub chaser()

Range(Range("B15"), Range("B15").End(xlDown)).Replace what:="Part of chair", replacement:="Chair part"
Range(Range("B15"), Range("B15").End(xlDown)).Replace what:="part of chair", replacement:="chair part"

End Sub

结果：

Chair part
Chair part

应该是：

Chair part
chair part

有什么想法吗？

Answer 1

您需要使用MatchCase标准; MatchCase:=True。

只需将其添加到现有语句的末尾：

Sub chaser()

Range(Range("B15"), Range("B15").End(xlDown)).Replace what:="Part of chair", replacement:="Chair part", MatchCase:=True
Range(Range("B15"), Range("B15").End(xlDown)).Replace what:="part of chair", replacement:="chair part", MatchCase:=True

End Sub

有关Range.Replace的详细信息，请参阅HERE。