提取汇总相同单位的贴息情况

聆听我心

根据表1各单位的多条贴息明细，现要提取汇总表1各单位的各核定贷款额度的财政贴息金额（已标黄）到本表，请各位大师帮忙用VBA提取。表中是手工汇总了单位1的情况。感谢为盼

3190496160

看模拟结果，似乎是要分类汇总，但是，看不明白分类的条件究竟是那几个条件？

聆听我心

3190496160 发表于 2024-6-13 08:59
看模拟结果，似乎是要分类汇总，但是，看不明白分类的条件究竟是那几个条件？

表2里标黄了呀，就是提取各单位、各核定贷款额度的贴息金额汇总。

ykcbf1100

附件供参考。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()   '//2024.6.13
   
2.     Dim arr, brr, d
   
3.     Application.ScreenUpdating = False
   
4.     Set d = CreateObject("scripting.dictionary")
   
5.     With Sheets("Sheet1")
   
6.         r = .Cells(Rows.Count, 1).End(3).Row
   
7.         arr = .[a1].Resize(r, 7)
   
8.     End With
   
9.     ReDim brr(1 To UBound(arr), 1 To 7)
   
10.     For i = 3 To UBound(arr)
    
11.         s = arr(i, 2) & "|" & arr(i, 5)
    
12.         If Not d.Exists(s) Then
    
13.             m = m + 1
    
14.             d(s) = m
    
15.             brr(m, 1) = m
    
16.             For j = 2 To UBound(arr, 2)
    
17.                 brr(m, j) = arr(i, j)
    
18.             Next
    
19.         Else
    
20.             r = d(s)
    
21.             brr(r, 7) = brr(r, 7) + arr(i, 7)
    
22.         End If
    
23.     Next
    
24.     With Sheets("贴息汇总")
    
25.         .[a3:g1000] = ""
    
26.         .Range("a3").Resize(m, 7) = brr
    
27.         Set Rng = .[b3].Resize(m, 6)
    
28.         Rng.Sort .[b3], 1
    
29.     End With
    
30.     Set d = Nothing
    
31.     Application.ScreenUpdating = True
    
32.     MsgBox "OK！"
    
33. End Sub
    

复制代码

roserice

=SUMPRODUCT((Sheet1!B2:B16=贴息汇总!B3)*1*(Sheet1!C2:C16=贴息汇总!C3),(Sheet1!G2:G16))

LIUZHU

比较简单，参与下

LIUZHU

JS代码，WPS可用

1. function 合并汇总(){
   
2.         let res=Sheets.Item("Sheet1").UsedRange.Value2.slice(2).reduce((res,[,a,b,c,d,e,f])=>{
   
3.                 return (res[a+b]=res[a+b] || (res.push([res.length+1,a,b,c,d,e,0]), res[res.length-1]))[6]+=f, res;
   
4.         },[]);
   
5.         Sheets.Item("贴息汇总").Range("a3").Resize(res.length, res[0].length).Value2=res;
   
6. }

复制代码

LIUZHU

附件，WPS打开测试

LIUZHU

这个贴息汇总表，同一列上下的数据格式不统一，提前设置了下，没在代码中体现格式设置了
建议以后注意指标的规范性，同一列的数据格式应保持相同。