【一步一步学习VBA】Excel VBA 获取当前单元格的数据类型

从上一篇文章我们已经可以获取某单元格的数据，现在我们只要执行：MsgBox VarType(curCell)就可以获取到类型，完整代码如下：

Sub Macro1()
'
' Macro1 Macro
' 宏由 cq 录制，时间: 2016/08/02
x = Sheets("Sheet1").[a5]
MsgBox VarType(curCell)
End Sub

我们会在弹窗看到一个数字，这个就是我们数据类型，下面这张表就是数据类型对应的值：（我们可以从excel帮助获得）

常数	值	描述
vbEmpty	0	未初始化（缺省值）
vbNull	1	不含任何有效数据
vbInteger	2	Integer
vbLong	3	长整数
vbSingle	4	单精度浮点数
vbDouble	5	双精度浮点数
vbCurrency	6	Currency
vbDate	7	Date
vbString	8	String
vbObject	9	对象
vbError	10	错误
vbBoolean	11	Boolean
vbVariant	12	Variant（只用于变体的数组类型）
vbDataObject	13	数据访问对象
vbDecimal	14	Decimal
vbByte	17	Byte
vbLongLong	20	LongLong 整型（只在 64 位平台上有效。）
vbUserDefinedType	36	包含用户定义类型的变量
vbArray	8192	数组