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)