把, WholeWords:=True删掉WholeWords:=True表示眼被替换的字符必须是完整的一段文字，也就是说文本框中只有A时A才会被替换，如果是AC，则AC都不会被替换如果你还要限制大小写，把那句改成trng.Replace FindWhat:=arr(i), Replacewhat:=brr(i), MatchCase:=True否则小写的a也会被替换成B另外，代码用的是replace替换字符，只会替换字符串中第一次出现的指定字符