如何转置_将VBA数组写入工作表时转置（Transpose）的利用

大家好,最近推出的内容是"VBA信息获取与处理"中的部分内容，这套教程面向中高级人员，涉及范围更广，实用性更强，现在的内容是第四个专题"EXCEL工作表数据的读取、回填和查找"的内容。

第四节 将VBA数组写入工作表时转置(Transpose)的利用

转置(Transpose)是数组应用中经常用到的知识点，在使用Excel表格的过程中，当我们想将横行转成竖列(或将纵向的数据切换成横向排列)，又希望这前后两个排列方式不一样的数据相互关联的时候就可以利用转置函数transpose了。但要注意这个函数是工作表函数，所以利用这个函数的时候必须用Application.Transpose(Arr)。

1 一维数组回填工作表时的转置(Transpose)

如果需要一维数组按列的回填可以用下面的语句：MyRange.Value = Application.Transpose(Arr)

具体代码如下：

Sub MYNZG() '一维数组数据的转置回填方案

Dim Arr As Variant

Dim MyRange As Range

Sheets("SHEET4").Select

Arr = Array("大象", "老虎", "狮子", "狐狸")

Set MyRange = Range("A1")

Set MyRange = MyRange.Resize(UBound(Arr) + 1, 1)

MyRange.ClearContents

My