Excel VBA - 每次执行后宏的执行时间变慢

Question

我的代码如下：

1. 刷新一个大约有 10000 行的查询。

2. 根据一些标准将数据拆分为各种二维数组（我总共有十几个不同的二维数组）。

3. 将每个二维数组粘贴到不同的工作表中。

当我第一次运行宏需要约 18 秒，第二次运行约 30 秒，第三次运行约 35 秒，第四次运行约 45 秒，依此类推。每次运行时查询的数据都完全相同（变化不会那么频繁，或者最多可以变化一两行）。

如果有一些我不知道的记忆问题，有人可以解释一下吗？我还尝试在将矩阵粘贴到工作表之后将矩阵设置为等于 Nothing，但这并没有改变每次运行时的减速。任何帮助将不胜感激。

附：代码很长，我觉得把它都贴在这里也没有用。它的工作原理或多或少如下：

Sub GetMatrix()
    Dim Matrix As Variant, IndexMatrix As Long, i As Long, NoRows As Long
    IndexMatrix = 0
    ReDim Matrix(IndexMatrix, 2)
    NoRows = Application.CountA(Range("A:A"))
    For i = 2 To NoRows
        If Cells(i, 1) = "Something" Then
            Matrix(IndexMatrix, 0) = "Something"
            Matrix(IndexMatrix, 1) = "Something"
            Matrix(IndexMatrix, 2) = "Something"
            IndexMatrix = IndexMatrix + 1
            ReDim Preserve Matrix(IndexMatrix, 2)
        End If
    Next
    GetMatrix = Matrix
End Sub

Answer 1

请尝试下一个改编的功能：

Function GetMatrix() As Variant
    Dim sh As Worksheet, arr As Variant, Matrix As Variant
    Dim IndexMatrix As Long, i As Long, LastRow As Long

    Set sh = ActiveSheet
    LastRow = sh.Range("A" & Rows.count).End(xlUp).Row
    arr = sh.Range("A1:A" & LastRow).Value
    ReDim Matrix(2, UBound(arr)) 'to admit redim preserve (only on the last dimension) at the end
    For i = 2 To LastRow
        If arr(i, 1) = "Something" Then
            Matrix(0, IndexMatrix) = "Something"
            Matrix(1, IndexMatrix) = "Something"
            Matrix(2, IndexMatrix) = "Something"
            IndexMatrix = IndexMatrix + 1
        End If
    Next
    ReDim Preserve Matrix(2, IndexMatrix - 1)
    GetMatrix = Matrix
End Function