Cacher is the code snippet organizer for pro developers

TypeName(i)="Single" '就是单精度浮点数
TypeName(i)="String" '就是字符串


用VarType获得变量以及单元格的数据类型，数值类型值为5（vbDouble）、空类型为0（vbEmpty）、字符串类型为8（vbString ）
实际上VB还有vbLong、vbDecimal等类型，但单元格为数值时默认是vbDouble

If VarType([a1]) = vbDouble Then


IsNumeric  
判断变量的值是否为数值  
isdate  
判断变量的值是否为日期  
isnull  
判断变量的值是否包含任何有效数据  
isempty  
判断变量的值是否为空  
IsArray         
 判断出变量是否为一个数组。  
IsError  
判断变量是否返回的是一个错误值  
IsObject  
判断变量是否表示对象变量


Select Case True
Case Application.IsText(Cells(X, 1))
MST = "文本"
Case Application.IsLogical(Cells(X, 1))
MST = "逻辑值"
Case IsEmpty(Cells(X, 1))
MST = "空值"
Case IsNumeric(Cells(X, 1))
MST = "数值"
Case Application.IsErr(Cells(X, 1))
MST = "错误值"
Case IsDate(Cells(X, 1))
MST = "日期"
End Select