Excel Unicode相关函数与VBA代码

EncodeURL()函数求UTF-8
TRIM(SUBSTITUTE(ENCODEURL(A2),"%"," "))	TRIM函数可去除首尾空格，SUBSTITUTE函数可把%号替换为空格，ENCODEURL函数则把字符转成URL的UTF-8，因此会有%号。
UNICHAR()函数把16进制Unicode转成字符
UNICHAR(HEX2DEC(E2))	HEX2DEC把16进制数转成10进制，UNICHAR函数把10进制数转成字符。
UNICODE()函数把字符转成16进制数
DEC2HEX(UNICODE(A2))	UNICODE函数把字符先转成10进制数，DEC2HEX函数把10进制数16进制数。
字符转16进制UTF-16的VBA代码
Function Char2UTF16(str As String) As String Dim strHex As String Dim i As Integer Dim strChar As String Select Case Len(str) Case Is = 0 Char2UTF16 = "" Case Is > 0 For i = 1 To Len(str) strChar = Mid(str, i, 1) Char2UTF16 = Char2UTF16 + Hex(AscW(strChar)) Next i End Select End Function	在xlsm格式带有宏的Excel文件中，可将模块名Char2UTF16()当作Excel函数使用，xlsx格式的Excel文件可能无法保存VBA宏代码。       右键自定义功能区，可打开Excel选项下的自定义功能区对话框，勾选开发工具，可使开发工具选项卡在功能区出现，即可通过Visual Basic按钮编辑VBA代码。