一、简单方法
①判断是否为数字
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),"中文","")}
这是一个带有各种函数的数组公式；