EXCEL表格中把汉字转换成unicode编码

由于单片机程序的需要，要进行汉字和Unicode的编码的互换，因此要建立一张码表，格式是这样的 {"阿","963F"},

。但是常用汉字好几千个，通过转换软件，一个一个转换出来，然后在复制到程序中，而且不能格式化，会很耗时，而且后期更新也不方便，手工转换的方法不太现实。

因此想到强大的excel表格，

便携自定义模块函数ChW

VBA代码如下：

Function ChW(t)
If InStr(t, "\") Then
s = Split(t, "\")
For i = 0 To UBound(s)
If Left(UCase(s(i)), 1) = "U" Then
ChW = ChW & ChrW("&H" & Mid(s(i), 2))
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 & "{""" & t & """,""" & Hex(s) & """},"        '{"阿","963F"},
End If
Next
End If
End Function

然后在对应单元格输入和公式=ChW(A1)，如下图所示：



转换结果就是目标格式了，



然后复制到keil工程c代码中就可以直接使用了。



大功告成！