VBA数组格式转置

WE2021

烦请各位老师，帮忙看看VBA怎么把AA2以下的数组格式转置输出在AH至BI列下（例如：例1  例2  例3）；注意AB:AG区域下有数据不能破坏！！！
谢谢！
VBA转置输出.zip (27.05 KB, 下载次数: 9)

2022-12-31 15:10 上传

点击文件名下载附件

蓝桥玄霜

输出的例子：

iu950

又是你。结合昨天的帖子综合处理吧

WE2021

iu950 发表于 2022-12-31 15:54
又是你。结合昨天的帖子综合处理吧

老师
因为昨天没有清晰阐述！

非常感谢！

tmplinshi

1. Sub 转置输出()
   
2.     FormatData [AA2], [AH1]
   
3. End Sub
   
4. 
   
5. Sub FormatData(inCell As Range, outCell As Range)
   
6. 
   
7.     Dim src(), r%, i%
   
8.     Dim out(), outRowCount%, outColCount%, parts$()
   
9.    
   
10.     src = Range(inCell, inCell.End(xlDown)).Value2
    
11.    
    
12.     outRowCount = UBound(Split(src(1, 1))) + 1
    
13.     outColCount = UBound(src)
    
14.     ReDim out(1 To outRowCount, 1 To outColCount)
    
15. 
    
16.     For r = 1 To UBound(src)
    
17.         parts = Split(src(r, 1))
    
18.         For i = 0 To UBound(parts)
    
19.             out(i + 1, r) = parts(i)
    
20.         Next
    
21.     Next
    
22.    
    
23.     CellWriteArray outCell, out
    
24. End Sub
    
25. 
    
26. Sub CellWriteArray(cell As Range, arr())
    
27.     cell.Resize(UBound(arr), UBound(arr, 2)).Value2 = arr
    
28. End Sub
    

复制代码