用于将特殊字符转换为字母数字的宏

Question

我正在编写一个VB脚本，将字母数字转换为特殊字符，反之亦然。当我尝试将字母数字值转换为特殊字符时，该脚本运行良好，但是当我尝试将特殊字符转换为字母数字时，它只返回"X"。我不知道为什么。我已经粘贴了下面的代码。任何帮助，不胜感激。

fnd = Array("~","",">","!","@","#")
rplc = Array("A", "B", "C","1","2","3")
For x = LBound(fnd) To UBound(fnd)
'Loop through each worksheet in ActiveWorkbook
For Each sht In ActiveWorkbook.Worksheets
sht.Cells.Replace What:=fnd(x), Replacement:=rplc(x), _
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=True, _
SearchFormat:=False, ReplaceFormat:=False
Next sht  
Next x

Answer 1

某些字符在他们之前需要一个转义字符。所以我换了

"~", "*", "?"

跟

"~~", "~*", "~?"

它奏效了。感谢您的所有帮助。