怎么从3列的数组里提取第2、3列

loveszj

有个数组，ar=range("A1:C10")

想把B、C两列的数据填到 range("E1")单元格，怎么实现？

全填的话，用range("E1")=ar
填第2列的话，用range("E1")=application.index(ar,0,2)
求助怎么填2、3列

loveszj

上面表述不准确：
全填的话，用range("E1").resize(ubound(ar),3)=ar
填第2列的话，用range("E1").resize(ubound(ar),1)=application.index(ar,0,2)

quqiyuan

好像VBA没有直接提取数组多行或者多列的功能，需要循环

loveszj

quqiyuan 发表于 2024-10-9 21:57
好像VBA没有直接提取数组多行或者多列的功能，需要循环

好的，那就用两次index来取了

大灰狼1976

借大师的方法炫一下。

1. Sub abc()
   
2.   ar = Range("A1:C10")
   
3.   r = UBound(ar)
   
4.   ar1 = Application.Index(ar, Evaluate("Row(1:" & r & ")"), [{2,3}])   '多列/2-3
   
5. End Sub

复制代码