excel - 用不同的键求和值

Question

请引用附图以获得更好的想法。

我的工作表中有多个行，其中包含一个组名和很多值。每个组在我的表中显示多次。现在我想对每个组的值求和并返回它们。最有效的方法是什么？

现在我有代码将每一行的总值存储到一个数组中并总结如下:

Dim arr() as variant
Dim n as integer
Dim sum as variant

For n = firstrow to lastrow   'assume firstrow and lastrow are known numbers

arr = Range(Cells(n, 3),Cells(n,column.count)).Value 
sum = Workbookfunction.sum(arr)

Next n

任何想法都会很有帮助!

Answer 1

使用 SUMPRODUCT:

=SUMPRODUCT(($A$7:$A$18=A1)*($B$7:$G$18))