关于提取数字总和的问题

phoenixdjq

我想统计A列PG3所在B列所有数字的总和，把这些内容写到另外一个位置上。
有没有好的办法，函数，谢谢！
具体如下：

PG3	728.528
PG3	1712.425
PG3	302.371
PG3	394.332
PG9	728.528
PG9	1712.425
PG9	302.371
PG9	394.332
PG18	1374.219
PG18	407.259
PG18	118.213
PG23	1374.219
PG23	407.259
PG52	659.400
PG52	160.130
PG56	883.596
PG56	480.350
PG56	1028.262
PG56	480.350

goodlong

1. =SUMIF(B:B,"pg3",C:C)

复制代码

phoenixdjq

我输入进去，都是零
现在把附件加上了，请高手指点！谢谢！

goodlong

phoenixdjq 发表于 2014-1-3 13:16
我输入进去，都是零
现在把附件加上了，请高手指点！谢谢！

看你题目 看花眼了，以为pg3在b列

1. =SUMIF(A:A,"pg3",B:B)

复制代码

phoenixdjq

首先，表示谢谢！
还有个问题，有没有办法，自动把所有种类算出来呢
就是说把PG3,PG9,PG18……都统计出来呢

再次感谢！

grf1973

用分类汇总呗，以A列分类。

grf1973

也可以用下面的代码：

1. Sub tt()
   
2.     Set d = CreateObject("scripting.dictionary")
   
3.     arr = [a1].CurrentRegion
   
4.     For i = 1 To UBound(arr)
   
5.         d(arr(i, 1)) = d(arr(i, 1)) + arr(i, 2)
   
6.     Next
   
7.     Range("e:f").ClearContents
   
8.     [e1].Resize(d.Count, 1) = Application.Transpose(d.keys)
   
9.     [f1].Resize(d.Count, 1) = Application.Transpose(d.items)
   
10. End Sub
    

复制代码

phoenixdjq

不好意思i，还得打扰一下，我没有用过代码，这个代码，怎么用呢？见笑了！

谢谢！

grf1973

附件里有啊，建个按钮指定宏。

phoenixdjq

我已经加载到宏里面了，想做个按钮