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

laisme888

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

百度了下“按级生成公式”，发现eh论坛有人提过类似的问题，不过依然没有解决问题。http://club.excelhome.net/thread-594033-1-1.html

laisme888

chenbiao2012 发表于 2016-1-30 20:22

试验了以下，完美！！！不过，看了9楼的回复，我觉得a列确实应该把3级也显示出来，这样问题才具有普遍性（如附图所示，这种情况在财务报表中很常见，eh论坛中有个类似的问题，貌似一直无人解决，希望在本帖能解决这个问题，惠及更多有同样疑惑的朋友：http://club.excelhome.net/thread-594033-1-1.html）。我把您的这段代码在本楼附件中调试了一下，d列全部变成0，希望大神修改下代码，让这段代码适应性更强些，再次感谢！）

laisme888

自己顶上去。

laisme888

周末大神都休息去了。。。

laisme888

还是没人回复？在线等了一下午。。。。

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 Or (InStr(arr(i, 1), ".") = 0 And Len(arr(i, 1))) > 4 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.                 If Len(arr(i, 1)) < 4 Or InStr(arr(i, 1), ".") Then
    
15.                 u = UBound(Split(arr(i, 1), "."))
    
16.                     For j = i + 1 To UBound(arr)
    
17.                         If InStr(arr(j, 1), arr(i, 1) & ".") And UBound(Split(arr(j, 1), ".")) - u = 1 Then
    
18.                             arr(i, 4) = arr(i, 4) + arr(j, 4)
    
19.                         End If
    
20.                     Next
    
21.                 End If
    
22.             End If
    
23.         Next
    
24.         .range("a6:d" & r) = arr
    
25.     End With
    
26. End Sub
    

复制代码

yjh_27

BOM 大纲排序-自定义函数
http://club.excelhome.net/thread-1175717-1-1.html
(出处: ExcelHome技术论坛)

cqcbc

最新的《决算》升级为excel伴侣，要加密狗，或者用《志诚报表》，再导为excel。

kszcs

在哪个表求和呢

laisme888

kszcs 发表于 2016-2-1 07:32
在哪个表求和呢

2-4-1表I列。