如何用字典+数组计算收支余额

china047

各位老师:


          如何用字典+数组方法,以据D列账号为条件,根据G列(收),H列(支) ,计算出收支余额(如:I列),先谢过各位老师了
收支表 - 副本.rar (10.44 KB, 下载次数: 11)

2024-8-28 17:53 上传

点击文件名下载附件

longwin

请看附件。。。。。

ykcbf1100

附件供参考。。。

ykcbf1100

字典法。。。

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

复制代码

china047

longwin 发表于 2024-8-28 18:11
请看附件。。。。。

非常感谢!

china047

ykcbf1100 发表于 2024-8-28 19:45
字典法。。。

非常感谢!