成绩汇总问题求助，谢谢老师们！

yl1991

修改目标：
1、平时成绩有两个以上表，这个代码只能汇总一个（本来是可以汇总多个的，只是我修改统一了汇总成绩表头，原表表头本不一致）
2、导入成绩表头依次为“成绩1、成绩2、成绩3。。。。”。
3、汇总完成后计算平时成绩平均分数。
4、最后还需要单独另写一个导入期末考试成绩的代码如何写（只有一个表），成绩列表头为“期末成绩”（见实例有个单独的文件夹），这前后学生人有差异，要求把没有的学生补充进来（当然，这部分学生就没有平时成绩了）。
谢谢老师！

相对论R

成绩一、成绩二、成绩三是什么意思？你的文件里的平时成绩，每个人也只有一个呀？

相对论R

Sub 成绩()

Dim f As Range
MsgBox "请选择您要导入的平时成绩文件"
a = Application.GetOpenFilename("xls,*.xls,xlsx,*.xlsx", 2, , , True)


For i = LBound(a) To UBound(a)
    Set p = GetObject("" & a(i))
    Set q = p.ActiveSheet.UsedRange()
    For j = 2 To q.Range("a65536").End(xlUp).Row
        Set f = Sheet1.Range("C2:C40").Find(q.Range("a" & j).Value)
        If f Is Nothing Then
        Else: f.Offset(0, 2) = q.Range("d" & j)
        End If
    Next
Next

MsgBox "请选择您要导入的期末成绩文件"
b = Application.GetOpenFilename("xls,*.xls,xlsx,*.xlsx", 2, , , True)

x = Sheet1.UsedRange.Rows.Count

For k = LBound(b) To UBound(b)
    Set r = GetObject("" & b(k))
    Set s = p.ActiveSheet.UsedRange()
    For m = 2 To s.Range("a65536").End(xlUp).Row
        Set g = Sheet1.Range("C2:C40").Find(s.Range("a" & m).Value)
        If g Is Nothing Then
            Range("c" & x + 1) = s.Range("a" & m)
            Range("d" & x + 1) = s.Range("b" & m)
            Range("d" & x + 1) = 0
            Range("f" & x + 1) = s.Range("d" & m)
            x = x + 1
        Else: g.Offset(0, 3) = s.Range("d" & m)
        End If
    Next
Next

For n = 2 To Sheet1.UsedRange.Rows.Count
    If Range("e" & n) = "" Then
        Range("e" & n) = 0
    End If
    If Range("f" & n) = "" Then
        Range("f" & n) = 0
    End If
Next

End Sub

先给你写一段代码，这段代码适用于平时成绩和期末成绩都只有一个的情形。

相对论R

运行的时候，主意到右下方可以选择xls或者xlsx文件

likongshun

楼主的代码 汇总后 同名字的成绩数值，会被第二个文件里数值的覆盖掉。

相对论R

likongshun 发表于 2020-7-25 22:03
楼主的代码 汇总后 同名字的成绩数值，会被第二个文件里数值的覆盖掉。

哦哦明白了，平时成绩会被期末成绩覆盖是不？我写了我的发出来，但是系统还在审核。