4.7.10看不懂的一行，请老师指教

jxnucwf

原文：
Sub HzWb()
    Dim r As Long, c As Long
    r = 1    '1 是表头的行数
    c = 8    '8 是表头的列数
    Range(Cells(r + 1, "A"), Cells(65536, c)).ClearContents    ' 清除汇总表中原表数据
    Application.ScreenUpdating = False
    Dim FileName As String, wb As Workbook, sht As Worksheet, Erow As Long, fn As String, arr As Variant
    FileName = Dir(ThisWorkbook.Path & "\*.xls")
    Do While FileName <> ""
        If FileName <> ThisWorkbook.Name Then    ' 判断文件是否是本工作簿
            Erow = Range("A1").CurrentRegion.Rows.Count + 1    ' 取得汇总表中第一条空行行号
            fn = ThisWorkbook.Path & "\" & FileName
            Set wb = GetObject(fn)    ' 将fn 代表的工作簿对象赋给变量
            Set sht = wb.Worksheets(1)    ' 汇总的是第1 张工作表
            ' 将数据表中的记录保存在arr 数组里
            arr = sht.Range(sht.Cells(r + 1, "A"), sht.Cells(65536, "B").End(xlUp).Offset(0, 8))
            ' 将数组arr 中的数据写入工作表
            Cells(Erow, "A").Resize(UBound(arr, 1), UBound(arr, 2)) = arr
            wb.Close False
        End If
        FileName = Dir    ' 用Dir 函数取得其他文件名，并赋给变量
    Loop
    Application.ScreenUpdating = True
End Sub



其中            arr = sht.Range(sht.Cells(r + 1, "A"), sht.Cells(65536, "B").End(xlUp).Offset(0, 8))


sht.Range(sht.Cells(r + 1, "A"), sht.Cells(65536, "B")就是A2:B65536区域
然后.End(xlUp)就变成了A1单元格
再.Offset(0, 8))就变成了I1单元格
我怎么是这样理解的啊，请问错在哪里撒？
这一句看不懂，求老师解释下，谢谢

王小博vba

这是用Range（Cells，Cells）的方式引用单元格。把光标移动到你不懂的语句关键字那里，然后按键盘的F1，是类似API的帮助。

jxnucwf

sht.Range(sht.Cells(r + 1, "A"), sht.Cells(65536, "B")就是A2:B65536区域
然后.End(xlUp)就变成了A1单元格
再.Offset(0, 8))就变成了I1单元格
我怎么是这样理解的啊，请问错在哪里撒？

jxnucwf

老师们指导下撒，错在哪了啊

曹文峰

王小博vba 发表于 2012-12-21 09:01
这是用Range（Cells，Cells）的方式引用单元格。把光标移动到你不懂的语句关键字那里，然后按键盘的F1，是类 ...

sht.Range(sht.Cells(r + 1, "A"), sht.Cells(65536, "B")就是A2:B65536区域
然后.End(xlUp)就变成了A1单元格
再.Offset(0, 8))就变成了I1单元格
我怎么是这样理解的啊，请问错在哪里撒？

王小博vba

曹文峰 发表于 2012-12-25 16:26
sht.Range(sht.Cells(r + 1, "A"), sht.Cells(65536, "B")就是A2:B65536区域
然后.End(xlUp)就变成了A ...

你把鼠标选在A列的65536行，按一下键盘的END键，然后再按一下方向键的上，你看看效果了哈。

hehex

jxnucwf 发表于 2012-12-21 10:52
sht.Range(sht.Cells(r + 1, "A"), sht.Cells(65536, "B")就是A2:B65536区域
然后.End(xlUp)就变成了A1单 ...

这句话你的理解是错的
分析复杂语句要从左向右，再从内向外。
首先看赋值语句右边Sht.Range(....) ，里面是个复杂语句，可以理解就是Range(A,B) 这种方式。
那么里面的A 部分是对应哪个呢，很明显sht.Cells(r+1,"A") 这是是代表区域的左上角，就是上面Range(A,B)
里A 的位置，r=1 ，这里我们知道该区域的左上角是cells(2,"A") 就是A2。那么右下角是哪里呢？sht.Cells(65536, "B").End(xlUp).Offset(0, 8) 这是一个Range 对象，就是上面分析的B的位置。
好现在来从左到右分析 sht.Cells(65536, "B").End(xlUp).Offset(0,8)， 我们先忽略sht 变量，这个就是为了指定是那张表。Cells(65536, "B").End(xlUp) 这个好理解吧，没错 这返回的是B 列的最后一个非空单元格。地址一定是B开头的，Cells(65536, "B").End(xlUp).offset(0,8) 就是从B 列向右偏移8 列 就是J 列的某单元格。
好了，这下就明白了，我们假设该sht 有10条记录，那么sht.Range(sht.Cells(r + 1, "A"), sht.Cells(65536, "B").offset(0,8)) 返回的区域就是该表的Range("A2,J10),因为从前面指定r=1。换句话说就是
该表的A2:J10 区域，这样好不好理解？

hehex

你分析错误的起因就是看错了括号,sht.Range(sht.Cells(r + 1, "A"), sht.Cells(65536, "B").End(xlUp).Offset(0, 8)),这个offset 方法是指右下角单个单元格的偏移而不是整体偏移。因此和前面的(sht.Cells(r + 1, "A") 无关，因此你的A1偏移到I1 的认识全是错误的。

            

jxnucwf

hehex 发表于 2012-12-27 10:39
你分析错误的起因就是看错了括号,sht.Range(sht.Cells(r + 1, "A"), sht.Cells(65536, "B").End(xlUp).Offs ...

谢谢，看错了一个括号，哎，我这眼睛是长哪去了。。。{:soso_e127:}

忘得快

hehex 发表于 2012-12-27 10:39
你分析错误的起因就是看错了括号,sht.Range(sht.Cells(r + 1, "A"), sht.Cells(65536, "B").End(xlUp).Offs ...

呵呵！拜读！