使用数组法汇总数据

天地一相

sdytsxd991122 发表于 2023-6-30 10:39
改一下试一试

我想用这样一句来实现，可是提示下标越界。

笨鸟飞不高

天地一相 发表于 2023-6-30 10:15
谢谢，正在修改还未测试，你代码中的一句，需要修改成我代码截图的样子要表达的意思，因为当非空时，需要 ...

不清楚，你这一句放在哪里了，我这边测试正常！！
还有 brr(r，1）的值本来一次就可以得到的，为什么你要循环多次？

笨鸟飞不高

对于sheet3单元格C1到E1的内容可能会变化的情况，代码可以这样修改一下！

天地一相

笨鸟飞不高 发表于 2023-6-30 11:49
对于sheet3单元格C1到E1的内容可能会变化的情况，代码可以这样修改一下！

谢谢，等会就测试。有2个循环都是 j ，不会冲突？还有我感觉你代码中的 r 这个参数应该定义成静态的。因为我觉得行数是在整个VBA执行过程中是持续加1的（符合1行添加1行），要是动态的话，就会在你这个局部的循环之后清空已经有多少行这个数据了。你觉得呢

天地一相

ykcbf1100 发表于 2023-6-30 09:37
参与一下。

谢谢，测试你的代码，嵌套进一个100次循环的计算里，总是提示下标越界。是什么问题呢。我是想整体循环100次，也就是你的代码整体循环100次，这100次全部符合的数据最后一次性写入。

天地一相

顶一下，困在这里了，期待你的帮助。

天地一相

笨鸟飞不高 发表于 2023-6-30 09:13

谢谢，汇报下。改装拼接成功，测试对比，速度没改善。这说明，发下1个写入表格1个，与发现1个先写入数组，最后一次性写入，两者没啥速度上的差异。