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を参照してください。