学生成绩分析

lfy123456

表中列举了学生九次的成绩，我想针对这个成绩得出一个平均分，但是我希望最近的一次成绩占比是50%，比如如果是两次成绩的话就每一次占50%，三次的话就是第三次占50%，前面两次总的占50%，如果有5次的话就是第5次占50%，其他四次占50%，十二次的话就是第十二次占50%，前面十一次占50%，然后对学生的成绩进行一个评定

大猫不吃鱼

题目看懂了，但是数据没有看懂

盼盼198310

模拟结果重新上传附件

大猫不吃鱼

七1、七2、级位这些是什么？

大猫不吃鱼

学生的成绩是什么，在哪一列？

minchar

大猫不吃鱼 发表于 2022-10-11 22:17
七1、七2、级位这些是什么？

七1应该是七年级第1次考试，级位应该是排名等级，成绩应该是间列取

lfy123456

七1表示七年级第一次， 七2 表示七年级第2次，七 八年级都是四次考试， 九年级7次考试，最近一次算50%，其他的求出平均数占50%，
级位就是该次考试中学生的成绩在年级的排位，

lfy123456

大猫不吃鱼 发表于 2022-10-11 22:17
七1、七2、级位这些是什么？

七1 表示七年级第一次考试，级位表示成绩在该次考试的排位

3190496160

Sub 计算()
Application.ScreenUpdating = False
Dim ar As Variant, cr As Variant
Dim i As Long, r As Long, rs As Long
With Sheets("sheet1")
    rs = .Cells(Rows.Count, 1).End(xlUp).Row
    .Range("ai1:ak" & rs + 1) = Empty
    ar = .Range("a1:ak" & rs)
    For i = 2 To UBound(ar)
        If Trim(ar(i, 1)) <> "" Then
            hj = 0: gs = 0: lh = ""
            For j = 33 To 5 Step -2
                If Trim(ar(i, j)) <> "" Then
                    If IsNumeric(ar(i, j)) Then
                        lh = j
                        Exit For
                    End If
                End If
            Next j
            For j = 5 To lh - 2 Step 2
                If Trim(ar(i, j)) <> "" Then
                    If IsNumeric(ar(i, j)) Then
                        hj = hj + ar(i, j)
                        gs = gs + 1
                        lh = j
                    End If
                End If
            Next j
            zf = hj * 0.5 + ar(i, lh) * 0.5
            pjf = zf / (gs + 1)
            ar(i, 35) = zf
            ar(i, 36) = gs + 1
            ar(i, 37) = pjf
        End If
    Next i
    .Range("a1:ak" & rs) = ar
End With
MsgBox "ok!"
End Sub

3190496160

猜呢，供参考
学生成及分析.rar (38.89 KB, 下载次数: 16)

2022-10-12 09:03 上传

点击文件名下载附件