Изменить определенное слово на арабские символы, включая символ "" "

Question

Я хочу изменить "grape" на グ レ ー プ, и ниже приведен код, который я написал,
, но если я вставлю "it", он отобразится как "?".

Как я могу решить эту проблему... ??

Sub change_name()

    Dim c As Range

    For Each c In Selection
            c.Value = Replace(c.Value, "grape", "グレ?プ")       
    Next
End Sub

Answer 1

Попробуйте сохранить グ レ ー プ в именованном диапазоне.Формулы> Менеджер имен> Новый>

"ReplaceText", Относится к: = "グ レ ー プ"

Затем настройте цикл For с помощью:

c.Value = Replace(c.Value, "grape", Evaluate(Names("ReplaceText").Value))

Надеюсь, это поможет.