[已解决]用VBA字典数组多行多列汇总

laoau138

用VBA字典数组多行多列汇总

最佳答案

月排行榜 / 总排行榜

大灰狼1976

2017-6-19 13:32

这个只是将第1列和第2列并成一个key.

1. Sub aaa()
   
2. Dim arr, brr, i&, r&, d As Object, s$
   
3. Set d = CreateObject("scripting.dictionary")
   
4. arr = [a1].CurrentRegion
   
5. ReDim brr(1 To UBound(arr), 1 To 3)
   
6. For i = 2 To UBound(arr)
   
7.   s = arr(i, 1) & "," & arr(i, 2)
   
8.   If Not d.exists(s) Then
   
9.     r = r + 1
   
10.     d(s) = r
    
11.     brr(r, 1) = arr(i, 1)
    
12.     brr(r, 2) = arr(i, 2)
    
13.   End If
    
14.   brr(d(s), 3) = brr(d(s), 3) + arr(i, 3)
    
15. Next i
    
16. [e2].Resize(r, 3) = brr
    
17. End Sub

复制代码

跳转到最佳答案楼层

大灰狼1976

这个只是将第1列和第2列并成一个key.

1. Sub aaa()
   
2. Dim arr, brr, i&, r&, d As Object, s$
   
3. Set d = CreateObject("scripting.dictionary")
   
4. arr = [a1].CurrentRegion
   
5. ReDim brr(1 To UBound(arr), 1 To 3)
   
6. For i = 2 To UBound(arr)
   
7.   s = arr(i, 1) & "," & arr(i, 2)
   
8.   If Not d.exists(s) Then
   
9.     r = r + 1
   
10.     d(s) = r
    
11.     brr(r, 1) = arr(i, 1)
    
12.     brr(r, 2) = arr(i, 2)
    
13.   End If
    
14.   brr(d(s), 3) = brr(d(s), 3) + arr(i, 3)
    
15. Next i
    
16. [e2].Resize(r, 3) = brr
    
17. End Sub

复制代码

laoau138

大灰狼1976 发表于 2017-6-19 13:32
这个只是将第1列和第2列并成一个key.

用VBA字典数组  做成透视表式


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

laoau138

大灰狼1976 发表于 2017-6-19 13:32
这个只是将第1列和第2列并成一个key.

果然是高手