[已解决]请教：

走进EXCEL

请问：

Application.WorksheetFunction.IsNumber(“A1”) '使用工作表函数检查A1单元格中的数据是否为数字

那么，使用工作表函数检查A1单元格中的数据是否为汉字、英文又是怎么表达？

最佳答案

月排行榜 / 总排行榜

白开水的味道

2010-12-6 11:52

判断一个字符串中是否有汉字,vba中默认英文字符串都是Unicode，双字节，如果转化为vbFromUnicode就变成单字节， 汉字还是双字节，如果转换之前的字符长度与转化之后的字节长度相等（LenB是计算字符的字节长度的函数）， 说明不含中文字符，反之含有中文字符。

跳转到最佳答案楼层

白开水的味道

用vba的函数isnumeric可以判断数字

判断文本用istext

白开水的味道

判断一个字符串中是否有汉字,vba中默认英文字符串都是Unicode，双字节，如果转化为vbFromUnicode就变成单字节， 汉字还是双字节，如果转换之前的字符长度与转化之后的字节长度相等（LenB是计算字符的字节长度的函数）， 说明不含中文字符，反之含有中文字符。

liuguansky

汉字4E00-9FA5或"一"-"龥"

英文A-Za-z

用LIKE进行比较，或者正则匹配。

爱疯

Sub b()
    Select Case Asc(Range("a1"))
    Case Is < 0
        MsgBox "汉字"
    Case 48 To 57
        MsgBox "数字"
    Case 65 To 90
        MsgBox "大写字母"
    Case 97 To 122
        MsgBox "小写字母"
    End Select
End Sub

[em09]

走进EXCEL

谢谢各位，收藏了！