大小文字区別して置き換え  Sub test()'   大小文字区別して置き換え    Dim exp As String, fnd As String, ···