[已解决]数组给单元格区域赋值的问题

zlj

如：

dim arr

arr=sheet1.range("A1:E100")

..............程序运行后。

现在我要把数组arr的值赋值给A1：B100和E1：E100。C1：D100不赋值。这样赋值能实现吗？

如果不行有没有其他好方法？谢谢！

最佳答案

月排行榜 / 总排行榜

雨狐

2009-12-18 23:58

QUOTE:

以下是引用zlj在2009-12-18 23:23:00的发言：

再改下区域。

如：

dim arr

arr=sheet1.range("A1:E100")

..............程序运行后。

现在我要把数组arr的值赋值给F1：G100和I1：J100。H1：H100不赋值。这样赋值能实现吗？

如果不行有没有其他好方法？谢谢！

还有有很多方法的，比如将ARR分成两个数组或调用工作表函数[f1:f100] = Application.Index(arr, , 1)

跳转到最佳答案楼层

喜多多

[A1：B100]=arr

[E1：E100]=arr

或[a1].resize(ubound(arr,1),ubound(arr,2))=arr

zlj

哦，上面赋值的区域改下：

如：

dim arr

arr=sheet1.range("A1:E100")

..............程序运行后。

现在我要把数组arr的值赋值给F1：G100和J1：J100。H1：I100不赋值。这样赋值能实现吗？

如果不行有没有其他好方法？谢谢！

喜多多

没有用erase arr前，arr的数据在内存里，你要用多少次都可以

喜多多

将数组赋值给一个区域，要同维度

zlj

那就没办法了。

zlj

再改下区域。

如：

dim arr

arr=sheet1.range("A1:E100")

..............程序运行后。

现在我要把数组arr的值赋值给F1：G100和I1：J100。H1：H100不赋值。这样赋值能实现吗？

如果不行有没有其他好方法？谢谢！

[此贴子已经被作者于2009-12-18 23:26:43编辑过]

雨狐

QUOTE:

以下是引用zlj在2009-12-18 23:23:00的发言：

再改下区域。

如：

dim arr

arr=sheet1.range("A1:E100")

..............程序运行后。

现在我要把数组arr的值赋值给F1：G100和I1：J100。H1：H100不赋值。这样赋值能实现吗？

如果不行有没有其他好方法？谢谢！

还有有很多方法的，比如将ARR分成两个数组或调用工作表函数[f1:f100] = Application.Index(arr, , 1)

lpsh1985

学习Application.Index(arr, , 1)

zlj

谢谢雨狐,将ARR分成两个数组,倒是有用过.这个调用工作表函数[f1:f100] = Application.Index(arr, , 1)要好好学习下.

不过这调用工作表函数会不会影响程序运行速度呀?

应该不会吧!有点模糊.还望指点,谢谢!