[已解决]VBA如何提取和求各

KDZ

各位老师：
有数千行，VBA如何提取和汇总：
   1.将H列相同的名字提取出来放在M列，
   
   2.并将H列相同名字这个人的D列数值相加之和放在N列同行。



谢谢！！！急用呢！！！！！

最佳答案

月排行榜 / 总排行榜

望帝春心

2017-1-13 21:19

1. 参考附件

复制代码

跳转到最佳答案楼层

望帝春心

1. Sub test()
   
2.     Set d = CreateObject("scripting.dictionary")
   
3.     arr = Range(Cells(2, 4), Cells(Rows.Count, "h").End(3))
   
4.         For i = 1 To UBound(arr)
   
5.             d(arr(i, 5)) = d(arr(i, 5)) + arr(i, 1)
   
6.         Next
   
7.     Cells(2, "m").Resize(d.Count, 1) = Application.Transpose(d.keys)
   
8.     Cells(2, "n").Resize(d.Count, 1) = Application.Transpose(d.items)
   
9. End Sub

复制代码

望帝春心

1. 参考附件

复制代码

KDZ

谢谢大师！！！！！！