按条件累加汇总

山城子

求助按条件累加期末金额.7z (935.32 KB, 下载次数: 14)

2024-11-29 12:37 上传

点击文件名下载附件

  

按相同辅助部门AND相同辅助客户，
进行从上到下进行 “I增加欠款金额”+“J减少欠款金额”+"N期初余额“进行加总在O列
由于 数据量比较大，用SUMIFS太卡了，想用VBA实现，麻烦老师帮忙指教 ，谢谢

loirol

删了很多行数据，自己再添回去吧，超2M了

ykcbf1100

附件供参考。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()   '//2024.11.29
   
2.     Application.ScreenUpdating = False
   
3.     Set d = CreateObject("Scripting.Dictionary")
   
4.     With ActiveSheet
   
5.         r = .Cells(Rows.Count, 1).End(3).Row
   
6.         arr = [a1].Resize(r, 15)
   
7.         For i = 2 To UBound(arr)
   
8.             s = arr(i, 1) & "|" & arr(i, 4)
   
9.             d(s) = d(s) + arr(i, 9) + arr(i, 10) + arr(i, 14)
   
10.             arr(i, 15) = d(s)
    
11.         Next
    
12.         .[o1].Resize(r, 1) = Application.Index(arr, 0, 15)
    
13.     End With
    
14.     Set d = Nothing
    
15.     Application.ScreenUpdating = True
    
16.     MsgBox "OK！"
    
17. End Sub
    
18. 
    

复制代码

夏天的风shh4695

Sub TryIt()
Dim arr, d, i, s
Set d = CreateObject("scripting.dictionary")
lstr = Cells(Rows.Count, 1).End(xlUp).Row
arr = Sheet1.Range(Cells(1, 1), Cells(lstr, "o"))
For i = 2 To UBound(arr)
    s = arr(i, 1) + "..." + arr(i, 4)
    If d.exists(s) Then
        arr(i, 15) = arr(i, 9) + arr(i, 10) + d(s)
    Else
        arr(i, 15) = arr(i, 9) + arr(i, 10) + arr(i, 14)
    End If
    d(s) = arr(i, 15)
Next i
Sheet1.Range(Cells(1, 1), Cells(lstr, "o")) = arr
End Sub

飞天篮球猪

插件解法...仅供参考
1、模拟字典，空间换时间

2、按位置赋值