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

vistababy

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

大佬，您再看看28楼，加上我说的那行获取总页数的代码在前面，时间是不是慢几十倍？

vistababy

因为今天几乎都是1万行30秒左右，我刚刚又做了一个试验，就是把个人宏工作簿PERSONAL.XLSB改了一下名，暂时禁用，新建一个工作表，在sheet1创建了那个最短代码测试时间，马上就只有1秒了，但我把那行获取总页数的代码放在最前面，时间马上又变成30秒了，注释掉那行代码，再运行一次，还是30秒。
于是我还原个人宏工作簿PERSONAL.XLSB，重启excel，发现运行那段测试代码，还是30秒，我逐一排查，发现workbook有一条启动运行的代码，如下，只要我注释掉这行，测试就是2秒，开启这条，测试就是30秒，就因为自动显示了分页符？
Private Sub Workbook_Open()
    On Error Resume Next
    ActiveWindow.ActiveSheet.DisplayPageBreaks = True '显示分页符
End Sub

vistababy

约定的童话 发表于 2023-3-22 19:30
提高Excel VBA处理表格的速度是一项复杂的任务，因为它涉及多个方面的优化。以下是一些优化Excel VBA处理表 ...

感谢。学到

Yalishanda30

vistababy 发表于 2023-3-23 12:49
感谢。学到

应该是获取页面数代码引起的

vistababy

Yalishanda30 发表于 2023-3-23 12:56
应该是获取页面数代码引起的

是啊。。这oldpages = ActiveWorkbook.ActiveSheet.PageSetup.Pages.Count 代码太坑了，哪怕表格只有1页。
我在虚拟机也做了试验，本来也是2、3秒时间，加了这行在前面运行了一下，后面1万行时间甚至变成了几百秒。这算不算excel的bug？我的2013存在，虚拟机中的2016版本也存在。相信不是个列了，是全世界的excel都存在这个问题。

准提部林

ActiveSheet.PageSetup 會使工作表顯示"分頁線"(包含打印或預覽之後),
這情況下...不論做什麼...都會拖慢速度,
在程序前面加這行試試//
ActiveSheet.DisplayAutomaticPageBreaks = False

或在"選項"中取消分頁線顯示~~

當調整行高同時, 分頁線也自動跟著調整~~

vistababy

准提部林 发表于 2023-3-23 13:44
ActiveSheet.PageSetup 會使工作表顯示"分頁線"(包含打印或預覽之後),
這情況下...不論做什麼...都會拖慢 ...

但是发现加了这行，在行高增加的时候动态变化，不能监测到真实的页码了。比如我原来只有1页，行高不停地增加，本来已经是几页、几十页了，而ActiveWorkbook.ActiveSheet.PageSetup.Pages.Count这行代码永远却判断是1页。如果加上ActiveSheet.DisplayAutomaticPageBreaks = True，倒是能判断了，速度又成蜗牛了。怎么办？

准提部林

vistababy 发表于 2023-3-23 14:29
但是发现加了这行，在行高增加的时候动态变化，不能监测到真实的页码了。比如我原来只有1页，行高不停地 ...

若是每調整一行行高, 就算一次頁數. 不慢才是奇蹟!!!!

反正, 工作表看得分頁線, 執行程序必定慢!!

計算頁數//也可如下
vp = ActiveSheet.VPageBreaks.Count + 1
hp = ActiveSheet.HPageBreaks.Count + 1
pcunt = vp * hp
MsgBox pcunt

但不取消分頁線, 仍是苦工~~

vistababy

我想了一下，够用了，如果是需要判断总页码的时候，页数一般比较少，慢不了多少，如果行数多，批量增高，根本无需看页码，体验神速。

vistababy

准提部林 发表于 2023-3-23 16:07
若是每調整一行行高, 就算一次頁數. 不慢才是奇蹟!!!!

反正, 工作表看得分頁線, 執行程序必定慢!!

感谢。不过我觉得可以了。我确实有程序是对选中的行数增高，循环一次就要检查一下总页数，所以慢，但一般页数只有几页，影响不大，批量行高不用管页数，可以尽管用ActiveSheet.DisplayAutomaticPageBreaks = False，速度就上来了。确实是够了。谢谢