[已解决]类型不匹配，这怎么解决

chengzhiting

程序运行后说什么类型不匹配，请老师指导错在哪里，并帮忙写下怎么修改语句

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2015-3-12 14:37

For i = 5 To UBound(arr)改为 For i = 1 To UBound(arr)

跳转到最佳答案楼层

hwc2ycy

1. If Not IsEmpty(d(k)) Then .Cells(j, "M").Resize(1, 8) = d(k)(brr(j, 7))

复制代码

hwc2ycy

功能还没看，只是针对出现的错误改了下。

chengzhiting

hwc2ycy 发表于 2015-3-12 11:43

我测试过了，报错是解决了，但是运行后的数据好像有点问题，比如：铁道部北京铁路总医院 安脱达-I 2013Q1 5盒的数据没有了、同样铁道部北京铁路总医院 阿罗格-I 2013Q1 2013Q2的数据也没有了

hwc2ycy

正在看代码的功能。

hwc2ycy

循环错了，i从5开始的，前面的几行数据自然就丢了。

hwc2ycy

For i = 5 To UBound(arr)改为 For i = 1 To UBound(arr)

hwc2ycy

另外，这个不知道你是不是要实现累加求各的功能，现有的代码能只供留最后一次出现的数据。

chengzhiting

hwc2ycy 发表于 2015-3-12 14:43
另外，这个不知道你是不是要实现累加求各的功能，现有的代码能只供留最后一次出现的数据。

这没关系，暂时不需要那么复杂

还想请教版主个问题，我在report表的最前面插入一列后，改了些代码参数运行后data里的数值没有填充到report表中，而且程序也没有报错，这是什么原因呢？
见附件

hwc2ycy

为什么不把这些值直接放在单元格里，而要去引用其余的单元格里呢。