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

Question

此代码应将单词替换为用户键入的大小写，而是始终替换为忽略大小写的第一个搜索。

关于如何修复它有什么想法吗？

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。