请不要看了1235466889。

河山

1233212143124134135本贴作废

[ 本帖最后由 河山 于 2009-10-24 18:04 编辑 ]

来生缘

你发了个表上来，什么也没说，怎么帮？

zgwei050

关注一下。

河山

表上已经说明了呀

[ 本帖最后由 河山 于 2009-10-24 17:45 编辑 ]

Moneky

问题不难，但比较烦，现在想睡觉了，帮你顶一下。后面有时间的时候帮你做，如果还有那个需要的话

河山

Moneky大侠：谢谢你了，我当然很需要，而且比较急，有时间麻烦你帮我弄一个，谢谢了。

lzqlaj

看看啥内容。

lzqlaj

公式应该挺快的，用excel2007公式很简单的。

走在最后瞧

看看这个http://club.excelhome.net/thread-398874-1-1.html

蓝桥玄霜

1. Public km$
   
2. 
   
3. Sub cjdz()
   
4. Dim i&, Myr&, Arr, Arrjg, Arrdz, j&, sk%, zf, jgr%, yr%, n&, col1%
   
5. Dim d, k, t, r1, x, col%, ks&, js&, jgf, yf, zgf, zdf, Myr6&, r2
   
6. Set d = CreateObject("Scripting.Dictionary")
   
7. Myr = Sheet1.[e65536].End(xlUp).Row
   
8. Arr = Sheet1.Range("e5:p" & Myr)
   
9. Arrjg = Sheet4.[e7:l10]
   
10. For i = 1 To UBound(Arrjg, 2)
    
11.     If Arrjg(1, i) = km Then
    
12.         jgf = Arrjg(3, i)
    
13.         yf = Arrjg(4, i)
    
14.         Exit For
    
15.     End If
    
16. Next
    
17. Set r1 = Sheet1.Rows(4).Find(km)
    
18. col = r1.Column - 4
    
19. For i = 1 To UBound(Arr)
    
20.     x = Arr(i, 1) & "|" & Arr(i, 3)
    
21.     d(x) = d(x) + 1
    
22. Next i
    
23. k = d.keys
    
24. t = d.items: zdf = 120
    
25. ReDim Arrdz(1 To UBound(k) + 1, 1 To 13)
    
26. For i = 0 To UBound(k)
    
27.     Arrdz(i + 1, 1) = Split(k(i), "|")(0)      '学校
    
28.     Arrdz(i + 1, 2) = Split(k(i), "|")(1)      '班级
    
29.     Arrdz(i + 1, 3) = t(i)      '应考人数
    
30.     If i = 0 Then
    
31.         ks = 1: js = t(i)
    
32.     Else
    
33.         ks = t(i - 1) + 1: js = t(i - 1) + t(i)
    
34.     End If
    
35.     For j = ks To js
    
36.         If Arr(j, col) <> "" Then
    
37.             sk = sk + 1
    
38.             zf = zf + Arr(j, col)
    
39.             If Arr(j, col) >= jgf Then jgr = jgr + 1
    
40.             If Arr(j, col) >= yf Then yr = yr + 1
    
41.             If Arr(j, col) > zgf Then zgf = Arr(j, col)
    
42.             If Arr(j, col) < zdf Then zdf = Arr(j, col)
    
43.         End If
    
44.     Next
    
45.     Arrdz(i + 1, 4) = sk       '实考人数
    
46.     Arrdz(i + 1, 5) = zf      '总分
    
47.     Arrdz(i + 1, 6) = zf / sk      '平均分
    
48.     Arrdz(i + 1, 7) = jgr       '及格人数
    
49.     Arrdz(i + 1, 8) = jgr / sk      '及格率
    
50.     Arrdz(i + 1, 9) = yr       '优分人数
    
51.     Arrdz(i + 1, 10) = yr / sk       '优分率
    
52.     Arrdz(i + 1, 11) = zgf     '最高分
    
53.     Arrdz(i + 1, 12) = zdf     '最低分
    
54.     sk = 0: zf = 0: jgr = 0: yr = 0: zgf = 0: zdf = 120
    
55.     Myr6 = Sheet6.[c65536].End(xlUp).Row
    
56.     Sheet6.[b7].Formula = "=rc[1]&""|""&rc[2]"
    
57.     Sheet6.[b7].AutoFill Sheet6.Range("b7:b" & Myr6)
    
58.     Sheet6.Range("b7:b" & Myr6) = Sheet6.Range("b7:b" & Myr6).Value
    
59.     Set r1 = Sheet6.Columns(2).Find(k(i))
    
60.     If Not r1 Is Nothing Then
    
61.         n = r1.Row
    
62.         Set r2 = Sheet6.Rows(6).Find(km)
    
63.         col1 = r2.Column
    
64.         Arrdz(i + 1, 13) = Sheet6.Cells(n, col1)   '教师
    
65.     End If
    
66. Next
    
67. Sheet3.Activate
    
68. [c7:o200].ClearContents
    
69. [c7].Resize(UBound(Arrdz), 13) = Arrdz
    
70. End Sub
    

复制代码