方法作用于range对象时失败

zhouzhongchi

？？？，请解释过程test1报错的原因（是否和with  end with结构有关）；如何解决
Sub test1() '方法"range"作用于对象时失败
Dim arr
'Sheet1.Activate'如果没有这句则会报错
With Sheet1
    r = .Cells(Rows.Count, 1).End(xlUp).Row
    col = .Cells(1, Columns.Count).End(xlToLeft).Column
    arr = .Range(Cells(2, 1), Cells(r, col))
End With
End Sub
附件在2楼
补充一下，如果sheet1为活动工作表则正常运行，否则报错。
我不想在过程中激活sheet1,该如何写？

zhouzhongchi

求助.rar (13.73 KB, 下载次数: 5)

2014-7-22 18:24 上传

点击文件名下载附件

zhaogang1960

arr = .Range(Cells(2, 1), Cells(r, col))——这一句不正确，Cells的工作表对象和Range的一致，是同一个工作表：
arr = .Range(.Cells(2, 1), .Cells(r, col))

zhouzhongchi

zhaogang1960 发表于 2014-7-22 18:28
arr = .Range(Cells(2, 1), Cells(r, col))——这一句不正确，Cells的工作表对象和Range的一致，是同一个工 ...

谢谢！如此神速的解决了我的疑问。

jpj123

zhaogang1960 发表于 2014-7-22 18:28
arr = .Range(Cells(2, 1), Cells(r, col))——这一句不正确，Cells的工作表对象和Range的一致，是同一个工 ...

看了版主解答，收获颇多!!!!