将SumIf函数与范围对象或数组一起使用

Question

我正在尝试优化使用Excel的sumif函数的子项，因为它需要花费一些时间才能完成。

特定行（包含在for循环中）是这一行：

Cupones = Application.WorksheetFunction.SumIf(Range("Test_FecFinCup"), Arr_FecFlujos(i), Range("Test_MtoCup"))

范围在工作簿中称为范围，而Arr_FecFlujos（）是日期数组

那样，代码可以正常工作，除了需要花费大量时间才能完成。

我正在尝试这两种方法数组：

声明我的数组

With Test
  Fluj = .Range(Range("Test_Emision").Cells(2, 1), Range("Test_Emision").Cells(2, 1).End(xlDown)).Rows.Count
  Arr_FecFinCup = .Range("Test_FecFinCup")
  Arr_MtoCup = .Range("Test_MtoCup")
End With

Cupones = Application.WorksheetFunction.SumIf(Arr_FecFinCup, Arr_FecFlujos(i), Arr_MtoCup)

错误告诉我我需要使用范围对象，因此我更改为：

With Test
 Set Rango1 = .Range("Test_FecIniCup")
 Set Rango2 = .Range("Test_MtoCup")
End With

Cupones = Application.WorksheetFunction.SumIf(Rango1, Arr_FecFlujos(i), Rango2)

那一个，不显示任何错误消息，但总和不正确。

谁能告诉我这些方法有什么问题，也许可以指出正确的方向吗？

Answer 1

您似乎尝试使用一系列条件求和一系列数字：

WorksheetFunction.SumIf(Arr_FecFinCup, Arr_FecFlujos(i), Arr_MtoCup)

据我所知，如果criterias参数给出了一个范围，Excel不会在该范围内进行迭代，而是在criterias_range中寻找与其正在计算的单元格行重合的一个值。

例如

Range("D3") = WorksheetFunction.SumIf(Range("A1:A10"),Range("B1:B10"))

Excel实际上将如下计算

Range("D3") = WorksheetFunction.SumIf(Range("A1:A10"),Range("B3"))

如果没有巧合，则返回值为0

例如

Range("D7") = WorksheetFunction.SumIf(Range("A1:A10"),Range("B1:B5"))

那么D7始终为0，因为在[B1：B5]中寻找[B7]不在范围内。

因此，要对多个条件求和，正确的方法是使用@mrtiq建议的SUMIFS。