首页 > 解决方案 > 将特定单词更改为阿拉伯字符,包括字符“ー”

问题描述

我想把“葡萄”改成グレープ,下面是我写的代码,
但是如果我插入“ー”,它会显示为“?”。

我怎么解决这个问题...??

Sub change_name()

    Dim c As Range

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

标签: excelvba

解决方案


尝试将 グレープ 存储在命名范围中。公式 > 名称管理器 > 新建 >

"ReplaceText",指的是:="グレープ"

然后调整你的 For 循环:

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

希望能帮助到你。


推荐阅读