4.6.7章节 中的bj变量赋值了，为什么最后还有赋值

17612808626

4.6.7 章节那个bj 变量  再DO WHILE 之前赋值了，这个列子中LOOP结束前又赋值，我自己做不赋值得不到结果。必须在哪里再赋值才能得到结果，这是为什么，有大大解释一下么。

17612808626

来个大神解释 一下 啊，先谢谢了。

ggsmart

上代码和示例文件看看

17612808626

就是197 页那个，
sub fenlei()
Dim i As long, bj As String, rng As Range
i=2
bj=workssheets(“成绩表”）。cells（i,"c").value
do while bj <>""
    set rng=worksheets(bj).Range("a1048579").end(xlup),offset(1,0)
     worksheets("成绩表").cells(i,"a").resize(1,7).copy rng
     i=i+1
     bj=workssheets(“成绩表”）。cells（i,"c").value
    loop
end sub
@ggsmart

17612808626

ggsmart 发表于 2018-10-11 13:03
上代码和示例文件看看

就是197 页那个，
sub fenlei()
Dim i As long, bj As String, rng As Range
i=2
bj=workssheets(“成绩表”）。cells（i,"c").value
do while bj <>""
    set rng=worksheets(bj).Range("a1048579").end(xlup),offset(1,0)
     worksheets("成绩表").cells(i,"a").resize(1,7).copy rng
     i=i+1
     bj=workssheets(“成绩表”）。cells（i,"c").value
    loop
end sub
就是那个 bj  需要两次赋值么，