通过唯一值跨多个工作表汇总数据，我写了循环但是出问题

cheyuze · 发表于 2020-3-1 00:26

需求是通过唯一值—— 汇总表里的第19列，和分sheet里的第4列
当数据量是3、40的时候还挺正常的，这周数据量突破了一百。再进行汇总的时候会卡将近1分钟才完成，差点卡死的感觉
我通过不断调整发现，只要我把红框内的代码删掉，就不会卡
于是我思考是计算量过大？
但我又常识了，哪怕只留下一行代码（42、43、47、48）列的任意一列，都会卡，哪怕把没在红框内的都删除掉也是。
所以应该不算计算量过大，只是最远的这几列存在问题
源文件包含太多敏感信息，不能上传，抱歉。我只询问一下我这个循环逻辑有没有更好的方法替代。以及有什么会出现上述情况么？

cheyuze · 发表于 2020-4-24 18:52

是我犯傻了，导致主题问题的原因是因为在另一个sheet引用了红框内的单元格做数据看板，很多的countifs的公式计算导致的卡死。把自动重算关了就可以了。
感谢楼上的帮助，字典还没有学到，受教~

shenjianrong163 · 发表于 2020-3-1 01:28

本帖最后由 shenjianrong163 于 2020-3-1 08:39 编辑

For R = 2 To 9
For l = 3 To ends
For i = 2 To ends
If Sheets(R).Cells(l, 4) = Sheet5.Cells(i, 9) Then
n = 28
For m = 14 To 30
Sheet5.Cells(i, n) = Sheet(R).Cells(l, m)
If n = 28 Then
n = n + 2
ElseIf n = 43 Then
n = n + 4
Else
n = n + 1
End If
Next
End If
Next
Next
Next

复制代码

估计情况也会一样，如果是数组处理就好多了。

3190496160 · 发表于 2020-3-1 11:44

直接操作单元格，速度肯定慢，甚至是卡死没商量，数组+字典完全可以搞定，而且，速度绝不是问题，几十行数据，就是一眨眼的功夫就可以完成了

microyip · 发表于 2020-4-24 23:08

这个反复读写单元格的代码，不直接卡死，你的电脑已经对你很仁慈了

renkangjizhen · 发表于 2020-4-25 09:57

既然数据都是相邻的，何不用copy一次搞定？

cheyuze · 发表于 2020-4-25 15:35

microyip 发表于 2020-4-24 23:08
这个反复读写单元格的代码，不直接卡死，你的电脑已经对你很仁慈了

问题原因不是代码逻辑，哈哈，把公式自动重算关掉之后运行还挺快的

cheyuze · 发表于 2020-4-25 15:36

renkangjizhen 发表于 2020-4-25 09:57
既然数据都是相邻的，何不用copy一次搞定？

①有个别单元格不相邻
②最开始没有这么多..是一点一点增加进去的（这个是主要原因）
③还不太习惯用copy，我得习惯一下（这个是次要原因）
等大规模优化的时候我试试copy，哈哈哈，感谢~

microyip · 发表于 2020-4-25 15:57

内容再怎么敏感，谁会对你的内容有兴趣？你模拟个附件出来，估计是秒完的代码都有给你参考

cheyuze · 发表于 2020-4-25 16:24

microyip 发表于 2020-4-25 15:57
内容再怎么敏感，谁会对你的内容有兴趣？你模拟个附件出来，估计是秒完的代码都有给你参考

下次求教的时候记得了，这个文件太复杂了当时查了好久，现在不是问题了，是公式重算导致的.....放在这纪念自己的傻

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

[求助] 通过唯一值跨多个工作表汇总数据，我写了循环但是出问题

评分

最新热点 /1