求助：如何实现相同项目不同日期累加。实现D列的效果。谢谢老师。

xwcbz

求助：如何实现相同项目不同日期累加。实现D列的效果。谢谢老师。

杨建营

1. Sub 累计()
   
2. Dim i&
   
3. Dim arr, d
   
4. Application.ScreenUpdating = False
   
5. Set d = CreateObject("scripting.dictionary")
   
6. arr = [a1].CurrentRegion
   
7. For i = 2 To UBound(arr)
   
8.     If Not d.exists(arr(i, 2)) Then
   
9.         d(arr(i, 2)) = arr(i, 3)
   
10.         arr(i, 4) = arr(i, 3)
    
11.     Else
    
12.         d(arr(i, 2)) = d(arr(i, 2)) + arr(i, 3)
    
13.         arr(i, 4) = d(arr(i, 2))
    
14.     End If
    
15. Next
    
16. [a1].Resize(UBound(arr), 4) = arr
    
17. Application.ScreenUpdating = True
    
18. End Sub

复制代码

直接上代码了，请楼主参考。

无关岁月

测试.7z (7.33 KB, 下载次数: 1)

2024-4-3 18:47 上传

点击文件名下载附件

杨建营

代码在审核，上截图吧。

xwcbz

杨建营 发表于 2024-4-3 18:48
代码在审核，上截图吧。

谢谢老师的帮助。

xwcbz

无关岁月 发表于 2024-4-3 18:48

谢谢老师的帮助。

xwcbz

杨建营 发表于 2024-4-3 18:47
直接上代码了，请楼主参考。

谢谢老师的帮助。解决。

NBCBA123

xwcbz

NBCBA123 发表于 2024-4-3 19:42

谢谢老师的帮助，谢谢。