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