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代码中就可以直接使用了。

大功告成！