[已解决]【已解决】如何将行数值赋值给一维数组

凡人歌

使用以下语句对数组进行赋值：

Dim tmp() As Variant

tmp=range("A1:D1")

得到的结果是一个二维数组，有没有办法可以直接得到一维数组？

谢谢！

[此贴子已经被作者于2010-4-3 20:50:03编辑过]

最佳答案

月排行榜 / 总排行榜

枯禅

2010-4-3 19:28

学习楼上的，再完善一下：两维数组抽一行或一列成一维数组

Sub a()
Dim tmp() As Variant
Dim arr1, arr2
tmp = Range("A1:D8")
'取一行成一维，以第三行为例
arr1 = Application.Index(tmp, 3, 0)
'取一列成一维，以第四列为例
arr2 = Application.Index(Application.Transpose(tmp), 4, 0)
End Sub

跳转到最佳答案楼层

枯禅

Dim tmp() As Variant
Dim arr
tmp = Range("A1:D1")
arr = Application.Index(tmp, 1, 0)

上清宫主

tmp=application.transpose(application.transpose(range("A1:D1")))

文本时tmp=[A1:D1 & ""]数字时tmp=[A1:D1 *1]

枯禅

学习楼上的，再完善一下：两维数组抽一行或一列成一维数组

Sub a()
Dim tmp() As Variant
Dim arr1, arr2
tmp = Range("A1:D8")
'取一行成一维，以第三行为例
arr1 = Application.Index(tmp, 3, 0)
'取一列成一维，以第四列为例
arr2 = Application.Index(Application.Transpose(tmp), 4, 0)
End Sub

cjainwei

我是来围观的（群众演员）

凡人歌

非常感谢各位的解答[em17][em17]

zsd5237

学习[em02][em02]

CCTV20082008

[em17][em17]