Question

VBA 类型不匹配 （数组和单元格）

dim dataNum(4) as integer
dataNum(1)=thisworkbook.sheets(1).cells(2,2).value

执行宏显示类型不匹配。请高手指正

Answer 1

首先，不知道你的thisworkbook.sheets(1).cells(2,2).value中的sheets(1)是否写错（是否为sheet1呢）。
其次，我试验过了，这种方法是可以。如果你的实在是不行，你也可以考虑先用一个string类型的变量取得cells(2,2)的值，然后用函数Val把它转化成Integer型。

Answer 2

如果你sheet(1).cells(2,2)中的显示数据不是integer型的，就会出错，因为你在代码中定义了数组变量的类型为integer，可以把第一句中的as integer去掉，就可以使用任意类型了。即： dim dataNum(4)

Answer 3

thisworkbook.sheets(1).cells(2,2)中的数值属性不是integer，就会出错。
多数时候excel能够自动转换数值类型，但是我也遇到过“就是”不给你转换的情况，不知原因。

所以，在 thisworkbook.sheets(1).cells(2,2).value 外面加上一个强制转换的函数
是避免麻烦的一个方法。

建议使用CInt（thisworkbook.sheets(1).cells(2,2).value ）方式

（仅供参考）