根据学生信息表和科目表，成绩每个学生每科的成绩表

jkuibo

根据学生信息表和科目表，成绩每个学生每科的成绩表，可以在excel中完成吗

学生信息表

科目表

成绩表

数据.rar (12.28 KB, 下载次数: 18)

2022-3-10 16:53 上传

点击文件名下载附件

3190496160

肯定是可以做到的，但是，你得提供一下生成的成绩表的样式呀，不然，写出代码来，你还得追问的

3190496160

Sub 成绩表()
Application.ScreenUpdating = False
Dim ar As Variant
Dim i As Long, r As Long, rs As Long
Dim arr()
Dim d As Object
Set d = CreateObject("scripting.dictionary")
ar = Sheets("学生").[a1].CurrentRegion
br = Sheets("课程").[a1].CurrentRegion
ReDim arr(1 To UBound(br) * UBound(ar), 1 To 5)
For i = 2 To UBound(ar)
    If Trim(ar(i, 4)) <> "" And Trim(ar(i, 7)) <> "" Then
        zf = Trim(ar(i, 4)) & "|" & Trim(ar(i, 7))
        For s = 2 To UBound(br)
            zf_1 = Trim(br(s, 5)) & "|" & Trim(br(s, 8))
            If zf = zf_1 Then
                n = n + 1
                arr(n, 1) = ar(i, 1)
                arr(n, 2) = ar(i, 2)
                arr(n, 3) = ar(i, 3)
                arr(n, 4) = br(s, 1)
                arr(n, 5) = br(s, 2)
            End If
        Next s
    End If
Next i
With Sheets("成绩")
    .[a1].CurrentRegion.Offset(1) = Empty
    .[a2].Resize(n, UBound(arr, 2)) = arr
End With
MsgBox "ok!"
End Sub

3190496160

数据.rar (28.9 KB, 下载次数: 6)

2022-3-11 08:14 上传

点击文件名下载附件

jkuibo

收到了，十分感谢