【求助】VBA按班级求各科平均分

良良

C3=IFERROR(AVERAGEIF(Sheet1!$D:$D,$A3,OFFSET(Sheet1!$A:$A,,MATCH(B$1&"*",Sheet1!$2:$2,)-1)),"")，下拉，可复制到E3、G3、......、U3。

光和色

sdytsxd991122 发表于 2022-12-13 15:42

老师 您好  感谢您的帮助，我用您的代码已经成功了，还想再麻烦问您一下，如果需要在7班下面加一行年级的平均分如何操作，谢谢

熊文来

ykcbf1100 发表于 2022-12-13 15:22
字典嵌套字典

真好，又看到你的作品咯。

熊文来

光和色 发表于 2022-12-13 19:01
老师 您好  感谢您的帮助，我用您的代码已经成功了，还想再麻烦问您一下，如果需要在7班下面加一行年级的 ...

他的代码你是照着录入的吗？可以把最后的附件发上来吗？

ykcbf1100

熊文来 发表于 2022-12-13 21:00
真好，又看到你的作品咯。

周一到周五，你都可以看到我的作品。

sdytsxd991122

光和色 发表于 2022-12-13 19:01
老师 您好  感谢您的帮助，我用您的代码已经成功了，还想再麻烦问您一下，如果需要在7班下面加一行年级的 ...

先加一行

光和色

熊文来 发表于 2022-12-13 21:04
他的代码你是照着录入的吗？可以把最后的附件发上来吗？

ok  等我研究成

光和色

sdytsxd991122 发表于 2022-12-14 16:46
先加一行

老师  您好，非常感谢您的耐心讲解，年级平均分这块的计算逻辑我看是把各班平均分相加然后除以班级数量，这个结果可能和表1里面计算出来的结果有一点差异，可能是因为班级平均分进行过四舍五入的缘故，我试着想从表1来取年级平均值、没有成功，如果您方便的话在帮我看看，特别特别感谢！！

sdytsxd991122

光和色 发表于 2022-12-15 14:32
老师  您好，非常感谢您的耐心讲解，年级平均分这块的计算逻辑我看是把各班平均分相加然后除以班级数量， ...

sdytsxd991122

Sub sdyt()
    On Error Resume Next
    arr = Sheet1.Range("a2").CurrentRegion
    Set d = CreateObject("scripting.dictionary")
    For i = 2 To UBound(arr)
        For j = 8 To UBound(arr, 2) Step 3
            If Val(arr(i, j)) > 1 Then
                If Not d.exists(arr(i, 4)) Then
                    Set d(arr(i, 4)) = CreateObject("scripting.dictionary")
                End If
                d(arr(i, 4))(arr(1, j)) = d(arr(i, 4))(arr(1, j)) + Val(arr(i, j))
                d(arr(i, 4))(Left(arr(1, j), 2)) = d(arr(i, 4))(Left(arr(1, j), 2)) + 1
                d(arr(1, j)) = d(arr(1, j)) + Val(arr(i, j))
                d(arr(1, j) & "人") = d(arr(1, j) & "人") + 1
            End If
        Next
    Next
    With Sheet2.Range("a2").CurrentRegion
        .Offset(2, 2) = ""
        arr = .Value
    End With
    For j = 2 To UBound(arr, 2) Step 2
        For i = 3 To UBound(arr) - 1
            If d(arr(i, 1)).exists((arr(1, j) & "分数")) Then
                arr(i, j + 1) = Round(d(arr(i, 1))((arr(1, j) & "分数")) / d(arr(i, 1))((arr(1, j))), 2)
            End If
        Next
        arr(UBound(arr), j + 1) = Round(d(arr(1, j) & "分数") / d(arr(1, j) & "分数人"), 2)
    Next
    Sheet2.Range("a1").CurrentRegion = arr
End Sub