[已解决]多条件求和

JIN2014

多条件求和，麻烦给出代码的说明，谢谢！！！

最佳答案

月排行榜 / 总排行榜

大灰狼1976

2017-4-26 12:38

1. Sub aaa()
   
2. Dim arr, i&, brr, d As Object
   
3. arr = [b2].CurrentRegion
   
4. Set d = CreateObject("scripting.dictionary")
   
5. For i = 2 To UBound(arr)
   
6.   d(arr(i, 1) & "," & arr(i, 2)) = d(arr(i, 1) & "," & arr(i, 2)) + arr(i, 3)
   
7. Next i
   
8. For i = 3 To 6
   
9.   Cells(i, 8) = d(Cells(i, 6) & "," & Cells(i, 7))
   
10. Next i
    
11. End Sub

复制代码

跳转到最佳答案楼层

qqyyh

没必要的

JIN2014

qqyyh 发表于 2017-4-25 22:16
没必要的

老师，我不会啊，求教啊

JIN2014

qqyyh 发表于 2017-4-25 22:16
没必要的

因为是初学，所以向老师们求教啊

砂海

楼主 找点资料 , 自己先学着吧.

问题本身 完全用不着 Vba , 这又是几乎最基础的 .

所以 没法教 , 有诚意学习 就自己找资料 , 或者报班

zwe45

我也是新人，用笨方法做了下你看看行不行

Dim i As Integer
i = Cells(3, 8).Value + Cells(4, 8).Value + Cells(5, 8).Value + Cells(6, 8).Value
Cells(7, 8).Value = i

大灰狼1976

1. Sub aaa()
   
2. Dim arr, i&, brr, d As Object
   
3. arr = [b2].CurrentRegion
   
4. Set d = CreateObject("scripting.dictionary")
   
5. For i = 2 To UBound(arr)
   
6.   d(arr(i, 1) & "," & arr(i, 2)) = d(arr(i, 1) & "," & arr(i, 2)) + arr(i, 3)
   
7. Next i
   
8. For i = 3 To 6
   
9.   Cells(i, 8) = d(Cells(i, 6) & "," & Cells(i, 7))
   
10. Next i
    
11. End Sub

复制代码

JIN2014

大灰狼1976 发表于 2017-4-26 12:38

谢谢老师！！！