关于将range对象赋值给数组

beijiren368

大家好：
           最近在学习VBA中使用数组，只是有一点一直没明白，请大家帮忙看看：
           代码：
           arr1 = Range([b2], Cells(Rows.Count, 2).End(xlUp))
          我的疑问：1. Cells(Rows.Count, 2).End(xlUp)，我用立即窗口观察发现得到的值是B列最后一个非空单元格里面的值60，这个60在这里充当什么角色了？
                          2. Range对象的使用方法是Range(“A1:D4”)或者Range(“A1”,“D4”)或者Range(“DataBase”)，如果这里涉及到Evaluate方法，该如何在Range（）里使用了？
                3.可否分解下上面代码的运算步骤？
       谢谢大家了！

doitbest

Cells(Rows.Count, 2).End(xlUp)是一个单元格对象，不是60这个值
例如：evaluate("sum(" & Range(“A1:D4”).address & ")")

beijiren368

doitbest 发表于 2012-12-24 13:42
Cells(Rows.Count, 2).End(xlUp)是一个单元格对象，不是60这个值
例如：evaluate("sum(" & Range(“A1:D4 ...

doitbest您好！我还是有点不太明白，比如在立即窗口用range("b2")就能正确得到值，但是用Range([b2])就报错，而arr1 = Range([B2], Cells(Rows.Count, 2).End(xlUp))里用到了range([b2])这样的情况，谢谢您的解答！

doitbest

如指定一个单元格用range("b2")，Range([b2])这种用法不合法

qqaa266

arr1 = Range([b2], Cells(Rows.Count, 2).End(xlUp))这行代码中
[b2]表示B2这个单元格对象，用在这行中就表示B2这个单元格的值，
Cells(Rows.Count, 2).End(xlUp)中Rows.Count 表示某个工作表中所有行的数量，在excel2003中就是65536，所以Cells(Rows.Count, 2)就表示第65536行与第2列交叉的位置(也就是第2列最后一个单元格)；
Cells(Rows.Count, 2).End(xlUp))就表示从第2列最后一个单元格开始往上查找第一个非空的单元格(往往就是你在第2列中所填写使用到的最后一个单元格),它也是一个单元格对象，但在你刚才那行代码中也表示这个单元各的值。
其实你刚才那行代码的真实面目应该是：arr1 = Range([b2].value, Cells(Rows.Count, 2).End(xlUp).value)平常我们都省略.value这个属性不写了；
如此一来运行时肯定出错:因为range用到两个参数时两个都必须是range对象；只用一个时则是表示range对象的字符；很显然刚才那两个单元格的值不可能是range对象的,所以会提示错误。
至于运算顺序，肯定是先算出那两个参数代表的range对象(至于先算谁，这个没深究过；不过好象也不影响我们使用)；然后算出这两个range对象为对角线围成的区域（也是range 对象）；最后得出这个区域的值。

beijiren368

谢谢楼上各位的解答{:soso_e163:}

sunxir

看起来好高深啊

zhulx_wx

能请教一下,您是怎么用立即窗口看的啊?

zhulx_wx

请教一下,您是怎么在立即窗口中看结果的呢?

kuaile5935

zhulx_wx 发表于 2015-8-6 16:23
请教一下,您是怎么在立即窗口中看结果的呢?

在立即窗口中输入一行代码，之后按回车

比如，输入 msgbox Worksheets(1).Cells(Rows.Count, 1).End(xlUp).Row
之后按回车就可以了