点【关于本公众号】了解一下，欢迎关注，谢谢！
快速浏览
实用案例
|日期控件||简单的收发存||收费管理系(Access改进版)|
|中医诊所收费系统(Excel版)||中医诊所收费系统(Access版)||银行对账单自动勾对|
收费使用项目
|财务管理系统||工资薪金和年终奖个税筹划||新税法下工资表模版|
内容提要
行列转置
Sub myTranspose1()'//复制单元格，选择性粘贴-转置Dim rng As Range, targetRng As RangeDim ws As WorksheetSet ws = ThisWorkbook.Sheets("源表")Set rng = ws.Range("A1").CurrentRegionSet targetRng = ThisWorkbook.Sheets("结果1").Range("A1")rng.CopytargetRng.PasteSpecial Paste:=xlPasteAll, Transpose:=TrueApplication.CutCopyMode = FalseEnd Sub
Sub myTranspose2()'//数组转置Dim rng As Range, targetRng As RangeDim ws As Worksheet, arr()Set ws = ThisWorkbook.Sheets("源表")arr = ws.Range("A1").CurrentRegion.ValueSet targetRng = ThisWorkbook.Sheets("结果2").Range("A1")2), UBound(arr)) = Application.Transpose(arr)End Sub
Sub myTranspose3()'//单元格区域转置Dim rng As Range, targetRng As RangeDim ws As WorksheetSet ws = ThisWorkbook.Sheets("源表")Set rng = ws.Range("A1").CurrentRegionSet targetRng = ThisWorkbook.Sheets("结果3").Range("A1")targetRng.Resize(rng.Columns.Count, rng.Rows.Count) = Application.Transpose(rng)End Sub
后记
1、我们可以发现，采用复制粘贴方式下，可以保留原来的格式，比如合并居中、单元格字体、颜色等。
2、在VBA中把一个区域转置输出的应用场景比较少，我基本上是没怎么碰到过，也想不出有哪些可能的应用场景。我们一般是在数组、字典中处理完数据后，再视情况，可能把数组、字典的Key、Item转置后写入工作表。
好，今天就到这里，我们下期再会！
| 安利小店 安利的牙膏非常不错，用了以后就不想再用其他的了；洗洁精、洗衣液也是日常必备，用过都说好！ | |
| 合谷医疗 合谷医疗专攻各种疑难杂症，尤其擅长抑郁症、焦虑失眠、儿童神经发育异常、多动症、自闭孤独症、腰颈椎疾病治疗，可谓神乎其技！体验过的直呼早点来就好了！ |
喜欢就点个赞、点在看、留言评论、分享一下呗！感谢支持！
Excel问题，请在文章下面留言讨论！或者加入我的付费交流群提问！
