如何将单元格一列数赋值成一维数组

peter199083

本人想把一列数赋值进数组，使用了如下程序，但发现生成数组并非一维数组，而是第二维度上下限都定义为1的二维数组。

1. Sub df()
   
2.     Dim arr() As Variant
   
3.     arr() = [A1].CurrentRegion.Value
   
4. End Sub
   

复制代码

有什么方法可以在定义环节就直接将数组生成为一维的呢？我期待的结果如下。

杨建营

把arr括号去了再赋值

cjc209

arr = Application.Transpose([A1].CurrentRegion.Value) 这就是一维的

ykcbf1100

可以这样。

peter199083

感谢各位的建议。我重新试了一下，感觉最方便的还是转置成行再赋值比较方便。

1. Sub df()
   
2.     Dim arr() As Variant
   
3.     arr() = Application.WorksheetFunction.Transpose([A1].CurrentRegion)
   
4. End Sub
   

复制代码