如何转置_将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("⼤象", "⽼虎", "狮⼦", "狐狸")
excel数组函数的实例
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
VBA是利⽤Office实现⾃⼰⼩型办公⾃动化的有效⼿段，这是我对VBA的应⽤界定。在取代OFFICE新的办公软件没有到来之前，谁能在数据处理⽅⾯做到极致，谁就是王者。其中登峰⾄极的技能⾮VBA莫属！学习VBA是个过程，也需要经历⼀种枯燥的感觉，如太⽩诗云：众鸟⾼飞尽，孤云独去闲。相看两不厌，只有敬亭⼭。
"⽔善利万物⽽不争"，绵绵密密，微则⽆声，巨则汹涌。学习亦如此，知道什么是⾃⼰所需要的，不要蜷缩在⼀⼩块⾃认为天堂的世界⾥，待到暮年时再去做⾃欺欺⼈的⾔论。要努⼒提⾼⾃⼰，⽤⼀颗充满⽣机的⼼灵，把握现在，这才是进取。越是有意义的事情，困难会越多。愿⼒决定始终，智慧决定成败。不管遇到什么，都是风景。看淡纷争，看轻得失。茶，满也好，少也好，不要计较；浓也好，淡也好，其中⾃有值得品的味道。去感悟真实的时间，静下⼼，多学习，积累福报。⽽不是天天混⽇⼦，也不是天天熬⽇⼦。在后疫情更加严峻的存量残杀世界中，为⾃⼰的⽣存进⾏知识的储备，特别是新知识的储备。学习时微⽽⽆声，利⽤时则巨则汹涌。
我记得20年前⾃⼰初学VBA时，那时的资料甚少，只能看源码⾃⼰琢磨，真的很难。20年过去了，为了不让学习VBA的朋友重复我之前的经历，我根据⾃⼰多年VBA实际利⽤经验，推出了六部VBA专门教程。
第⼀套：VBA代码解决⽅案 是VBA中各个知识点的讲解，覆盖绝⼤多数的VBA知识点，初学必备；
第⼆套：VBA数据库解决⽅案 数据库是数据处理的专业利器，教程中详细介绍了利⽤ADO连接ACCDB和EXCEL的⽅法和实例操作，适合中级⼈员的学习。
第三套：VBA数组与字典解决⽅案 数组和字典是VBA的精华，字典是VBA代码⽔平提⾼的有效⼿段，值得深⼊的学习，是初级及中级⼈员代码精进的⼿段。
第四套：VBA代码解决⽅案之视频 是专门⾯向初学者的视频讲解，可以快速⼊门，更快的掌握这门技能。
第五套：VBA中类的解读和利⽤ 这是⼀部⾼级教程，讲解类的虚⽆与⾁⾝的度化，类的利⽤虽然较少，但仔细的学习可以促进⾃⼰VBA理论的提⾼。
第六套教程：《VBA信息获取与处理》，这是⼀部⾼级教程，涉及范围更⼴，实⽤性更强，⾯向中⾼级⼈员。教程共⼆⼗个专题，包括：跨应⽤程序信息获得、随机信息的利⽤、电⼦邮件的发送、VBA互联⽹数据抓取、VBA延时操作，剪切板应⽤、Split函数扩展、⼯作表信息与其他应⽤交互，FSO对象的利⽤、⼯作表及⽂件夹信息的获取、图形信息的获取以及定制⼯作表信息函数等等内容。如需要可以可以WeChat: NZ9668
学习的过程也是修⼼的过程，修⼀个平静的⼼。在代码的世界中，⼼平静了，⼼情好了，⾝体⾃然⽽
然就好。⼼静则正，内⼼⾥没有那么多邪知邪见，也就没有那么多妄想。利⼈就是利⼰。这些教程也是为帮助⼤家起航，助上我⾃⼰之⼒，我的上述教程是我多的经验的传递，⼤家可以根据以上资料1,3,2,6,5或者是4,3,2,6,5的顺序逐渐深⼊的逐渐学习。
每⼀分收获都是成长的记录，怎⽆凭，正是这种执着，成就了朝霞的灿烂。最后将⼀阙词送给致⼒于VBA学习的朋友，让⼤家感受⼀下学习过程的枯燥与执着：
浮云掠过，暗语⽆声，
唯有清风，惊了梦中啼莺。
望星，疏移北⽃，
奈将往事雁同⾏。
阡陌⼈，昏灯明暗，
忍顾长亭。
多少VBA⼈，
暗夜中，悄声寻梦，盼却天明。
怎⽆凭！
分享成果，随喜正能量

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。