oobird

ReDim arr(1 To UBound(rng), 1 To 10)
¦pubound(rng)¬°100
¨äµ²ªG¬°arr(1 to 100,1 to 10)
·íÄÝ©T©w°}¦C¡C
r = 1
    For i = 1 To UBound(a)
        ReDim Preserve arr(1 To 3, 1 To r)
        arr(1, r) = a(i, 1): arr(2, r) = a(i, 2): arr(3, r) = a(i, 3)
        r = r + 6
next
²Ä¤@­Ói´`Àô®Ér=1,arr(1 To 3, 1 To r)=arr(1 to 3,1 to 1)

²Ä2­Ói´`Àô®Ér=7,arr(1 To 3, 1 To r)=arr(1 to 3,1 to 7)

²Ä3­Ói´`Àô®Ér=13,arr(1 To 3, 1 To r)=arr(1 to 3,1 to 13)
³o¼Ë´N¥s°ÊºA°}¦C¡C