Question

vba:arr = Range("A1", [A65536].End(xlUp))使用有什麼需要注意的吗？

如题，想将excel中的A列数据放到arr中，之前一直可以的，现在突然不行了，请教原因？

Answer 1

arr = Range("A1", [A65536].End(xlUp))
后面加个.value看看
arr = Range("A1", [A65536].End(xlUp)).value

Answer 2

arr = Range([A1], [A65536].End(xlUp))

追问

谢谢，还是不可以

追答

=。=啥都没有，语法的话，这样就可以了。
你的不可以是什么意思？报错啊还是什么其他的问题？
宏是不是放错地方了。sheet表有没有对应错，工作簿有没有弄错？

追问

宏是放在模组里面的，模组里面有调相应的sheet表计算。
没有报错，就是arr里面没有数据，後面要使用arr的，因为arr是空的，所以就出错了。

追答

那应该就是你sheet指定的时候出错了。
改一下吧
with sheet1
arr=.range(.[a1],.[a65536].end(xlup))
end with

追问

请问是不是指定sheet后就必须加上“.”了？我之前没加所以有时可以，有时不可以。
现在加了.后到目前为止是可以的，十分感谢！

追答

怎么说呢，你这里涉及到多表引用，你肯定是切换了工作表，然后，代码不加worksheet前缀对应的就是activesheet表，那么，我猜测，你是先激活了结果表，然后代码需要引用的是数据源表，问题在这里。
arr=worksheets("Sheet1").range(worksheets("Sheet1").[a1],worksheets("Sheet1").[a65536].end(xlup))
代码应该是这样，引用区域前应该加上对应的工作表，防止引用错误。
with的作用呢，就是对一个需要反复引用的对象进行简写。
with worksheets("Sheet1")
用这个开头，以后的worksheets("Sheet1")就可以省略了。
用.开头就表示引用了Sheet1
大概就是这样，自己理解吧。

Answer 3

那就这样写
arr=range("A1:A"& [A65536].End(xlUp).row )

追问

还是不可以，arr还是没有值，我这个是数据导入后计算的，首行可能没有值有影响吗?

追答

没有值不影响

追问

而且那一列末行有数据的是22行，我用语句r = Range([q1], [q65536].End(xlUp)).Row，执行后r=1。。。