Excel中Unicode如何转换为汉字

1、Microsoft Visual 添加模块

2、添加函数

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
ゥゥ…………

 

3、解析数据