分级求和，就是做报表时经常手动sum的那个，有没有办法用vba一建解决？

laisme888

之前的帖子得到不少朋友的热心回答，我的问题描述有不得当的地方，重新编辑整理如下。如图所示，I列能否想G列那样，按照项目编码的级别分级累进求和？这个问题非常常见，搜遍百度也没有遇到满意的答案，希望能在这里解决。

laisme888

看来这个问题挺有难度，看过的人不少，答题的目前还没有

dfdfsfds

laisme888 发表于 2016-1-30 19:07
看来这个问题挺有难度，看过的人不少，答题的目前还没有

如果所有表都是一样的就是很简单的问题吧

逆光萤火

内容是专业的，表格设计好像不够专业，格式不统一，合并单元格都逆天了……

laisme888

dfdfsfds 发表于 2016-1-30 19:09
如果所有表都是一样的就是很简单的问题吧

只是D列需要分级求和。

chenbiao2012

1. Sub test()
   
2.     With Sheets("2-4-9")
   
3.         r = .Cells(Rows.Count, 1).End(3).Row
   
4.         arr = .range("a6:d" & r)
   
5.         For i = UBound(arr) To 1 Step -1
   
6.             If arr(i, 1) = 0 Then
   
7.                 hj = hj + arr(i, 4)
   
8.             Else
   
9.                 arr(i, 4) = hj: hj = 0
   
10.             End If
    
11.         Next
    
12.         For i = 1 To UBound(arr) - 1
    
13.             If arr(i, 1) <> 0 Then
    
14.                 For j = i + 1 To UBound(arr)
    
15.                     If InStr(arr(j, 1), arr(i, 1)) Then
    
16.                         arr(i, 4) = arr(i, 4) + arr(j, 4)
    
17.                     End If
    
18.                 Next
    
19.             End If
    
20.         Next
    
21.         .range("a6:d" & r) = arr
    
22.     End With
    
23. End Sub
    

复制代码

chenbiao2012

按我的理解给你做了一个。不管对错，请不要小瞧论坛，这里面可是大有人在的哟

laisme888

chenbiao2012 发表于 2016-1-30 20:25
按我的理解给你做了一个。不管对错，请不要小瞧论坛，这里面可是大有人在的哟

岂敢岂敢，eh在我心中是神一样的存在，在这里学到很多，得到很多朋友无私的帮助。明天用电脑试验一下，非常感谢，代码好多看不懂，向您学习。

cqcbc

这种有级次的，最好的工具是按级次生成公式（《决算》菜单），但此例中A列不完整。

laisme888

cqcbc 发表于 2016-1-30 22:28
这种有级次的，最好的工具是按级次生成公式（《决算》菜单），但此例中A列不完整。

完整的在2-4-1A列中，你说的按级生成公式具体怎么操作呢？请赐教