Excel 怎么写自定义函数，能把汉字转换成Unicode代码？ 50

效果如图，A列为要转换的汉字，B列是注释，C列为输出结果：Unicode码加上注释... 效果如图，A列为要转换的汉字，B列是注释，C列为输出结果：Unicode码加上注释展开

 我来答

2个回答

#热议# 网上掀起『练心眼子』风潮，真的能提高情商吗？

一瓶秋水
推荐于2017-07-19 · TA获得超过315个赞

知道小有建树答主

回答量：250

采纳率：50%

帮助的人：71.9万

我也去答题访问个人页

关注

展开全部

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