不必用VBA,直接用函数:比如你需要判断的数据在A1,可以B1输入公式进行判断:
判断文本的公式:=ISTEXT(A1)
判断数字的公式:=ISNUMBER(A1)
判断日期的公式:=IF(LEFT(CELL("format",A1))="D",IF(--RIGHT(CELL("format",A1))<6,TRUE))
显示TRUE则是,显示TRUE则是FALSE 则不是。
以A1单元格为样本
Application.IsText(Cells(1, 1)) = True "文本"
IsNumeric(Cells(1, 1)) = True "数值"
IsDate(Cells(1, 1)) = True "日期"
Application.worksheetfunction.Isnumber可以判断是否数字,日期我就不清楚了