[已解决]自动的分类合计

zyh310470

求大侠在附件中添加分类合计的VBA，并添上批注就更好，按附件中要求分类，谢谢

最佳答案

月排行榜 / 总排行榜

grf1973

2015-2-17 15:08

几个帖子都是同一问题。。。。。

跳转到最佳答案楼层

baksy

A2公式，下拉；
=row（）-1

zyh310470

baksy 发表于 2015-2-14 15:06
A2公式，下拉；
=row（）-1

我是要按表格内的内容制作位VBA的代码哦

ppp710715

1. Sub pp()
   
2. rw = Cells(Rows.Count, 2).End(3).Row
   
3. Set d = CreateObject("scripting.dictionary")
   
4. arr = Range("b2:e" & rw)
   
5. For i = 1 To UBound(arr)
   
6.   d(arr(i, 1)) = d(arr(i, 1)) + arr(i, 4)
   
7. Next
   
8. [g2].Resize(d.Count) = Application.Transpose(d.keys)
   
9. [h2].Resize(d.Count) = Application.Transpose(d.items)
   
10. End Sub

复制代码

zyh310470

zyh310470 发表于 2015-2-14 19:14
我是要按表格内的内容制作位VBA的代码哦

大师，你好：你这个可以汇总，但我是希望能够向下插入单元格并进行汇总，可以把你这个代码改下吗

grf1973

几个帖子都是同一问题。。。。。