Excel表格的数据分拣

Public Function FenLei()
'    MsgBox "下面将把成绩表分按班级分到各个工作表中!"
    Dim i As Long, bj As String, rng As Range, sht As Worksheet
    Set sht = Worksheets("总表")
    i = 2

    bj = sht.Cells(i, "B").Value
    Do While bj <> ""
        '将分表中A列第一个空单元格赋给rng
        Set rng = Worksheets(bj).Range("A65536").End(xlUp).Offset(1, 0)
        Worksheets(bj).Select
        sht.Cells(i, "A").Resize(1, 15).Copy rng   '将记录复制到相应的工作表中
        i = i + 1
        bj = sht.Cells(i, "B").Value
    Loop
    MsgBox "数据分拣完成！"
End Function