【分享成果，随喜正能量】越是运气不好，越要沉住气，默默振作，静静熬过去，你要接受，那些突如其来的失去，当你做什么都于事无补的时候，唯一能做的就是努力让自己好过一点。

再能干的人，也会撑不住；再执着的心，也会被伤透。一个人累了，就有权力休息，一颗心痛了，就有理由放下。不必逞强，泪水是最好的释放，不必伪装，回归是最美的模样。

《VBA信息获取与处理》教程是我推出第六套教程，目前已经是第一版修订了。这套教程定位于最高级，是学完初级，中级后的教程。这部教程给大家讲解的内容有：跨应用程序信息获得、随机信息的利用、电子邮件的发送、VBA互联网数据抓取、VBA延时操作，剪贴板应用、Split函数扩展、工作表信息与其他应用交互，FSO对象的利用、工作表及文件夹信息的获取、图形信息的获取以及定制工作表信息函数等等内容。程序文件通过32位和64位两种OFFICE系统测试。是非常抽象的，更具研究的价值。

教程共两册，八十四讲。今日的内容是专题四“EXCEL工作表数据的读取、回填和查找”的第4讲：数组的转置

第四节 将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

MyRange.Value = Application.Transpose(Arr)

MsgBox "ok!"

End Sub

代码截图：

代码讲解：这里需要注意的是基准单元格区域的扩展语句变为：Resize(UBound(Arr) + 1, 1)这是列的扩展了，所以转置语句相应就是Application.Transpose(Arr) 。这里要注意点是调整大小的参数是反向的。

2 二维数组回填工作表时的转置（Transpose）

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

具体代码如下：

Sub MYNZH() '二维数组数据的转置回填方案

Dim Arr As Variant

Dim MyRange As Range

Sheets("SHEET4").Select

Arr = Sheets("SHEET2").Range("A1:b9")

Set MyRange = Range("A1")

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

MyRange.ClearContents

MyRange.Value = Application.Transpose(Arr)

MsgBox "ok!"

End Sub

代码截图如下：

代码讲解：从工作表读取数组变量时，VBA将自动调整数组的大小，以保持工作表上的范围，所以不必关心数组的大小。但是，将数组从VBA写入工作表时，必须调整目标区域的大小以容纳数组。我们在前面的例子中已经看到了这一点。

如果传递给工作表的数组小于其写入的范围，则未使用的单元格将出现“#N/A”错误。如果传递的数组大于其写入的范围，则将在右侧或底部截断该数组以适合该范围。

本节知识点回向：如何理解转置？一维数组和二维数组转置是如何利用的？

本专题参考程序文件：004工作表.XLSM

我20多年的VBA实践经验，全部浓缩在下面的各个教程中，教程学习顺序：

① 7→1→3→2→6→5或者7→4→3→2→6→5。

② 7→8

各套教程内容简介:

第7套教程（共三册）：《VBA之EXCEL应用》：是对VBA基本的讲解

第1套教程（共三册）：《VBA代码解决方案》：是入门后的提高教程

第4套教程（16G）：VBA代码解决方案之视频（第一套的视频讲解）

第3套教程（共两册）：《VBA数组与字典解决方案》：是对数组和字典的专题讲解

第2套教程（共两册）：《VBA数据库解决方案》：是对数据库的专题讲解

第6套教程（共两册）：《VBA信息获取与处理》：讲解VBA的网络及跨程序应用

第5套教程（共两册）：VBA中类的解读和利用：类及接口技术的讲解

第8套教程（共三册）：VBA之Word应用（最新教程）：word中VBA的利用

第六套教程：VBA信息获取与处理，这是一部高级教程，涉及范围更广，实用性更强，面向中高级人员。教程共二十个专题，包括：跨应用程序信息获得、随机信息的利用、电子邮件的发送、VBA互联网数据抓取、VBA延时操作，剪切板应用、Split函数扩展、工作表信息与其他应用交互，FSO对象的利用、工作表及文件夹信息的获取、图形信息的获取以及定制工作表信息函数等等内容。程序文件通过32位和64位两种OFFICE系统测试。