excel如何取一组成绩的前15%，中间30%中的最高分与最低分

zjh200010

各位朋友，好久没见，现请大家：excel如何取一组成绩的前15%，中间30%中的最高分与最低分

zjh200010

，也就是各等级中原始分的最高分和最低分。谢谢各位

3190496160

已经发了50多个帖子了，还不知道要上传附件吗？

zjh200010

请用这个附件，谢谢各位

zjh200010

请各位帮帮忙。谢谢！

chxw68

zjh200010 发表于 2020-1-30 19:13
请各位帮帮忙。谢谢！

楼主可能是广东或福建的吧？

zjh200010

是的。谢谢

zjh200010

请帮忙。谢谢

zjh200010

请帮忙啊，各位

chxw68

1. Sub test()
   
2.   Dim r%, i%
   
3.   Dim arr, brr, crr()
   
4.   With Worksheets("参数设置")
   
5.     c = .Cells(1, .Columns.Count).End(xlToLeft).Column
   
6.     brr = .Range("b1").Resize(2, c - 1)
   
7.   End With
   
8.   For j = 2 To UBound(brr, 2)
   
9.     brr(2, j) = brr(2, j - 1) + brr(2, j)
   
10.   Next
    
11.   With Worksheets("sheet1")
    
12.     r = .Cells(.Rows.Count, 1).End(xlUp).Row
    
13.     c = .Cells(1, .Columns.Count).End(xlToLeft).Column
    
14.     arr = .Range("a1").Resize(r, c)
    
15.     ReDim zrr(1 To (UBound(arr, 2) - 1) / 2, 1 To UBound(brr, 2) + 1)
    
16.     q = 0
    
17.     For j = 2 To UBound(arr, 2) Step 2
    
18.       q = q + 1
    
19.       zrr(q, 1) = arr(1, j)
    
20.       m = 0
    
21.       For i = 2 To UBound(arr)
    
22.         If Len(arr(i, j)) <> 0 Then
    
23.           m = m + 1
    
24.           ReDim Preserve crr(1 To m)
    
25.           crr(m) = arr(i, j)
    
26.         End If
    
27.       Next
    
28.       rs = UBound(crr)
    
29.       For k = 1 To UBound(brr, 2)
    
30.         zrr(q, k + 1) = Application.Large(crr, rs * brr(2, k))
    
31.       Next
    
32.     Next
    
33.   End With
    
34.   With Worksheets("参数设置")
    
35.     .Select
    
36.     With .Range("a3").Resize(UBound(zrr), UBound(zrr, 2))
    
37.       .Value = zrr
    
38.       .Interior.ColorIndex = 3
    
39.     End With
    
40.   End With
    
41.   
    
42. End Sub
    

复制代码