如何批量提取表彰名单

skbliufeng

如图：两个类型的班级1-3班一个类型，4-6班一个类型，每个类型的班级取第一名进行表彰，如何批量提取班级、姓名、科目？（没有用字母区分的为同一教师）

swl4561255

1. Private Sub CommandButton1_Click()
   
2. ar = Sheets("质量分析").Cells(65536, 1).End(3).Row
   
3. Set d = CreateObject("Scripting.Dictionary")
   
4. arr = Sheets("质量分析").Range("A1:D" & ar)
   
5. For i = 1 To 61 Step 10
   
6.     For j = i + 3 To i + 8
   
7.         If arr(j, 4) = 1 Then
   
8.             d(arr(j, 2)) = Array(Left(arr(i, 1), 2), arr(j, 1), arr(j, 2))
   
9.         End If
   
10.     Next
    
11. Next
    
12. t = d.items
    
13. [A1].Resize(1, 3) = Array("科目", "班级", "姓名")
    
14. [A2].Resize(d.Count, 3) = Application.Transpose(Application.Transpose(t))
    
15. Set d = Nothing
    
16. End Sub
    

复制代码

quqiyuan

这个vba方便点咯，公式可能有点难度

skbliufeng

quqiyuan 发表于 2024-5-5 11:19
这个vba方便点咯，公式可能有点难度

谢谢！这个方法好用。

沈默00

沈默00

试一下.........

我的城市你来过

=HSTACK(FILTER($A$4:$B$69,$D$4:$D$69=1),TOCOL(REPTARRAY(LEFT(VSTACK($A$1,$A$11,$A$21,$A$31,$A$41,$A$51,$A$61),2),,2),3))

CClgod1989

我的城市你来过 发表于 2024-5-29 11:17
=HSTACK(FILTER($A$4:$B$69,$D$4:$D$69=1),TOCOL(REPTARRAY(LEFT(VSTACK($A$1,$A$11,$A$21,$A$31,$A$41,$A$ ...

厉害~~又认识了新函数

逐渐陌生

cnmlgb9998

PQ 方案！！！！！！！！！！！！！！！！