Excel一维数组转二维数组的方法

​excel使用技巧大全在前面我们已经讲过,读取数组中的数据都是连续的。但有时,一些数据是不连续的。这时我们应该怎么办呢?

例如,许多格式相同的sheet要合并在一起。我们想看每一个sheet的数据。此时,我们经常是以行为单位,一行一行的去读取,所以数组实际上是一维数组,经过后期处理后,我们把它转换成一个二维数组输出。

我们看个简单的例子:

Sub test()

Dim arr1, arr2, arr3

arr1 = [a2:b4]

arr2 = Array(Array("A001", 100), Array("A002", 200), Array("A003", 300))

arr3 = Application.Transpose(Application.Transpose(arr2))

End Sub

结果如下:

这时我们看到的是二维数组。

运行第2段代码后得到的结果:

我们看到的结果是1维数组,不是2维数组,而1维数组里的每个元素都有2个元素。

将ARR2转置2次后就能得到一个2维数组(ARR3):

实际案例运用如下:

上面我们看到,需要合并同一格式的三个表。我们将每个表中的每个数组直接写入一个新的数组,然后在转置2次之后输出它以获得汇总数据。代码如下:

发表评论
留言与评论(共有 0 条评论)
   
验证码:

相关文章

推荐文章

'); })();