一、简单方法

　　①判断是否为数字

　　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),"中文","")}

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