Vba使用Application.Index拆分数组

lss001

Sub Index拆分数组()
   ar = Range("A1:C3")
   r = UBound(ar)
   x = UBound(ar, 2)
   c = Split(Cells(1, x).Address, "$")(1)

   ar1 = Application.Index(ar, , 2) '1列/2
   ar2 = Application.Index(ar, Evaluate( _
    "Row(1:" & r & ")"), [{2,3}]) '多列/2-3

   ar3 = Application.Index(ar, 2) '1行/2
   ar4 = Application.Index(ar, [{2;3}], _
        Evaluate("Column(a:" & c & ")")) '多行/2-3

    ar5 = Application.Index(ar, Evaluate( _
        "Row(1:" & r & ")"), [{1,3}]) '隔列/1,3
    ar6 = Application.Index(ar, [{1;3}], _
        Evaluate("Column(a:" & c & ")")) '隔行/1;3
End Sub

lss001

Sub Index拆分数组2()
   ar = Range("A1:E5")

     '1,3,5行/1-3列
    ar1 = Application.Index(ar, _
        [Row(1:3)*2-1], [Column(a:c)])

     '1-3行/1,3,5列
    ar2 = Application.Index(ar, _
        [Row(1:3)], [Column(a:c)*2-1])

     '1,3,5行/1,3,5列
     ar3 = Application.Index(ar, _
         [Row(1:3)*2-1], [Column(a:c)*2-1])

       '1-3行/1-3列
      ar4 = Application.Index(ar, _
          [Row(1:3)], [Column(a:c)])
End Sub

marchwen01

看似好用又简单炫酷，实则效率低的要命，不如循环取数。

lss001

Sub Index拆分一维数组()
    Dim ar(), ar1(), ar2(), ar3(), ar4()
    ar = Array(1, 2, 3, 4, 5)
        
   '1-3/转二维1行
    ar1 = Application.Index(ar, , _
          [Column(a:c)])
   '1，3，5/转二维1行
    ar2 = Application.Index(ar, , _
          [Column(a:c)*2-1])

        
    '1-3/转二维1列
    ar3 = Application.Index(ar, [Row(1:3)])
    '1，3，5/转二维1列
    ar4 = Application.Index(ar, [Row(1:3)*2-1])
End Sub

ykcbf1100

能用，但速度确实会受点影响，刚试了一下一次2列。

lss001

工作表函数的使用
主要是根据实际情况来使用
速度方面不要太苛求
必竟它是工作表函数

大灰狼1976

这不是很好吗，目前为止没有看到过这个方法，感谢分享新知识！
我一直以为INDEX只能指定某个元素，或者单行/单列，没想到也可以截取部分。

lss001

谢谢回复！

lss001

Sub Index表格区域取值()
    Dim rng As Object, ar1(), ar2(), ar3(), ar4()
    Set rng = Range("a1:e5")
        
   '第1行/整行
    ar1 = Application.Index(rng, 1, _
          [Column(a:e)])
   '第1行/1，3，5
    ar2 = Application.Index(rng, 1, _
          [Column(a:c)*2-1])
        
    '第1列/整列
    ar3 = Application.Index(rng, [Row(1:5)], 1)
     '第1列/1，3，5
    ar4 = Application.Index(ar, [Row(1:3)*2-1], 1)
   
End Sub

lss001

Sub Index表格区域取值2()
    Dim rng As Object, ar1(), ar2(), ar3(), ar(4)
    Set rng = Range("a1:e5")
   
    '1，3，5行/1-3列
    ar1 = Application.Index(rng, _
        [Row(1:3)*2-1], [Column(a:c)])
        
    '1-3行/1，3，5列
    ar2 = Application.Index(rng, _
        [Row(1:3)], [Column(a:c)*2-1])
        
    '1，3，5行/1，3，5列
    ar3 = Application.Index(rng, _
        [Row(1:3)*2-1], [Column(a:c)*2-1])

     '1-3行/1-3列
    ar4 = Application.Index(rng, _
        [Row(1:3)], [Column(a:c)])
        
End Sub