[已解决]数据统计

cyj153

数据统计.zip (5.57 KB, 下载次数: 8)

2016-1-9 10:19 上传

点击文件名下载附件
谢谢！

最佳答案

月排行榜 / 总排行榜

dsmch

2016-1-9 11:14

………………

跳转到最佳答案楼层

dsmch

1. Sub Macro1()
   
2. Dim arr, brr, d, i&, s%, n%
   
3. Set d = CreateObject("scripting.dictionary")
   
4. arr = Sheet3.[f2:g84]
   
5. ReDim brr(1 To 2000, 1 To 10)
   
6. For i = 1 To UBound(arr)
   
7.     s2 = s2 + arr(i, 2)
   
8.     If Not d.exists(arr(i, 1)) Then
   
9.         s = s + 1
   
10.         d(arr(i, 1)) = s
    
11.         brr(s, 1) = s
    
12.         brr(s, 2) = arr(i, 1)
    
13.         brr(s, 8) = 1
    
14.         brr(s, 9) = arr(i, 2)
    
15.     Else
    
16.         n = d(arr(i, 1))
    
17.         brr(n, 8) = brr(n, 8) + 1
    
18.         brr(n, 9) = brr(n, 9) + arr(i, 2)
    
19.     End If
    
20. Next
    
21. pjf = Application.Round(s2 / UBound(arr), 2)
    
22. For i = 1 To s
    
23.     brr(i, 3) = Application.Round(brr(i, 9) / brr(i, 8), 2)
    
24.     brr(i, 4) = pjf
    
25.     brr(i, 5) = Application.Round(brr(i, 3) - brr(i, 4), 2)
    
26. Next
    
27. Sheet2.Activate
    
28. [a4].Resize(s, 7) = brr
    
29. [f4] = "=RANK(C4,C:C)"
    
30. [f4].AutoFill [f4].Resize(s)
    
31. End Sub

复制代码

dsmch

………………

excel助手

数据统计.zip (14.27 KB, 下载次数: 4)

2016-1-9 14:24 上传

点击文件名下载附件