sumif / countif的VBA替代

Question

我有客户清单和发票清单。 我想基本上计算一个sumif客户名称等于发票名称。 数据集可能会很大，并且会有多个sumif / countif过程。

有没有比VBA“ sumif”更好的方法，例如，将集合中的值求和并进行推算？ 根据下面的代码，我已经在集合中有客户。 在以下集合中执行sumif / countif过程的最有效方法是什么？

Sub UniqueCustomers()

Dim arr As New Collection, a
Dim LastLine As Integer
Dim aFirstArray As Variant
Dim i As Long
n = 1

ThisWorkbook.Sheets("List").Select
aFirstArray = Worksheets("List").Range("B2", Range("B2").End(xlDown))

On Error Resume Next
For Each a In aFirstArray
    arr.Add CStr(a), CStr(a)
Next
On Error GoTo 0

Dim Customer As Variant
For Each Customer In arr
    Worksheets("Customers").Cells(n + 19, 5).Value = Customer
    Debug.Print Customer
    n = n + 1
Next Customer

End Sub