1、开启开发功能：菜单单击文件-选项-自定义功能区，添加开发工具到主工具区
2、插入一个模块，并插入一个模块
3、添加如下代码：Function ChW(t) If I艘绒庳焰nStr(t, "\u") Then s = Split(t, "\u") For i = 0 To UBound(s) If Len(s(i)) > 3 Then ChW = ChW & ChrW("&H" & Left(s(i), 4)) & Mid(s(i), 5) Else ChW = ChW & s(i) End If Next Else For i = 1 To Len(t) s = AscW(Mid(t, i, 1)) If s > 0 And s < 255 Then ChW = ChW & Mid(t, i, 1) Else ChW = ChW & "\u" & LCase(Hex(s)) End If Next End IfEnd Function保存
4、输入公式即可
5、拖动扩展至需要转换区域
