帮忙解析下这一个多列条件下自动求和

carenian

各位大神，高手们，能不能帮我解析下这个多列条件下求和，就是把每行程序后面注释出来下。这个里面涉及到了字典、数组，由于接触到这个东西时间不是很长再加上平时有点懒惰和忙就没顾得上，最近想学习下数组和字典，麻烦各位大神了！其中这个程序是在网站“看见星光”帮助别人编写的，他的个人是：http://club.excelhome.net/?1871127

• Sub d()
• Dim d As Object, arr, brr, i&, j&, k&
• Set d = CreateObject("scripting.dictionary")
• arr = Sheets("基础数据").[a8].CurrentRegion
• For i = 2 To UBound(arr)
•     s = arr(i, 1) & "," & arr(i, 2)
•     For j = 3 To 5
•         d(s & arr(1, j)) = d(s & arr(1, j)) + arr(i, j)
•     Next
• Next
• arr = [a6].CurrentRegion
• For i = 3 To UBound(arr)
•     For j = 2 To UBound(arr, 2)
•         s = arr(i, 1) & "," & arr(1, j) & arr(2, j)
•         If d.exists(s) Then arr(i, j) = d(s)
•     Next
• Next
• [a6].CurrentRegion = arr
• Set d = Nothing
• End Sub
• 
  

carenian

好像没有上传全，不好意思  

carenian

Sub d()
Dim d As Object, arr, brr, i&, j&, k&               '定义d这个变量为object型， 定义 i,j,k 为long型的变量

Set d = CreateObject("scripting.dictionary")        '定义d为字典

arr = Sheets("基础数据").[a8].CurrentRegion         '定义基础数据表格以a8为开始的数组，即点击a8再按住ctrl+A

For i = 2 To UBound(arr)                            '定义i为第2行开始至数组结束

    s = arr(i, 1) & "," & arr(i, 2)                 '定义变量s
   
    For j = 3 To 5
   
        d(s & arr(1, j)) = d(s & arr(1, j)) + arr(i, j)
        
    Next
   
Next

arr = [a6].CurrentRegion

For i = 3 To UBound(arr)

    For j = 2 To UBound(arr, 2)
   
        s = arr(i, 1) & "," & arr(1, j) & arr(2, j)
        
        If d.exists(s) Then
        
            arr(i, j) = d(s)
            
        Else
        
            arr(i, j) = 0
            
        End If
        
    Next
   
Next

[a6].CurrentRegion = arr

Set d = Nothing

End Sub

蓝桥玄霜

对完全没有VBA基础的人解释代码，就如同一个老师要教一个小学生学高等数学，你知道的会有多难教。
如果一句也不懂又有强烈兴趣学VBA的，建议从看一本VBA入门书开始学习。

风云驿

学习了,字典是博大精深啊