给数组赋值，

xihaihandsp

向各位老师请教，万分感谢！！！！！！！！！！！！

719404338

1. Sub t()
   
2. arr = [a3].Resize(1, [zz3].End(1).Column).Value
   
3. End Sub
   
4. 
   

复制代码

abc123281

arr = Range("a3", Cells(3, [a1].End(2).Column))

小花鹿

别在END上折腾了，换别的方法吧                                                                              

zhangcheng6688

abc123281 发表于 2018-8-25 23:32
arr = Range("a3", Cells(3, [a1].End(2).Column))

好好学习，天天向上！