求助逐级汇总金额

dnvjfdeuff

求助根据A列编号,逐级汇总金额

rysxing

jsa,试试。。。。。。

ynzsvt

条件是分级每下降一个级别增加两位，且数据按级别有序。

Qs18

1. Sub qs()
   
2. Dim arr, i, dic
   
3. Set dic = CreateObject("scripting.dictionary")
   
4. With Sheet1
   
5.     arr = .Range("a2:c" & .Cells(Rows.Count, 1).End(xlUp).Row)
   
6.     ReDim brr(1 To UBound(arr), 1 To 2)
   
7.     For i = 1 To UBound(arr)
   
8.         If Len(arr(i, 1)) > 6 Then
   
9.         s = CStr(Left(arr(i, 1), 6))
   
10.         If Not dic.exists(s) Then
    
11.             m = m + 1
    
12.             dic(s) = m
    
13.             brr(m, 1) = s
    
14.             brr(m, 2) = arr(i, 3)
    
15.         Else
    
16.             rw = dic(s)
    
17.             brr(rw, 2) = brr(rw, 2) + arr(i, 3)
    
18.             
    
19.         End If
    
20.     End If
    
21.     Next
    
22. .Range("f15").Resize(10000, 2) = ""
    
23. .Range("f15").Resize(m, 2) = brr
    
24. End With
    
25. End Sub
    

复制代码

Qs18

试试..........

Qs18

试试.........

飞天篮球猪

换个工具写，供参考:
1、思路简单，但属于全表遍历，时间复杂度高，两万行大概5秒左右，数据量少也没问题。


2、高效，时间复杂度低，百万行秒出。

jjmysjg

飞天篮球猪 发表于 2024-9-4 11:35
换个工具写，供参考:
1、思路简单，但属于全表遍历，时间复杂度高，两万行大概5秒左右，数据量少也没问题 ...

这个公式是不是2007版本用不了？
=spl("=R=[],E(?).run(R.modify((x=R.select(pos@h(get(1,#1),#1))).1en()+1,~),X.run(#3+=get(1,#3)))",A1:C90)
=sql("=E(?).run(#3=~[0:].select@m(pos@h(#1,get(1,#1))).sum(#3))",A1:C90)

飞天篮球猪

jjmysjg 发表于 2024-9-4 13:42
这个公式是不是2007版本用不了？
=spl("=R=[],E(?).run(R.modify((x=R.select(pos@h(get(1,#1),#1))).1e ...

这个是个插件，可以去搜一下润乾集算器，免费开源的。

chxw68

结果在D列，楼主自己校对一下。