请各位大师帮忙筛选优生弱科学生名单，谢谢！

nyxmq

请各位大师帮忙，从总分校前300名学生（若个别班级进入前300不足15人，按班级前15人）筛选单科校排名次大于其总分校排名80及以上学生名单。谢谢！

Learner2022

试试看。有空白成绩我也算进去了

Learner2022

1. Public Sub filter()
   
2.     Dim ws As Worksheet
   
3.     Dim rng As Range
   
4.     Dim cel As Range, arr(), brr(), crr()
   
5.     Dim myrng As Range
   
6.     Dim nm As Name
   
7. 
   
8.     Set ws = Worksheets("sheet1")
   
9.     ws.Activate
   
10. 
    
11.     crr = Array("语文", "数学", "英语", "物理", "化学", "政治", "历史", "科目1", "科目2")
    
12.    
    
13.     For m = 0 To 8
    
14.         ws.Activate
    
15.         a = Range("总分校排").Count
    
16.         k = 0
    
17.         ReDim arr(0 To Range("总分校排").Count, 0 To 3)
    
18.         brr = Array("姓名", crr(m) & "分数", crr(m) & "校排", "总分校排")
    
19.         For i = 2 To Range("总分校排").Count
    
20.             If Range("总分校排").Cells(i).Value - Range(crr(m) & "校排").Cells(i).Value > 80 Then
    
21.                     For j = 0 To 3
    
22.                        arr(k, j) = Range(brr(j)).Cells(i).Value
    
23.                     Next
    
24.                     k = k + 1
    
25.             End If
    
26.         Next
    
27.         Worksheets("优生弱科名单").Activate
    
28.         Set myrng = Range("B4").Offset(0, 4 * m).Resize(UBound(arr), 4)
    
29.         myrng = arr
    
30.         Erase arr
    
31.     Next
    
32. End Sub

复制代码

本来说用名称做 后面感觉有点多余

nyxmq

Learner2022 发表于 2024-3-16 13:34
试试看。有空白成绩我也算进去了

非常感谢您的帮助。谢谢！怎样才能改成弱科学生名单，就是总分名次好某些单科成绩名次不理想。筛选单科校排名次落后于其总分校排名80及以上学生名单。谢谢！最好还能保留这些学生的班级

fzxba

优生弱科学生名单.zip (294.79 KB, 下载次数: 15)

2024-3-16 15:05 上传

点击文件名下载附件

nyxmq

fzxba 发表于 2024-3-16 15:05

非常感谢您的帮助，谢谢！

fzxba

nyxmq 发表于 2024-3-16 16:20
非常感谢您的帮助，谢谢！

客气了优化一下标题自动生成.zip (320.78 KB, 下载次数: 19)

2024-3-16 19:25 上传

点击文件名下载附件