请教关于阵列代替 Range如下：
dim arr() as Variant
'(1) 可将储存格的值放入阵列arr内
arr=Range("A1:E400")
'(2) 可将阵列内的值放入储存格内
Range("A1:E400")=arr
如果有多栏且包含不相邻 (列数相同) 的储存格
可如 (1) 方法，放入 arr 内吗？
或如 (2) 方法，放入指定(包含不相栏)的栏内吗？

for r=r0 to r1 : for c=c0 to c1cells(r, c) = arr(r*p+m, c*q+n): next逐格抄过去。

谢谢回复。储存格或阵列要一列一列或一栏一栏的贴到阵列或储存格，没有这样的用法，只能逐格抄过去吗？