vba,将当前工作簿名赋给数组里,请大佬写出可运行的代码

将工作表中的数据赋给数组或者將数组的数据赋给工作表一般有两种。一种是循环的方法一个一个的传,这样的方法一般用于须要对每一个数据特别处理的场合还囿一种是一次性用赋值语句传,就速度来说另外一种方法要快得多。看以下例程:

'循环给数组赋值数组myarr必须先定义大小 '一次性给数组賦值。数组arr不能定义大小和类型

只是要注意的是循环赋值的方法数组必须先定义维数和大小,然后才干使用而一次性赋值的正好相反。不能定义维数和大小否则会报错。此外注意数据一次性读入数组arr2后。arr2成为一个二维数组即使是读取一列数据。也是二维数组数組下标都是从1開始,即arr2(1,1)arr2(2,1),arr2(3,1)arr2(4,1),

另一点要注意当读取的工作表非当前工作表时。range对象后面须要加上valuekeyword否则会报错,比如:

'方法二:噭活工作表后读取

假设赋值范围用行列号表示则用下列语句(pos_fst, pos_ems是两个參数,各自是数据起始行和数据所在列):

用上面的例程測试发现即使20多万条数据,第一种方法用时非常少(4.62963E-05)而另外一种方法却差点儿不用时间(0)。
}

我要回帖

更多推荐

版权声明:文章内容来源于网络,版权归原作者所有,如有侵权请点击这里与我们联系,我们将及时删除。

点击添加站长微信