Question

vba 数组 整行调用

我现在有一个10行3列的数组arr,我想调用其中一整行，用arr(3)，即调用第三行，vb超出下标，请问应该怎么调用？急 谢谢

Answer 1

Sub aa()
arr = Range("A1:C10").Value
Range("E1").Resize(1, UBound(arr, 2)) = WorksheetFunction.Index(arr, 3)
MsgBox "第3行的数据为:" & Join(WorksheetFunction.Index(arr, 3), ",")
End Sub

Answer 2

没有这种方法吧？
我就是一个一个取：
ReDim brr(LBound(arr, 2) To UBound(arr, 2))
For i = LBound(arr, 2) To UBound(arr, 2)
brr(i) = arr(3, i)
Next
MsgBox Join(brr, "|")
---------------
想到一个方法，曲线救国：
将arr赋值到单元格区域，然后读取单元格区域的第三行
貌似操作起来还没有直接数组转存处理的快

Answer 3

brr = Application.Index(arr, 3, 0)