成绩分班汇总 将总成绩表中的成绩复制到对应的班级成绩表中

Sub ScoreWithClass()
    '把成绩表按班级分到各个工作表中
    Dim i As Long, bj As String, rng As Range
    i = 2
    bj = Cells(i, "B").Value
    MsgBox (bj)
    Do While bj <> ""
        '将分表中A列第一个空单元格赋给rng
        Set rng = Worksheets(bj).Range("A65536").End(xlUp).Offset(1, 0)
        Cells(i, "A").Resize(1, 8).Copy rng '将记录复制到相应的工作表中
        i = i + 1
        bj = Cells(i, "B").Value
    Loop
            
End Sub