Excel中Unicode如何转换为汉字

Excel中Unicode如何转换为汉字

Excel中会遇到诸如\u9b4f\u5609的Unicode编码，下文介绍如何把Unicode转换为汉字

开启开发功能：菜单单击文件-选项-自定义功能区，添加开发工具到主工具区

插入一个模块，并插入一个模块

添加如下代码：

Function ChW(t)

If InStr(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 If

End Function

保存

输入公式即可

拖动扩展至需要转换区域