多个不连续单元格区域，如何赋值给数组？

wmqz.130

如题，我数据中的部分列想赋值给数组。如何写代码呢？比如，数据区域是a1:k300,我想把其中的c列，g 列，j列，这三列赋值给一个数组。如何写代码呢？

约定的童话

或者都赋值给数组，循环的时候指定那几列

wodewan

忽略下面这堆代码吧，直接看5楼大神的，这思路太强大了。。。
假设你要赋值的数组是brr。。。，
Sub 刘德华()
Dim arr, brr(), crr, m, i, j
arr = Array(3, 7, 10)
crr = Range("a1").CurrentRegion
ReDim brr(1 To UBound(crr), 1 To UBound(arr) + 1)
For i = 1 To UBound(crr)
    For j = 1 To UBound(arr) + 1
        brr(i, j) = crr(i, arr(j - 1))
    Next
Next
End Sub


补充内容 (2020-3-30 15:25):
Sub test()
    Dim arr
    M = [A65536].End(3).Row
    arr = Evaluate("Index(A:J,N(IF(,,ROW(1:" & M & "))),N(IF(,,{3,7,10})))")
End Sub

aman1516

请测试：

1. Sub test()
   
2. Dim r, i, j, ar, arr
   
3. ar = Array("C", "G", "J")
   
4. ReDim arr(1 To 300, 1 To UBound(ar) + 1)
   
5. For i = 1 To 300
   
6.     For j = 0 To UBound(ar)
   
7.         arr(i, j + 1) = Range(ar(j) & i)
   
8.     Next
   
9. Next
   
10. End Sub

复制代码

试：

xiangbaoan

ar = Evaluate("choose({1,2,3},c1:c300,g1:g300,j1:j300)")

lss001

不连续区域赋值数组精简版！！！
arr = [Choose({1,2,3},C1:C9,G1:G19,J1:J29)]

wmqz.130

lss001 发表于 2019-11-14 09:00
不连续区域赋值数组精简版！！！
arr = [Choose({1,2,3},C1:C9,G1:G19,J1:J29)]

如果区域是一个动态的呢？如何表示呢？

wmqz.130

xiangbaoan 发表于 2019-11-14 08:28
ar = Evaluate("choose({1,2,3},c1:c300,g1:g300,j1:j300)")

如果区域是一个动态的呢？应该如何表示呢？

liuguansky

for each areas　赋值数值再循环．

xiangbaoan

wmqz.130 发表于 2019-11-14 11:26
如果区域是一个动态的呢？应该如何表示呢？

a = [a1].Resize(30).Address
b = [c1].Resize(30).Address
c = [e1].Resize(30).Address
s = "choose({1,2,3}," & a & "," & b & "," & c & ")"
ar = Evaluate(s)
   
'Evaluate(这是一个字符串)