VBA 中判断汉字的方法

    For i = 1 To Len(ActiveCell)        If Abs(Asc(Mid(ActiveCell, i, 1))) > 255 Then            MsgBox "Got Chinese char!!"            Exit For        End If    Next i