如何将excel表格某一列的数据全部赋值给一维数组？

Question

其实就是可变下标的数组了。
我目前是采用的笨方法：
Set dd = [D1:D240]
然后每次运行时，手动编辑代码设定下标。如果excel表格共有306行，我就要改写成
Set dd = [D1:D306]
虽然这方法简单可行，但是未免太弱智，而且增加了额外的工作量
我知道这个问题实在很弱，希望高手们给予指教。

Answer 1

dd = [d1].Resize([d65536].End(xlUp).Row, 1).Value
或者
dd=range([d1],[d65536].end(xlup)).value
BTW:赋值的结果是2维数组
dd(1,1)
dd(2,1)
dd(3,1)
...