运行2个小时还没有完成，请帮忙看看是不是程序设计的问题

醉眼看尘世

gzminge 发表于 2024-8-4 18:43
这么厉害啊，能帮忙改一下吗?

你要求：只把数值复制过去，能不能把公式等全部复制粘贴过去。。
既然用程序，为何要公式。
你这就无解了。
建议下班时运行程序。
第二天早上就ok了

gzminge

醉眼看尘世 发表于 2024-8-4 18:55
你要求：只把数值复制过去，能不能把公式等全部复制粘贴过去。。
既然用程序，为何要公式。
你这就无解 ...

我也知道当然是程序好！
但我是初学者，对公式都还不熟悉。现在用程序是因为用公式已经没法完成任务，被逼着一步一步的学着用程序。

micch

运算量太大了，没办法，就慢慢跑吧。可以加个进度条，让自己知道运行到什么程度了

gzminge

micch 发表于 2024-8-4 19:24
运算量太大了，没办法，就慢慢跑吧。可以加个进度条，让自己知道运行到什么程度了

比以前手动用公式已经强多了

sunya_0529

gzminge 发表于 2024-8-4 17:52
刚刚又看了，用快捷键强行中断，又过几分钟之后才有反应。
原来是已经运算完成了，为什么在处理数据量不大 ...

公式比较多的话，代码里把公式自动运算的开关加上：

1. Sub test0726()
   
2. Application.Calculation = xlCalculationManual
   
3. '……
   
4. Application.Calculation = xlCalculationAutomatic
   
5. End Sub

复制代码