myget函数如何屏蔽英文

小fisher

全角（中文）括号，逗号等标点替换为半角（英文）可以用Srg = StrConv(Srg, vbNarrow)

xlpeak

小fisher 发表于 2019-1-7 09:20
全角（中文）括号，逗号等标点替换为半角（英文）可以用Srg = StrConv(Srg, vbNarrow)

谢谢！！！

xlpeak

小fisher 发表于 2019-1-7 09:20
全角（中文）括号，逗号等标点替换为半角（英文）可以用Srg = StrConv(Srg, vbNarrow)

请教这个加入到这段话哪里啊，我复制进去还是没有把中文符号替换为英文的
Function MyGet(ByVal s$)
    With CreateObject("vbscript.regexp")
        .Pattern = "(\b[pP][iI]\(\))?[^\^\d.\(\)\{\}+*/-]*"
        .Global = 1
        s = .Replace(StrConv(s, vbNarrow), "$1")
        MyGet = Evaluate(s)
    End With
End Function