如何通过类型判断学生应修课程不及格

grf1973

1. Sub grf()
   
2.     Set dlx = CreateObject("scripting.dictionary")   '类型对应的课程（二维表）
   
3.     arr = Sheet2.[a1].CurrentRegion
   
4.     For j = 1 To UBound(arr, 2)
   
5.       lx = Right(arr(1, j), 1)
   
6.       c = Sheet2.Cells(65536, j).End(3).Row
   
7.       dlx(lx) = Sheet2.Cells(2, j).Resize(c - 1)
   
8.     Next
   
9.    
   
10.     Set d1 = CreateObject("scripting.dictionary")   '
    
11.     Set d2 = CreateObject("scripting.dictionary")
    
12.     arr = Sheets(1).[a1].CurrentRegion
    
13.     For i = 2 To UBound(arr)
    
14.         d1(arr(i, 1) & arr(i, 2) & arr(i, 3)) = arr(i, 4)   '类型+考号+课程 对应的分数
    
15.         d2(arr(i, 2)) = arr(i, 1)   '考号对应的类型
    
16.     Next
    
17.    
    
18.     ReDim brr(1 To UBound(arr), 1 To 2)
    
19.     For Each kh In d2.keys   '考号
    
20.         lx = d2(kh)    '考号对应的类型
    
21.         For k = 1 To UBound(dlx(lx))
    
22.             kc = dlx(lx)(k, 1)  '类型对应的课程
    
23.             If d1(lx & kh & kc) < 60 Then  '类型+考号+课程对应的分数
    
24.                 n = n + 1
    
25.                 brr(n, 1) = kh
    
26.                 brr(n, 2) = kc
    
27.             End If
    
28.         Next
    
29.     Next
    
30.    
    
31.     With Worksheets("sheet3")
    
32.     .[a2:b10000].ClearContents
    
33.     .Columns(1).NumberFormatLocal = "@"
    
34.     .Range("a2").Resize(n, 2) = brr
    
35.   End With
    
36. End Sub

复制代码