请高手给个代码，学习一下。统计一下校名次的区间统计

戎马书生222

来个高级点实例，请高手给个代码，学习一下。统计一下校名次的区间统计

ykcbf1100

附件供参考。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf3()  '//2024.6.25
   
2.     Application.ScreenUpdating = False
   
3.     Application.DisplayAlerts = False
   
4.     Set d = CreateObject("Scripting.Dictionary")
   
5.     b = [{5,10,15,20,25,30,50}]
   
6.     ReDim brr(1 To 1000, 1 To 100)
   
7.     With Sheets("Sheet1")
   
8.         r = .Cells(Rows.Count, 1).End(3).Row
   
9.         arr = .[a1].Resize(r, 3)
   
10.         For i = 2 To UBound(arr)
    
11.             s = arr(i, 1)
    
12.             If Not d.exists(s) Then
    
13.                 m = m + 1
    
14.                 d(s) = m
    
15.                 brr(m, 1) = s
    
16.             End If
    
17.             r = d(arr(i, 1))
    
18.             c = 1
    
19.             For x = 1 To UBound(b)
    
20.                 If arr(i, 3) <= b(x) Then
    
21.                     c = x + c
    
22.                     brr(r, c) = brr(r, c) + 1
    
23.                     Exit For
    
24.                 End If
    
25.             Next
    
26.         Next
    
27.         .[h2:o1000].ClearContents
    
28.         .[h2].Resize(m, UBound(b) + 1) = brr
    
29.     End With
    
30.     Set d = Nothing
    
31.     Application.ScreenUpdating = True
    
32.     MsgBox "OK！"
    
33. End Sub
    

复制代码

65861954

直接公式不好吗？为什么非得VBA，以前有段时间我也执着于VBA，后面慢慢就释然了，能用公式解决的就不用VBA。

戎马书生222

65861954 发表于 2024-6-25 15:52
直接公式不好吗？为什么非得VBA，以前有段时间我也执着于VBA，后面慢慢就释然了，能用公式解决的就不用VBA ...

数据量大了，你就知道VBA的好处了。

tanglf188

练手：使用集合对象，请参考

ykcbf1100

既然用集合了，那干脆用ArrayList好了，更方便一点吧。
不过，你这个代码没有自动生成班级，是一个不足之处。

tanglf188

ykcbf1100 发表于 2024-6-25 16:41
既然用集合了，那干脆用ArrayList好了，更方便一点吧。
不过，你这个代码没有自动生成班级，是一个不足之 ...

昨天刚看到集合对象，没用过写着玩玩

ykcbf1100

tanglf188 发表于 2024-6-25 16:45
昨天刚看到集合对象，没用过写着玩玩

集合是office2003版就可以用的，ArrayList是要office2007以上版本才能用。

tanglf188

ykcbf1100 发表于 2024-6-25 16:52
集合是office2003版就可以用的，ArrayList是要office2007以上版本才能用。

多谢草爷指教