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

perfect131

vistababy 发表于 2023-3-22 11:27
你这是统一高度？如果一万行，每一行的高度都不一样，然后每一行的高度在该行的基础上增加10，看看速度？ ...

你问的就是批量行高
渐渐的开始跑题了，excel 里面拉一下行高，瞬间完成，但在vba里面批量调一下行高，咋变成 每一行的高度都不一样，然后每一行的高度在该行的基础上增加10？？？
不过这也很快 也就 2秒左右

vistababy

perfect131 发表于 2023-3-22 14:35
你问的就是批量行高
渐渐的开始跑题了，excel 里面拉一下行高，瞬间完成，但在vba里面批量调一下行高 ...

是批量行高啊。。每一行不一样，批量增加，也是批量行高啊。不是吗？

你能拿一个文件作试验吗？我拿你的代码在新文件试验了一下，第一次很快，2、3秒，后面弄1000行就花了6、7秒。
我错在哪？
我的电脑是I3 6100，内存24GB，集显，固态英特尔760P 256G，win10 64位系统。
为啥差这么远？？

vistababy

perfect131 发表于 2023-3-22 14:35
你问的就是批量行高
渐渐的开始跑题了，excel 里面拉一下行高，瞬间完成，但在vba里面批量调一下行高 ...

我用你的代码做了一下试验，在一个新excel文档，1000行花了3、4秒，10000行花了30秒。为什么？

perfect131

vistababy 发表于 2023-3-22 17:40
我用你的代码做了一下试验，在一个新excel文档，1000行花了3、4秒，10000行花了30秒。为什么？

可能是你电脑配置不行

vistababy

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

我的电脑CPU是I3 6100（双核四线程），集显，内存DDR4  24GB，固态英特尔760P 256G。而且我照网上方法在excel设置里面改什么多线程、自动改手动，都没有用啊。

vistababy

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

你的是什么电脑？2秒？？这速度神了啊。。啥配置？

高个子

极有可能是电脑问题

vistababy

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

问题在哪呢？win10 64位，平常使用没有任何问题啊。。也没觉得卡。

约定的童话

提高Excel VBA处理表格的速度是一项复杂的任务，因为它涉及多个方面的优化。以下是一些优化Excel VBA处理表格速度的方法：

使用数组代替循环：使用数组来存储表格数据，然后使用循环逐一填充数组的元素。使用数组可以减少Excel VBA的处理时间，因为它可以在内存中更快地操作数据。

关闭计算功能：在处理大量数据时，关闭Excel的计算功能可以显著提高Excel VBA的处理速度。使用以下代码行关闭计算功能：

Application.Calculation = xlCalculationManual
Application.Calculation = xlCalculationManual
做完任务后，使用以下代码行重新启用计算功能：

Application.Calculation = xlCalculationAutomatic
Application.Calculation = xlCalculationAutomatic
关闭屏幕刷新：使用以下代码行关闭屏幕刷新功能：
Application.ScreenUpdating = False
Application.ScreenUpdating = False
做完任务后，使用以下代码行重新启用屏幕刷新功能：

Application.ScreenUpdating = True
Application.ScreenUpdating = True
优化循环次数：使用Exit For、Exit Do等语句，减少循环次数。此外，尽可能少使用循环嵌套。每个循环都需要时间进行迭代，所以循环嵌套越多，处理数据的时间就越长。

使用合适的数据类型：使用合适的数据类型可以提高Excel VBA的处理速度。例如，如果您只需要处理整数，使用整数类型，这比使用浮点类型可以更快地进行计算。

对数据进行排序：在处理数据之前，将数据按特定的顺序排序，这样可以使Excel VBA更快地搜索和读取数据。

禁用事件：在处理数据时，禁用Excel VBA中的事件处理程序，因为事件处理程序可能会导致Excel VBA的处理速度降低。使用以下代码行禁用事件：

Application.EnableEvents = False
Application.EnableEvents = False
做完任务后，使用以下代码行重新启用事件处理程序：

Application.EnableEvents = True
Application.EnableEvents = True
请注意，优化Excel VBA处理表格速度的方法因情况而异。因此，仔细评估您的需求，并使用最适合您的情况的方法。

Yalishanda30

vistababy 发表于 2023-3-22 19:26
问题在哪呢？win10 64位，平常使用没有任何问题啊。。也没觉得卡。

win10 64位垃圾配置也没超过1.5秒