学习中的疑问？

rain_555

ggsmart，你好，学习3.2.3中，哪些数据类型，必须死记住是吗？谢谢

snowman2008

很多函数都应该记住逇

ggsmart

个人觉得不用记住全部的内容（即保存数据的范围），只要知道保存整数时用什么类型，保存文本用什么类型即可。
即Integer,String等等的名称还是记住的好。
但用多了就记住了，不用死记硬背

sccctv

ggsmart 发表于 2012-10-10 17:20
个人觉得不用记住全部的内容（即保存数据的范围），只要知道保存整数时用什么类型，保存文本用什么类型即可 ...

请教育叶师傅一个问题。
示例4.7.9
Sub hebing()
    MsgBox "下面将把各班成绩表合并到“总成绩”工作表中!"
    Rows("2:65536").Clear                                       '删除原有记录
    Dim sht As Worksheet, xrow As Integer, rng As Range
    For Each sht In Worksheets                                  '遍历工作薄中所有工作表
        If sht.Name <> ActiveSheet.Name Then
            Set rng = Range("A65536").End(xlUp).Offset(1, 0)    '获得汇总表A列第一个空单元格
            xrow = sht.Range("A1").CurrentRegion.Rows.Count - 1 '获得分表中的记录条数
            sht.Range("A2").Resize(xrow, 7).Copy rng            '粘贴记录到汇总表
        End If
    Next
End Sub
每句我都能看明白，但不明白的是程序怎么在各工作表之间跳转的。
遍历工作表具体是怎样遍历的，当遍历到某一工作表时，这个工作表是激活的吗。
为什么　Set rng = Range("A65536").End(xlUp).Offset(1, 0) '获得的是汇总表。。。。。。？
为什么　xrow = sht.Range("A1").CurrentRegion.Rows.Count - 1　就到了'获得分表。。。。？
为什么　 sht.Range("A2").Resize(xrow, 7).Copy rng            又回到了汇总表？
请叶师傅赐教！！！！！！！！谢谢！