为什么带有VBA的Excel速度很慢？

Question

我知道这篇文章会引起很多仇恨和挫败，但是我不知道还有什么地方可以让别人看到我的excel为什么如此行事。 如果有关于这个的论坛，请告诉我，这样以后我就不会再张贴“非正统”的帖子了。

我的问题的详细信息：我创建了一个几乎完全自动化的工资单excel文件，其中包含在Worksheet deactivate事件中激活的公式和VBA代码。 但是，我没有cell change events ，但是即使这样，即使在没有公式或VBA脚本的情况下在单元格上键入内容，我的excel也会进入处理模式并将PC完全挂起10-15分钟。 激活脚本后，它们有时可能还会在接下来的10-15分钟内冻结我的PC，有时还会在几秒钟内冻结。 我不能alt + tab，不能破坏脚本，不能退出excel文件，也不能打开任务管理器。 我无法在此处粘贴代码，因为它似乎不是代码问题，而且时间太长。

我70％的代码在Worksheets("DTR")对象中20％我的代码在Worksheets("Payroll Update")对象中10％我的代码在Worksheets("DTR Summary") ， Worksheets("Payroll Summary")和ThisWorkbook 。

谁能对代码发表评论？ 我没有要求极高的脚本来使文件崩溃。 我不明白为什么会这样。 请参考下面的文件，我非常感谢任何建议以使运行速度更快。

Answer 1

=SUMIFS(DTR!$AB$2:$AB$1048576,DTR!$C$2:$C$**1048576**,">="&$A6,DTR!$C$2:$C$1048576,"<="&$B6,DTR!$B$2:$B$1048576,'Payroll - Extra'!Q$1)

1. 1048576太大。 您必须调整大小。
2. 由于SUMIFS是一个数组公式，因此您只需要在单元格中输入值，而无需在公式中输入。
   • 使用数组公式时，每次单元格值更改时，都会重新计算工作表中的所有公式，这会减慢系统速度，同时消耗系统资源。

3.使用变量数组更快。 test（）是将结果一对一分配给单元格的代码很慢。 此代码在我的计算机上需要5.33秒。

Sub test()
    Dim i As Long, j As Long
    Dim s, e, t
    Cells.Clear
    s = Timer
    For i = 1 To 10000
        For j = 1 To 20
            Cells(i, j) = i
        Next j
    Next i
    e = Timer
    t = e - s
    Range("v1") = t
End Sub

以下代码（test2（））使用数组变量，仅需0.5秒。

Sub test2()
    Dim i As Long, j As Long
    Dim vArray(1 To 10000, 1 To 20)
    Dim s, e, t
    Cells.Clear
    s = Timer
    For i = 1 To 10000
        For j = 1 To 20
            vArray(i, j) = i
        Next j
    Next i
    Range("a1").Resize(10000, 20) = vArray
    e = Timer
    t = e - s
    Range("v1") = t
End Sub