统计学生的自测成绩，取最高的五次取平均，缺考次数算零分！！！

王海海彭霞霞

求高手帮忙统计学生每门课的课程终结成绩。学生每人参加了几门课程学习，每门课的考核方法是：1.可以进行多次自测考试（一般超过5次）。但计算成绩只取考得分数最高的5次成绩的平均值。2.如果自测次数不足5次，缺考的场次算零分。

willin2000

参考附件.

1. =SUMPRODUCT(LARGE(IF((A$2:A$72=$A2)*(B$2:B$72=$B2),E$2:E$72,),{1,2,3,4,5}))/5

复制代码

统计学生课程成绩w.zip (11.29 KB, 下载次数: 6)

2018-10-12 09:12 上传

点击文件名下载附件

willin2000

数据量大时,VBA确实比函数更具优势. 函数的优点的比较灵活,适应性较强,便于移植和修改. 此楼主的问题也可用SQL透视表解决.

我不知道楼主数据量大小,此处提供函数的方法. 本层附件是直接计算出汇总结果的公式,供楼主参考选用. 统计学生课程成绩w2.zip (12.99 KB, 下载次数: 12)

2018-10-12 10:05 上传

点击文件名下载附件

王海海彭霞霞

mikezhan 发表于 2018-10-12 08:28
楼主，是这样吗？

VBA

请提供代码，谢谢

tfei

我们这里零分不统计在平均分，及格率中的，

一把小刀闯天下

Option Explicit

Sub test()
  Dim i, j, k, arr, sum, m, a, p
  arr = [a1].CurrentRegion.Offset(1)
  ReDim brr(1 To UBound(arr, 1) - 1, 1 To 3)
  For i = 1 To UBound(arr, 1) - 1
    For j = i To UBound(arr, 1) - 1
      If arr(j, 2) <> arr(j + 1, 2) Then
        If j > i Then Call dsort(arr, i, j, 1, True)
        p = i
        For k = i To j
          If arr(k, 1) <> arr(k + 1, 1) Or k = j Then
            Call dsort(arr, p, k, 5, False)
            sum = 0
            For a = p To k
              sum = sum + arr(a, 5)
              If a - p = 4 Then Exit For
            Next
            m = m + 1: brr(m, 1) = arr(p, 1)
            brr(m, 2) = arr(p, 2): brr(m, 3) = Round(sum / 5, 1)
            p = k + 1
          End If
        Next
        i = j: Exit For
      End If
  Next j, i
  Call dsort(brr, 1, m, 1, True)
  With [g2]
    .Resize(Rows.Count - 1, UBound(brr, 2)).ClearContents
    .Resize(m, UBound(brr, 2)) = brr
  End With
End Sub

Function dsort(arr, first, last, key, order)
  Dim i, j, k, t
  For i = first To last - 1
    For j = i + 1 To last
      If arr(i, key) < arr(j, key) Xor order Then
        For k = 1 To UBound(arr, 2)
          t = arr(i, k): arr(i, k) = arr(j, k): arr(j, k) = t
        Next
      End If
  Next j, i
End Function

小花鹿

Sub test()
Dim ar, d, i&, s, dk, di, j&, tm, br
Set d = CreateObject("scripting.dictionary")
ar = Sheets("sheet1").[a1].CurrentRegion
For i = 2 To UBound(ar)
    s = ar(i, 1) & "|" & ar(i, 2)
    d(s) = d(s) & "|" & ar(i, 5)
Next i
dk = d.keys
di = d.items
For i = 0 To UBound(dk)
    s = di(i) & "|||||"
    tm = Split(s, "|")
    ReDim br(UBound(tm))
    For j = 0 To UBound(br)
        br(j) = Val(tm(j))
    Next j
    tm = 0
    For j = 1 To 5
        tm = tm + WorksheetFunction.Large(br, j)
    Next j
    di(i) = tm / 5
Next i
End Sub