已解决：请问如何将2000多列数据变成多行

leaona

表格内的数据是2000多列，10行。

想变成15列*10，这样显示

有什么办法吗求大神帮忙！

紫色海水

VBA可以   

adai2014

需上传文件

xiangbaoan

1. Sub test1() '剪切 粘贴130多次，蛮有画面感
   
2.   Dim j As Long, r As Long, c As Long
   
3.   r = 12
   
4.   c = Cells(1, Columns.Count).End(xlToLeft).Column
   
5.   Application.ScreenUpdating = False
   
6.   For j = 16 To c Step 15
   
7.     Cells(1, j).Resize(10, 15).Cut Cells(r, 1)
   
8.     r = r + 11
   
9.   Next
   
10.   Application.ScreenUpdating = True
    
11. End Sub

复制代码

leaona

xiangbaoan 发表于 2021-11-24 15:13

大神，献上我的膝盖和鲜花，么么哒！
问题已解决，非常非常感谢！