VBA二维数组如何转一维数组？一维如何转二维？

如题所述

举报该问题

推荐答案 2020-03-03

：一维转二维。
MsgBox
arr1(2,
1)
‘转换后的数组是1列多行的二维数组
End
Sub
2、二维数组转一维。
arr3
=
Application.transpose(Application.Index(arr2,
,
2))
'取得arr2第2列数据并转置成1维数组
MsgBox
arr3(2,)

温馨提示：答案为网友推荐，仅供参考

当前网址：http://55.wendadaohang.com/zd/IG8QLReFIcQI4FIeLc4.html

相似回答

VBA将多维数组转换为一维数组答：能把这个二维数组赋值给单元格，再将你要转换的那一行直接赋值给新的一维数组 如果直接操作数组而不通过其他中间过程并且不用循环，好像是不可以的。

vba连接起来下面两次答：如果第二维的列数为1，那么经过转置之后，数组将降为一维数组，比如以下的例子：Sub test()Dim arr()ReDim arr(0 To 2, 0 To 0)arr(0, 0) = 1: arr(1, 0) = 2: arr(2, 0) = 3 MsgBox Join(Application.Transpose(arr), "-")End Sub 回到题目中来，原二维数组经过Application.T...

excel中如何将一维数组转变成为二维数组,反过来呢?答：用OFFSET或者INDEX可以实现。1 1 6 2 2 7 3 3 8 4 4 9 5 5 10 6 7 8 9 10 比如Alie是1~10，在C1输入公式 =IF(ROW(A1)>5,"",OFFSET($A$1,ROW(A1)-1+(COLUMN(A1)-1)*5,))往右拉，往下拉，就得到右边的结果 ...

vba 只有一行的二维数组转置问题求助答：Excel数据如何快速排列

vba 如何在多维数组提取其中一维答：数组A(1 to 3, 1 to 100, 1 to 100)下面是复制代码:For i = 1 To UBound(a, 2)For j = 1 To UBound(a, 3)Cells(i, j) = a(1, i, j)Next Next 是这个意思吗？暂时不知道...

大家正在搜

二维数组转化为一维数组一维数组和二维数组二维数组与一维数组的区别一维数组二维数组 c语言一维数组二维数组赋值二维数组定义二维数组指针