求助。程序运行后卡住了。结束不了 - vba吧

level 8

可爱的any52 楼主

代码中也设定了边界。不存在死循环。第二张图是运行后也得出结果了。但就是要卡住了。是我处理的数据太多了？

2024年10月16日 07点10分 1

level 8

可爱的any52 楼主

等了近三分钟。程序运行结束了，不得这么慢吧

2024年10月16日 07点10分 2

level 5

5000格数据不至于卡
估计count那段比较卡

2024年10月16日 15点10分 3

@烟雨江南ooo 谢谢大佬。我把for each 去掉了瞬间就运行完成了。写代码的时候没注意到。我这重复，写了。我现在还在学习。刚好遇到一个表格，就拿来试试。十分感谢。解答

2024年10月18日 06点10分

搞不懂。明明运行后很快就算出来了。但就是会卡住。要三分钟程序结束

2024年10月17日 01点10分

@可爱的any52 去掉无意义的for each循环，速度提升百倍

2024年10月17日 08点10分

@可爱的any52 另外C39的赋值也不用放在循环内部，你只要设置一个变量hasTheColor，在循环体内用if看有没有要的颜色，在循环体之外，再if hasTheColor Then range("C39").Value = '你那工作表函数

2024年10月17日 08点10分

level 1

不要在循环里对单元格进行写入，循环写入内存后，在外面一次性写入excel 试下

2024年10月17日 02点10分 4

level 1

你写入到表里面次数越多，程序就越慢，另外也把屏幕刷新给关掉，程序执行完后再打开

2024年10月17日 07点10分 5

level 12

重复循环，反复刷新C39的值。你既然用了FOR each a，还用for i和for k做什么？你纯粹是看不够卡，要在外面套一层不需要的for each

2024年10月17日 08点10分 6

level 12

把for each a这个无用循环去掉，速度提升百倍

2024年10月17日 08点10分 7

不介意的话，文件发来qq258000768邮件，我有兴趣看看进一步优化

2024年10月17日 09点10分