[已解决]字典加总代替SUMPRODUCT,求VBA代码，最好用字典，万分感谢

MRHUANGHESIR

POWER（1-12月)的工作表C20到C30的机种与D19到O12的月份联合起来，求axmr731工作表的对应项加总，最后输入到[size=13.9999990463257px]POWER（1-12月)的工作表D20到C30,求VBA代码，最好用字典，万分感谢
详见附件

最佳答案

月排行榜 / 总排行榜

sry660

2016-1-29 09:53

1. Sub 汇总()
   
2. Dim arr, i&, j&, d, x
   
3. arr = Sheets("axmr731").[a1].CurrentRegion
   
4. Set d = CreateObject("scripting.dictionary")
   
5. For i = 2 To UBound(arr)
   
6.     For j = 5 To 16
   
7.         x = arr(i, 1) & arr(1, j)
   
8.         d(x) = d(x) + arr(i, j)
   
9.     Next
   
10. Next
    
11. arr = Sheets("POWER（1-12月)").[a19].Resize(11, 15)
    
12. For i = 2 To UBound(arr)
    
13.     For j = 4 To 15
    
14.         x = arr(i, 3) & arr(1, j)
    
15.         If d.exists(x) Then
    
16.             arr(i, j) = d(x)
    
17.         End If
    
18.     Next
    
19. Next
    
20. [d20:o30].ClearContents
    
21. [a19].Resize(11, 15) = arr
    
22. Erase arr
    
23. Set d = Nothing
    
24. End Sub

复制代码

跳转到最佳答案楼层

sry660

1. Sub 汇总()
   
2. Dim arr, i&, j&, d, x
   
3. arr = Sheets("axmr731").[a1].CurrentRegion
   
4. Set d = CreateObject("scripting.dictionary")
   
5. For i = 2 To UBound(arr)
   
6.     For j = 5 To 16
   
7.         x = arr(i, 1) & arr(1, j)
   
8.         d(x) = d(x) + arr(i, j)
   
9.     Next
   
10. Next
    
11. arr = Sheets("POWER（1-12月)").[a19].Resize(11, 15)
    
12. For i = 2 To UBound(arr)
    
13.     For j = 4 To 15
    
14.         x = arr(i, 3) & arr(1, j)
    
15.         If d.exists(x) Then
    
16.             arr(i, j) = d(x)
    
17.         End If
    
18.     Next
    
19. Next
    
20. [d20:o30].ClearContents
    
21. [a19].Resize(11, 15) = arr
    
22. Erase arr
    
23. Set d = Nothing
    
24. End Sub

复制代码

wqjyyylkz

看不懂VBA， 努力学习中

MRHUANGHESIR

sry660 发表于 2016-1-29 09:53

神人也，膜拜。。。。。
学习了，醍醐灌顶，我也化茧成蝶

xiaofei1989

能解释一下吗？循环语句中代码的意义