配列の操作に関して教えてほしいんですが
2重ループにしないで(For j=･････なしに)配列を一発で
代入できないでしょうか？

k=0
For i = LBound(Arry1, 1) To UBound(Arry1, 1)
　　if とある条件 then
　　　　k=k+1
　　　　For j = LBound(Arry1, 2) To UBound(Arry1, 2)
　　　　　　Arry2(k, j) = Arry1(i, j)
　　　　Next
　　end if
Next