哪位大神帮忙看看 vba字典问题

lsc900707

244506982 发表于 2018-7-21 09:14
arr(i, 11) = arr(i, 7) + arr(i, 8) - arr(i, 10)+ arr(i, 9)   这句提示类型 不匹配.

我这边没有任何问题，你下载附件测试吧。

244506982

chaohuahch 发表于 2018-7-20 23:08
算是简化了一下代码把。

刚才测试了一下, drr(i, 11) = drr(i, 7) + drr(i, 8) + drr(i, 9) - drr(i, 10)   这句提示类型不匹配.  删除了就能运行    这句能不能分开  用另一sub来写呢?

chaohuahch

244506982 发表于 2018-7-21 00:14
谢谢，不知道期末那①列你有没有帮我弄好。我看到那一列没有动。

drr(i, 11) = drr(i, 7) + drr(i, 8) + drr(i, 9) - drr(i, 10)  这一句的结果，就是K列的值

244506982

已解决，谢谢各位老师的帮助。

244506982

lsc900707 发表于 2018-7-21 09:17
我这边没有任何问题，你下载附件测试吧。

还有一个问题要你帮忙呢，，清除内容的。

定位B列最后一个非空单元格，然后再下移一行，把左右和下面的内容清楚。类似这个range("B65536").end(xlup).row+1    后面的我不会，在论坛也没找到能改的。

lsc900707

244506982 发表于 2018-7-21 20:02
还有一个问题要你帮忙呢，，清除内容的。

定位B列最后一个非空单元格，然后再下移一行，把左右和下面 ...

“把左右和下面的内容清楚” 这句话说的不是很明白，需要重新界定一下。

244506982

lsc900707 发表于 2018-7-21 20:46
“把左右和下面的内容清楚” 这句话说的不是很明白，需要重新界定一下。

比如B10单元格内容为空，那就把A10:F1000的内容清空。相当于vlookup函数用vba字典来实在，我上传的表格，入库表里有代码的，也是在网复制来修改的。