[已解决]用VBA字典数组 做成透视表式

laoau138

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

最佳答案

月排行榜 / 总排行榜

大灰狼1976

2017-6-19 13:52

1. Sub aaa()
   
2. Dim arr, brr, i&, j&, d As Object, d1 As Object
   
3. Set d = CreateObject("scripting.dictionary")
   
4. Set d1 = CreateObject("scripting.dictionary")
   
5. [f1].CurrentRegion.Offset(1, 1).ClearContents
   
6. arr = [f1].CurrentRegion
   
7. brr = [a1].CurrentRegion
   
8. For i = 2 To UBound(arr)
   
9.   d(arr(i, 1)) = i
   
10. Next i
    
11. For j = 2 To 4
    
12.   d1(arr(1, j)) = j
    
13. Next j
    
14. For i = 2 To UBound(brr)
    
15.   arr(d(brr(i, 1)), d1(brr(i, 2))) = arr(d(brr(i, 1)), d1(brr(i, 2))) + brr(i, 3)
    
16.   arr(d(brr(i, 1)), 5) = arr(d(brr(i, 1)), 5) + brr(i, 3)
    
17. Next i
    
18. [f1].Resize(UBound(arr), UBound(arr, 2)) = arr
    
19. End Sub

复制代码

跳转到最佳答案楼层

大灰狼1976

1. Sub aaa()
   
2. Dim arr, brr, i&, j&, d As Object, d1 As Object
   
3. Set d = CreateObject("scripting.dictionary")
   
4. Set d1 = CreateObject("scripting.dictionary")
   
5. [f1].CurrentRegion.Offset(1, 1).ClearContents
   
6. arr = [f1].CurrentRegion
   
7. brr = [a1].CurrentRegion
   
8. For i = 2 To UBound(arr)
   
9.   d(arr(i, 1)) = i
   
10. Next i
    
11. For j = 2 To 4
    
12.   d1(arr(1, j)) = j
    
13. Next j
    
14. For i = 2 To UBound(brr)
    
15.   arr(d(brr(i, 1)), d1(brr(i, 2))) = arr(d(brr(i, 1)), d1(brr(i, 2))) + brr(i, 3)
    
16.   arr(d(brr(i, 1)), 5) = arr(d(brr(i, 1)), 5) + brr(i, 3)
    
17. Next i
    
18. [f1].Resize(UBound(arr), UBound(arr, 2)) = arr
    
19. End Sub

复制代码

laoau138

大灰狼1976 发表于 2017-6-19 13:52

F列产品名称，没有用字典做出来

大灰狼1976

名称型号我都没用字典做出来，因为你没明确要求啊，剩下一点疑问你自己研究下也好。
你知道我能做出来的，哈哈

laoau138

大灰狼1976 发表于 2017-6-19 13:52

用VBA字典实现查找两列数据  对比第二个错在哪里

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

用VBA数组字典进行多条件求和

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

laoau138

大灰狼1976 发表于 2017-6-19 13:52

用VBA数组或字典计算A列数字数字连续次数

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