Excel中Unicode如何转换为汉字

Function ChW(t)

    If InStr(t, "\u") Then

        s = Split(t, "\u")

        For i = 0 To UBound(s)

            If Len(s(i)) > 3 Then

                ChW = ChW & ChrW("&H" & Left(s(i), 4)) & Mid(s(i), 5)

            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 & "\u" & LCase(Hex(s))

            End If

        Next

    End If

End Function