一个数组经过VBA转换后，可以变成任意长宽的数组吗？

abc123281

讨论得好热闹啊

abc123281

哦  谢谢了  maditate   鲜花告诉我你曾经来过  向你学习

香川群子

两种方法：

1.工作表方法复制、转置粘贴

1. Sub test1()
   
2.     m = Range("G2") '指定转置行数m
   
3.    
   
4.     With Range("B5")
   
5.         n = .CurrentRegion.Columns.Count '原始区域列数
   
6.         .Offset(, n + 2).CurrentRegion.Clear
   
7.         Do
   
8. '            tr = .Offset(i * m).Resize(m, n) '按指定转置行数m间隔读取数据到数组tr
   
9. '            .Offset(i * n, n + 2).Resize(n, m) = WorksheetFunction.Transpose(tr) '转置输出
   
10.             .Offset(i * m).Resize(m, n).Copy '复制
    
11.             .Offset(i * n, n + 2).PasteSpecial Paste:=xlPasteAll, Transpose:=True '转置粘贴
    
12.             i = i + 1
    
13.         Loop Until .Offset(i * m) = ""
    
14.     End With
    
15.     MsgBox "OK"
    
16. End Sub

复制代码

第2种方法，数组循环赋值后输出

1. Sub test2()
   
2.     n2 = Range("G2") '指定转置行数n2
   
3.     ar = Range("B5").CurrentRegion '原始数据读入数组ar
   
4.     m = UBound(ar): n = UBound(ar, 2)
   
5.     Range("B5").Offset(, n + n2 + 4).CurrentRegion = ""
   
6.     ReDim br(1 To m / n2 * n, 1 To n2)
   
7.     For i = 0 To m - 1 Step n2
   
8.         For j = 1 To n2
   
9.             For i2 = 1 To n
   
10.                 br(i / n2 * n + i2, j) = ar(i + j, i2)
    
11.             Next
    
12.         Next
    
13.     Next
    
14.     Range("B5").Offset(, n + n2 + 4).Resize(UBound(br), n2) = br
    
15.     MsgBox "OK"
    
16. End Sub

复制代码