excel 运行VBA效率变低了 原来excel运行VBA程序，很快就执行完毕，现在运行相同的程序，效率变得很慢

Question

CPU使用率一直在25左右。

Answer 1

数据变多，循环退出不及时是造成VBA运行速度变慢的关键。
如果VBA得运行时间随着数据量的增大，呈几何级的上升，那么肯定是循环写的不好，没有及时的退出循环。
比如，运行100行数据需要30秒，而200行需要3分钟，那么肯定是循环导致的。
好的循环，应该会有多种情况的出现。而其中或许只有1种情况是继续循环的，其它的都是退出循环，那么无疑，比一个劲的循环，效率会提高很多。追问

和数据量应该关系不大。
数据量基本上一致的。
为什么CPU总在25左右?原来运行大数据量时，CPU使用率会提高。

我运行另一个程序，就几十个空格的信息，也得看一程序，一个一个地向空格里写信息。

追答

那么，有可能是硬件问题。内存是否看过？
如果，内存的存储颗粒有部分损坏，内存还是可用的，但对程序的运行肯定是有影响的。
另外，有些时间段，机器卡了，但是在监视软件，也不一定能够看出。当然，这样的话重启肯定能够解决。如果重启解决不了，那么不是机器卡的问题。

我就我所知道的说一点。不一定能够帮到你。

Answer 2

一、数据比以前多了。
二、公式中有循环迭代计算。追问

和数据量应该关系不大。
数据量基本上一致的。
为什么CPU总在25左右?原来运行大数据量时，CPU使用率会提高。
我运行另一个程序，就几十个空格的信息，也得看一程序，一个一个地向空格里写信息。

Answer 3

首先，慢的原因是你的数据量大了
解决办法，你可以再修改你的VBA语句，聚合一下就好了追问

数据量大，为什么不是提高CPU来运行？而是一直在25左右？？

追答

这么说，
SQL1 = "SELECT distinct 会计期间, 科目说明, Sum(发生数) FROM YTD WHERE (科目说明 Like '制造费用%') GROUP BY 会计期间, 科目说明 ORDER BY 会计期间, 科目说明"
记录集RS1

我只有一个判断，就可以了，不要循环了
单元格的值就等于RS

SQL2 = "SELECT YTD.会计期间, YTD.科目说明, YTD.发生数 FROM YTD WHERE YTD.科目说明 Like '制造费用*'"
记录集RS2
x=rs2.value+x
还要加一个循环，判断

最后单元格的值 等于X

所以，我觉得是语句写的不够好，这也是我以前遇到的问题，不晓得适不适合你，如果适合给个最优！

追问

和语句没关系啊。
原来执行的时候，很快就执行完了。
最近才出现这种情况，很慢。

追答

那是因为你以前的数据量少，要不，你贴上来，叫大家看看

追问

和语句没关系的，原来运行都很快。
我QQ：57706343，你加。发给你看。。

Answer 4

发文件到我邮箱看看。[email protected]追问

是不是我这个VBA的EXCL文件有问题了？我把VBA拷到一个新建的EXCEL文档，运行正常。求解。。。