[已解决]怎么获取某一列的所有数据到数组里啊，急啊

787851791

各位大神帮帮忙啊，我想把指定列的所有的数据放到数组里，急求

最佳答案

月排行榜 / 总排行榜

ligh1298

2013-6-13 16:14

比如数据在A2:A100
sub 放入数组()
arr=[a2:a100]
end sub

或
sub 数据放入数组()
arr=range("a2:a" & [a65536].end(3).row)
end sub

还有Dim arr()
reDim arr(1to 100,1 to 2)等等。不知你想要哪些哟

跳转到最佳答案楼层

hwc2ycy

VBA么？

hongqiqqq

如果是A列，直接使用A:A引用就可以了
最好是能有个附件看看

ligh1298

比如数据在A2:A100
sub 放入数组()
arr=[a2:a100]
end sub

或
sub 数据放入数组()
arr=range("a2:a" & [a65536].end(3).row)
end sub

还有Dim arr()
reDim arr(1to 100,1 to 2)等等。不知你想要哪些哟

787851791

hongqiqqq 发表于 2013-6-13 16:12
如果是A列，直接使用A:A引用就可以了
最好是能有个附件看看

看看

787851791

hwc2ycy 发表于 2013-6-13 16:11
VBA么？

是的

787851791

ligh1298 发表于 2013-6-13 16:14
比如数据在A2:A100
sub 放入数组()
arr=[a2:a100]

看下附件

ligh1298

你这个附件，用以下代码就可写入。

1. Sub 数据放入数组()
   
2. arr = Range("a1:a" & [a65536].End(3).Row)
   
3. End Sub
   
4. 
   

复制代码

调出本地窗口，按F8测试。

787851791

没人嘛？是循环所有的列

787851791

难道只能悬赏才有人吗