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

结果如下：

展开剩余55%

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

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

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

将ARR2转置2次后就能得到一个2维数组（ARR3）：

实际案例运用如下：

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