将特定单词更改为阿拉伯字符，包括字符“ー”

Question

我想将“ grape”更改为グレープ，下面是我编写的代码，
但是如果我插入“ー”，它将显示为“？”。

我该如何解决这个问题... ??

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))

希望有帮助。