使用数组公式的 VBA 代码 - VBA

本文介绍如何在 VBA 中使用数组公式，以加快执行时间并提高代码效率。数组公式是 Excel 中的强大功能，允许用户通过仅使用一个公式就处理多行数据，而无需使用循环来迭代这些行。

什么是数组公式？

数组公式是一种将公式应用于多个单元格的技术。传统的 Excel 公式只能应用于单个单元格，而数组公式可以将公式应用于多个单元格。这样，可以处理比单独使用公式更大的数据集，而且速度更快。

如何创建数组公式？

在 Excel 中，需要在公式前面和后面加上花括号 {}，以表明该公式是数组公式。例子：

=SUM({A1:A3*B1:B3})

这个公式会将数组 A1:A3 与数组 B1:B3 相乘，然后将结果加和。

如何在 VBA 中使用数组公式？

在 VBA 中，需要使用 Evaluate 函数来执行公式。为此，需要将公式作为字符串传递给 Evaluate 函数。例子：

Dim result As Variant
result = Application.WorksheetFunction.Evaluate("SUM({A1:A3*B1:B3})")

这个代码将使用 Evaluate 函数来执行公式，并将结果存储在 result 变量中。

为什么要使用数组公式？

使用数组公式可以提高代码效率，因为在处理大量数据时，使用循环需要花费更多时间。使用数组公式，可以将公式应用于整个数据集，从而节省时间并提高效率。

示例代码

以下是使用数组公式的示例代码：

Sub ArrayFormulaExample()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    Dim dataRange As Range
    Set dataRange = ws.Range("A1:B10")
    
    Dim formula As String
    formula = "=SUM({A:A*B:B})"
    
    Dim result As Variant
    result = ws.Evaluate(formula)
    
    Debug.Print result
End Sub

这个代码将在 Sheet1 的 A1:B10 单元格范围内计算数组公式 {A:A*B:B} 的总和，并将结果打印到 Immediate 窗口上。

结论

数组公式是一种强大的功能，可以加快 Excel 处理大量数据的速度。在 VBA 中，可以使用 Evaluate 函数来使用数组公式，从而提高代码效率。