[已解决]求助：编写一段VBA代码（实现SUMPRODUCT功能）

lucking551

如附件：

求助：编写VBA代码.rar (2.54 KB, 下载次数: 82)

2011-11-3 11:35 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

snrvgbb

2011-11-3 12:22

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. Dim arr, I%, d, arrt, k%
   
3. If Target.Address = "$C$4" Then
   
4.     arr = Range("H6:j" & [h65536].End(3).Row)
   
5.     Set d = CreateObject("scripting.dictionary")
   
6.     For I = 1 To UBound(arr)
   
7.         d(arr(I, 1) & "|" & arr(I, 2)) = d(arr(I, 1) & "|" & arr(I, 2)) + arr(I, 3)
   
8.     Next
   
9.     arrt = Range("b5:c" & [b65536].End(3).Row)
   
10.     For k = 1 To UBound(arrt)
    
11.         arrt(k, 2) = d(arrt(k, 1) & "|" & [c4].Value)
    
12.     Next
    
13.     Range("b5").Resize(UBound(arrt), 2) = arrt
    
14. End If
    
15. End Sub
    

复制代码

跳转到最佳答案楼层

snrvgbb

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. Dim arr, I%, d, arrt, k%
   
3. If Target.Address = "$C$4" Then
   
4.     arr = Range("H6:j" & [h65536].End(3).Row)
   
5.     Set d = CreateObject("scripting.dictionary")
   
6.     For I = 1 To UBound(arr)
   
7.         d(arr(I, 1) & "|" & arr(I, 2)) = d(arr(I, 1) & "|" & arr(I, 2)) + arr(I, 3)
   
8.     Next
   
9.     arrt = Range("b5:c" & [b65536].End(3).Row)
   
10.     For k = 1 To UBound(arrt)
    
11.         arrt(k, 2) = d(arrt(k, 1) & "|" & [c4].Value)
    
12.     Next
    
13.     Range("b5").Resize(UBound(arrt), 2) = arrt
    
14. End If
    
15. End Sub
    

复制代码

sfwx

高手级别的 大哥 学习了