关于《别怕。。》书中193页-194页的疑问

178014824

请教按书中193页-194页批量对数据分类的代码运行后的效果，分表是没有第一行的（序号、姓名、班级等待），能否用代码做到分表也同时包括这一行呢？谢谢！

changxuegu

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

复制代码

178014824

changxuegu 发表于 2013-5-13 14:09

谢谢！
能解释一下这句代码的意思吗？
If rng.Offset(-1) = "" Then Cells(1, "A").Resize(1, 7).Copy rng.Offset(-1)
我理解是如果rng.Offset(-1) =空值，那Cells(1, "A").Resize(1, 7)那不也是空值了？

178014824

178014824 发表于 2013-5-13 14:26
谢谢！
能解释一下这句代码的意思吗？
If rng.Offset(-1) = "" Then Cells(1, "A").Resize(1, 7).Copy  ...

哦，看懂了，是把Cells(1,"a").resize(1,7)的值赋给第一行，谢谢！
还有这里请问一下为什么要用do while语句，能不能用for each语句呢？这两个的区别在哪里呢？

changxuegu

178014824 发表于 2013-5-13 14:37
哦，看懂了，是把Cells(1,"a").resize(1,7)的值赋给第一行，谢谢！
还有这里请问一下为什么要用do while ...

用for each当然也可以，一般看用哪一个方便就用哪一个。