如何设置数组行列转置的限制条件？

本文共计763个文字，预计阅读时间需要4分钟。

提到数组，大家都不陌生，但什么是数组行列转换呢？其实很简单，就像下图所示，行列转换就是将数组元素的存储方式转换。原本保存在第一列的数据，现在保存在新数组的第一行。

提到数组，大家都不陌生，什么是数组行列转置呢？其实也很简单，如下图所示，行列转置就是将数组元素的存放方式进行转换，原来保存在第一列的数据，将保持在新数组的第一行，并且保持原有顺序，即6在第一个位置，8在最后一个位置。其他列依次类推。

在Excel工作表中有个强大的函数Transpose，可以直接实现数组行列转置，作为VBA开发者来说，肯定不会忘记用这个。

Sub Demo1() Dim aData(1 To 3, 1 To 2) For i = 1 To 3 For j = 1 To 2 aData(i, j) = i + j * 5 Next j Next i aTrans = Application.Transpose(aData) Debug.Print UBound(aData, 1) & " x "; UBound(aData, 2) Debug.Print "=>>" Debug.Print UBound(aTrans, 1) & " x "; UBound(aTrans, 2) End Sub

一句代码轻松实现转置，比很多程序开发语言都要简单，在本地窗口中可以看到转置效果。