使用VBA在Excel中切换和求和

我在VBA中有以下问题：

考虑以下：

Excel表格

我想build立各种各样的总和。通过B列收集A列中的数量，并在循环结束后在E列中写入每种types前面的总和。我该怎么做？

谢谢

尝试这个：

= SUMPRODUCT（（B2：B13 = E4）*（A2：A13））

这在单元格F4。填好。

为了得到dynamic唯一列表在D2 =INDEX($B$2:$B$1000,MATCH(0,INDEX(COUNTIF($D$1:D1,$B$2:$B$1000),0,0),0))

通过dynamic唯一列表求和在E2 =SUMIF(B:B,D2,A:A)

拖下来

以下是我的结果（注意值的结果会因为结果的不同而有所不同，因为我无法打扰您粘贴的图片中的值，请始终尝试发布人们可以复制的数据糊）：

 a 3 b 4 f 3 d 2 c 1 0 0 #N/A 0 #N/A 0 #N/A 0 #N/A 0 #N/A 0

你可以把它包装在IF（ISNA（公式），“公式”）或iserr公式中，无论你喜欢对付＃N / A