简单方法：用数组公式判断单元格的值是否为数字、中文、字母

　　一、简单方法

　　①判断是否为数字

　　Sub 判断数字()
　　If IsNumeric(Range("A1")) Then
　　　MsgBox "是数字"
　　Else
　　　MsgBox "不是数字", 64, "提示"
　　End If
　　End Sub

　　②判断是否为文本

　　If Application.IsNonText(Range("A1")) Then
　　　MsgBox "是文本"
　　Else
　　　MsgBox "不是文本", 64, "提示"
　　End If
　　End Sub

　　二、比较复杂的方法

　　{=IF(OR(ABS(CODE(MID(ASC(A2),ROW(INDIRECT("1:"&LEN(A2))),1))-52.5)<5),"数字","")&IF(OR(ABS(CODE(MID(ASC(A2),ROW(INDIRECT("1:"&LEN(A2))),1))-{77.5,109.5})<13),"英文","")&IF(OR(CODE(MID(A2,ROW(INDIRECT("1:"&LEN(A2))),1))>45216),"中文","")}

　　这是一个带有各种函数的数组公式；

Copyright ＠ 2007-2012 敏韬网(敏而好学，文韬武略--MinTao.Net)（学习笔记） Inc All Rights Reserved.
闵涛 E_mail:admin@mintao.net(欢迎提供学习资源)

鄂公网安备 42011102001154号

站长：MinTao ICP备案号：鄂ICP备11006601号-18