Excel 怎么写自定义函数,能把汉字转换成Unicode代码?

发布网友 发布时间：2022-04-24 13:57

我来回答

共2个回答

热心网友 时间：2022-04-27 17:26

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

热心网友 时间：2022-04-27 18:44

有现成的，我有