如何将一列数据，按照要求变成多列数据

prowl

如附件所示，希望将一列99个数据，以20个为一列，变成附件里箭头指向的样式。先谢谢了

DevilW

DevilW

1. Sub test()
   
2.     ar = Range([a2], [b65536].End(3))
   
3.     r = Int(UBound(ar) / 20) + 1
   
4.     ReDim br(1 To 20, 1 To UBound(ar, 2) * r)
   
5.     For i = 1 To UBound(ar)
   
6.         n = n + 1
   
7.         For j = 1 To UBound(ar, 2)
   
8.             br(n, m * 2 + j) = ar(i, j)
   
9.         Next
   
10.         If n = 20 Then n = 0: m = m + 1
    
11.     Next
    
12.     [i2].Resize(20, UBound(br, 2)) = br
    
13. End Sub

复制代码

lcluck2002

如果数据量只有这么一点点，就在单元格里操作算了：

z865593849

szqhb

DevilW 发表于 2024-10-28 22:34

很好。收藏了。

gwjkkkkk

参与一下。。。

prowl

gwjkkkkk 发表于 2024-10-29 19:19
参与一下。。。

感谢老师的帮助

prowl

z865593849 发表于 2024-10-29 08:26

感谢热心帮助

prowl

lcluck2002 发表于 2024-10-28 22:54
如果数据量只有这么一点点，就在单元格里操作算了：

感谢帮助