提取ar的一部分列的数据，谢谢ykcbf1100老师！

lhj323323

老师：


以下语句是节选
如果数组ar，一共有10列
.Range("a1").Resize(UBound(ar), UBound(ar, 2)) = ar

以下，仅可以提取ar的第3列数据
.Range("f1").Resize(UBound(ar), 1) = WorksheetFunction.Index(ar, 0, 3)

如果我想提取ar的第3，7、8、9列数据
该怎么写呢？

先谢谢老师了！

ykcbf1100

供参考。。。

lhj323323

ykcbf1100 发表于 2023-12-7 11:46
供参考。。。

谢谢老师！

测试成功

请看以下语句
如果数据源有17列，而我要提取的，还涉及到连续的几列，
那么，二楼的语句，能否简化？

1. Sub test()
   
2.   Dim ar, br, cr
   
3.   Dim myr%, i%, j%, m%
   
4. Application.ScreenUpdating = False
   
5. 
   
6. With Sheet1
   
7.      myr = .[a65536].End(xlUp).Row
   
8.      ar = .Range("a1:q" & myr) '一共17列
   
9.      b = [{1,3,6,7,8,9,10,11,12,13,14,15}] '取其中12列
   
10.      ReDim cr(1 To UBound(ar), 1 To 12)
    
11.      For i = LBound(ar) To UBound(ar)
    
12.          m = m + 1
    
13.          For j = 1 To UBound(b)
    
14.              cr(m, j) = ar(i, b(j))
    
15.          Next
    
16.      Next
    
17.      .[j1].Resize(m, UBound(b)) = cr
    
18. End With
    
19. 
    
20. Application.EnableEvents = True
    
21. End Sub

复制代码