[已解决]求助数组高手，分类汇总数据后整合到一个新数组里面

jessylake

分类汇总数据后整合到一个新数组里面，详见附件
分类汇总.zip (7.85 KB, 下载次数: 9)

2015-4-6 09:00 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

grf1973

2015-4-6 09:19

1. Sub tt()
   
2.     arr = Range("c3:p11")
   
3.     ReDim brr(1 To UBound(arr), 1 To 4)
   
4.     Set d = CreateObject("scripting.dictionary")
   
5.     For i = 2 To UBound(arr)
   
6.         If arr(i, 5) = "已成" Then
   
7.             x = arr(i, 3): y = arr(i, 4)
   
8.             cj = arr(i, 9) '成交数量
   
9.             If Not d.exists(x) Then
   
10.                 n = n + 1
    
11.                 d(x) = n
    
12.                 brr(n, 1) = x
    
13.             End If
    
14.             p = d(x)
    
15.             c = IIf(y = "卖出", 4, IIf(arr(i, 12) = "信用交易", 3, 2))
    
16.             brr(p, c) = brr(p, c) + cj
    
17.         End If
    
18.     Next
    
19.     [d21].Resize(n, 4) = brr
    
20. End Sub
    

复制代码

跳转到最佳答案楼层

grf1973

1. Sub tt()
   
2.     arr = Range("c3:p11")
   
3.     ReDim brr(1 To UBound(arr), 1 To 4)
   
4.     Set d = CreateObject("scripting.dictionary")
   
5.     For i = 2 To UBound(arr)
   
6.         If arr(i, 5) = "已成" Then
   
7.             x = arr(i, 3): y = arr(i, 4)
   
8.             cj = arr(i, 9) '成交数量
   
9.             If Not d.exists(x) Then
   
10.                 n = n + 1
    
11.                 d(x) = n
    
12.                 brr(n, 1) = x
    
13.             End If
    
14.             p = d(x)
    
15.             c = IIf(y = "卖出", 4, IIf(arr(i, 12) = "信用交易", 3, 2))
    
16.             brr(p, c) = brr(p, c) + cj
    
17.         End If
    
18.     Next
    
19.     [d21].Resize(n, 4) = brr
    
20. End Sub
    

复制代码

jessylake

grf1973 发表于 2015-4-6 09:19

我这里有个小失误，把“部撤”  的成交数量也应该算进去，去掉 If arr(i, 5) = "已成" Then 就 OK 了，谢谢老师！

jessylake

grf1973 发表于 2015-4-6 09:19

老师还请您再帮我看看这个问题，谢谢
求助数组高手帮我利用股票交易数据对股票库存进行调整
http://www.excelpx.com/thread-341132-1-1.html