对指标之间的所有值求和。在VBA中

时间:2017-11-20 17:57:42

标签: vba excel-vba excel

我有3列。其中两个是标识符,另一个是数字。 我开始看看这样的数据;

ID1     ID2     Number
2.41    One     1408
2.46    One     41
2.51    One     22
2.69    One     1284
1.005   Two     820
1.005   Two     2267
1.005   Two     962
1.005   Two     249
1.706   Two     1096
1.706   Two     1061
1.706   Two     1326
1.706   Two     266
1.706   Two     854
1.706   Three   412
1.12    Three   548
1.12    Three   1331
1.12    Three   3094
1.12    Three   4999
1.12    Three   5739
1       Three   69
1       Three   7212
1       Three   4999

我希望在两个ID相同且连续的行中加上数字,即最终得到;

ID1     ID2     Number
2.41    One     1408
2.46    One     41
2.51    One     22
2.69    One     1284
1.005   Two     4298
1.706   Two     4603
1.706   Three   412
1.12    Three   16123
1       Three   12280

我需要通过VBA宏执行此操作,因为这将是一个重复的过程,因此任何用户都必须能够通过按下按钮获得如下所示的数据。

有什么想法吗?

2 个答案:

答案 0 :(得分:0)

将其放在Number旁边的列中,然后将其复制到数据的底部。

  

= SUMPRODUCT( - (A:A = A2), - (B:B = B2),C:C)

仅当A列中的值与B列中的值匹配时才会求和。

答案 1 :(得分:0)

我要做的是创建第3个ID列,“= A1& A2”。这将创建一个可以组合在一起的唯一ID。

“数据”选项卡下有一个小计功能,在“大纲”下,您可以指定在ID3每次更改后对“数字”求和。这将提供您正在寻找的总数。这将在行的左侧生成“迷你列”,单击1,2,3以显示和隐藏细节。希望这会有所帮助,如果您这样做,请发表评论并有任何疑问:)