别怕VBA，4.7.7批量对数据进行分析一个语句不理解！求帮助。

唔系峰仔

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


为什么 LOOP 上面需要重复一次 bj = Cells(i, "C").Value  删除后宏没有出错，可是运行不出来。

ggsmart

bj这个变量的作用有两个：
一是 作为DO语句的循环条件，每次循环都重新给bj赋值，当运行到最后一行后，bj的值是""，程序会中断循环

二是帮助确定要将数据复制到哪张工作表，即这句代码：Set rng = Worksheets(bj).Range("A65536").End(xlUp).Offset(1, 0)
    如果没有bj变量确定工作表，那记录复制到哪里呢？