提高VBA的执行优化速度的方法

cooliscool

sheet2有8w行左右10年的数据，需要按天取出来在sheet1运算1次，让后将运算的结果(实际的计算很复杂，现在用的简化公式)返回到sheet2的指定区域。

现在按1年的数据，运算一次大约需要0.26s左右；
但是在实际的表格中运行，由于有大量的逻辑判断及公式，运算速度降到了8s左右；如果8w行，需要好几分钟；
有没有可以提供优化速度的方法？

东亚五金

公式肯定影响速度呀

keith512

你这个耗时主要是写了365次，你全部计算好以后一次写进去就快了

洋务德雷

没有看到你具体的数据，和计算办法。不好给你出主意呀。

cooliscool

洋务德雷 发表于 2023-1-9 22:47
没有看到你具体的数据，和计算办法。不好给你出主意呀。

数据在sheet2表，计算公式在sheet1表，每列的计算公式都不一样的，有20列

cooliscool

东亚五金 发表于 2023-1-9 18:23
公式肯定影响速度呀

原来每那么快，最初大约需要1.2s，我改进了很多细节变成了0.26s；问题是到复杂的工作簿里面，速度就大打折扣。

cooliscool

洋务德雷 发表于 2023-1-9 22:47
没有看到你具体的数据，和计算办法。不好给你出主意呀。

耗时最长的是这个
For i = 1 To 365
        Sheet1.Range("A3:D26") = Sheet2.Range("A" & 24 * i - 22 & ":D" & 24 * i + 1).Value2

注释掉，速度就飞快

于箱长

cooliscool 发表于 2023-1-10 10:28
耗时最长的是这个
For i = 1 To 365
        Sheet1.Range("A3:D26") = Sheet2.Range("A" & 24 * i - 2 ...

读写单元格365次，那指定会慢的，试试改成一次把公式填好

tanglf188

    For i = 1 To 365

        rem 下面这句写在循环里的目的何在呢？，最终也是被i=365的时候覆盖啊，直接写到循环外面去


        Sheet1.Range("A3:D26") = Sheet2.Range("A" & 24 * i - 22 & ":D" & 24 * i + 1).Value2
        arr = Sheet1.Range("E3:X26").Value2
        For j = 1 To 24
            k = 24 * i - 24 + j
            For n = 1 To 20
                brr(k, n) = arr(j, n)
            Next
        Next
    Next