如何提取数组中的部分行列数据？

vbafan2006

有一数组：arr(1 to 6, 1 to 18) 如果我想提取其中第6“行”的数据来建立一个新数组arr1(1 to 1, 1 to 18) －（这样写法对吗？），该如何编程。 偶是数组新手。 谢谢！

TGB

for k = 1 to 18

arr1(1,k)=arr(1,k)

next k

vbafan2006

牛！谢！

lipton

论坛上有一个帖子，题目大概是,数组的用法提到

提取数组行：

Dim Arr(1 To 6,1 To 18)

Arr1 = Application.Index(Arr, 6)'提取第六行数据

提取数组列

Arr1 = Application.Index(Arr, 0, 15)'提取第15列数据

数据量大时，用这个方法速度会比循环快

TGB

学习了

vbafan2006

但是不用循环，如何提取多行或者多列？谢谢。

vbafan2006

no one can answer?

plxmm

以下是引用[I]vbafan2006[/I]在2006-5-26 11:04:16的发言：[BR]但是不用循环，如何提取多行或者多列？谢谢。

参照4楼的代码，多写几行代码呗。

wwwruc

lipton 发表于 2006-5-25 11:13
论坛上有一个帖子，题目大概是,数组的用法提到
提取数组行：
Dim Arr(1 To 6,1 To 18)

好东西，正是我想要的。

☆~♂添♀~☆

lipton 发表于 2006-5-25 11:13
论坛上有一个帖子，题目大概是,数组的用法提到
提取数组行：
Dim Arr(1 To 6,1 To 18)

MARK 一下。