求和汇总——多项求和

本站中已介绍了如何Sum结合If与SUMPRODUCT解决一些常用的多条件求和与计数的公式。今天juyouhh又收集了一个常见的实例：

C1到X1，单数列是单价，偶数列是数量，Y1求每个单价*数量的总和。要求不能一个一个加。

实例与公式在下方，并附上一个VBA的自定义函数，仅供参考。

Function QH(AX As Range) 
Dim TRan As Range, i As Integer, Num As Integer 
Set TRan = AX.Item(1) 
Num = AX.Columns.Count 
For i = 2 To Num Step 2 
 QH = QH + TRan.Offset(0, i - 1) * TRan.Offset(0, i - 2) 
Next 
End Function 
仅仅对第一行求和。