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
VBA 中判断汉字的方法
最新推荐文章于 2020-02-16 23:32:18 发布
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