大神们帮忙看下这个代码运行时为什么会显示类型不匹配

henrysu · 发表于 2018-9-30 17:55

引用的单元格里面都是数字（整数、小数、百分数）
sub aaaaa()
Dim crr(1 To 12, 1 To 1)
Sheets("sheet1").Activate
crr(1, 1) = 0
crr(2, 1) = 0
crr(3, 1) = 0
crr(4, 1) = 0
crr(5, 1) = 0
crr(6, 1) = 0
crr(7, 1) = 0
crr(8, 1) = [c4] / [b1]
crr(9, 1) = crr(8, 1) * [c7]
crr(10, 1) = crr(8, 1) * [b12]
crr(11, 1) = [c4] * [d12]
crr(12, 1) = crr(3, 1) + crr(6, 1) + crr(9, 1) + crr(10, 1) + crr(11, 1)
Cells(16, "d").Resize(12, 1) = crr
end sub

mhy2018 · 发表于 2018-9-30 17:57

没附件怎么搞

lsc900707 · 发表于 2018-9-30 18:04

建议楼主补充必要的附件。

henrysu · 发表于 2018-9-30 18:04

mhy2018 发表于 2018-9-30 17:57
没附件怎么搞

刚刚解决了，谢谢

		自动登录	找回密码
密码			免费注册

[已解决] 大神们帮忙看下这个代码运行时为什么会显示类型不匹配