有什么方法能让excelVBA处理表格的速度达到至少每秒1万行以上？

vistababy

perfect131 发表于 2023-3-22 17:54
可能是你电脑配置不行

出大事了！出大事了！

我刚刚把那段简单的1万行加高的代码放到同一台电脑VMWARE虚拟机win10里面运行，用的是word2010版，2秒钟完成。
这虚拟机有起来比我的主机还要慢很多，但运行这个程序完成只要2秒。。我的实机word2013版本出啥问题了啊？要30秒？

vistababy

高个子 发表于 2023-3-22 18:49
极有可能是电脑问题

帮我看看21楼，确实有问题，咋回事啊？

高个子

vistababy 发表于 2023-3-22 20:44
帮我看看21楼，确实有问题，咋回事啊？

是不是你的电脑软件太多了

vistababy

我又在虚拟机另一个win11系统里面试了下，用的是excel2016版本，也是2秒多。

zxsea_7426

是不是自动计算拖慢了速度？？

vistababy

高个子 发表于 2023-3-22 20:49
是不是你的电脑软件太多了

逐渐查明真相。我把后台一些无关的程序关了，1万行只需要1秒甚至不到1秒完成。。速度神了。

我要查清楚是哪个程序搞的鬼。到时你们就知道了。

vistababy

zxsea_7426 发表于 2023-3-22 20:56
是不是自动计算拖慢了速度？？

不是，是某个程序引起的，我终止了一些无关程序发现问题了，速度最多1秒左右完成。
然后我会把程序一个一个通过退出或任务管理器终止，逮住它。

vistababy

原因竟然是一行有毒的代码，我不知道错在哪？
就是下面第一行代码，这行获得一个工作表总页数，加上这行，虽然通过msgbox显示出来，瞬间就获得了总页数的结果，但竟然会导致后面的处理时间从1秒升到30秒。而且只要运行过这行代码，在Excel不关闭的情况下，哪怕屏蔽这行代码，再运行此程序，速度也是30秒。。神奇啊。我搞不懂。
有大神知道原因吗？你们复制下面这段代码试一下。
好像没有别的方式获得一个工作表总页数了，这个是最常用的，但没想到这段代码这么坑。从来没有人发现？

oldpages = ActiveWorkbook.ActiveSheet.PageSetup.Pages.Count'就是这行有毒，获得总页数
MsgBox oldpages

Application.ScreenUpdating = False

tt = Timer
For i = 1 To 1000
    Rows(i).RowHeight = Rows(i).RowHeight + 5
Next
Application.ScreenUpdating = true
MsgBox Timer - tt

vistababy

我原来以为是某个后台软件引起的，没想到不是，竟然是一行代码毁所有。只要它运行过一次，Excel不退出，就会影响后面的所有代码

vistababy

我发现除了28楼提到的那行代码，有时候啥都没有干，重启了一下电脑，马上进excel运行那个宏，就用最简洁的那几行代码，还是会有30秒，但有时候才2秒。和后台软件没关系，和那行代码也没有关系。我彻底地蒙圈了