![](https://iknow-base.cdn.bcebos.com/lxb/notice.png)
vba 数组 整行调用
我现在有一个10行3列的数组arr,我想调用其中一整行,用arr(3),即调用第三行,vb超出下标,请问应该怎么调用?急谢谢...
我现在有一个10行3列的数组arr,我想调用其中一整行,用arr(3),即调用第三行,vb超出下标,请问应该怎么调用?急 谢谢
展开
展开全部
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
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
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
没有这种方法吧?
我就是一个一个取:
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赋值到单元格区域,然后读取单元格区域的第三行
貌似操作起来还没有直接数组转存处理的快
我就是一个一个取:
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赋值到单元格区域,然后读取单元格区域的第三行
貌似操作起来还没有直接数组转存处理的快
本回答被提问者和网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
brr = Application.Index(arr, 3, 0)
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询