[已解决]用VBA如何计算多个表金额

laoau138

用VBA如何计算多个表金额

最佳答案

月排行榜 / 总排行榜

大灰狼1976

2017-4-15 20:17

在sheet4内运行代码

1. Sub aaa()
   
2. Dim sh&, i&, arr, a$, b$, n&
   
3. a = [a1]: b = [b1]
   
4. For sh = 1 To 3
   
5.   arr = Sheets(sh).[a1].CurrentRegion
   
6.   For i = 1 To UBound(arr)
   
7.     If arr(i, 1) = a And arr(i, 2) = b Then n = n + arr(i, 3)
   
8.   Next i
   
9. Next sh
   
10. [c1] = n
    
11. End Sub

复制代码

跳转到最佳答案楼层

大灰狼1976

在sheet4内运行代码

1. Sub aaa()
   
2. Dim sh&, i&, arr, a$, b$, n&
   
3. a = [a1]: b = [b1]
   
4. For sh = 1 To 3
   
5.   arr = Sheets(sh).[a1].CurrentRegion
   
6.   For i = 1 To UBound(arr)
   
7.     If arr(i, 1) = a And arr(i, 2) = b Then n = n + arr(i, 3)
   
8.   Next i
   
9. Next sh
   
10. [c1] = n
    
11. End Sub

复制代码

laoau138

大灰狼1976 发表于 2017-4-15 20:17
在sheet4内运行代码

如果用for each循环可以从i=1前面开始删除


http://www.excelpx.com/thread-429386-1-1.html