比如:11 12 13 14 15 16
21 22 23 24 25 26
想要的格式是:11 12 13
21 22 23
14 15 16
24 25 26
数据很多。请教高手怎么处理。
例子中数据太少,只有6列,真实的情况是原始数据有非常多列,手动的移很费时间
1ãå å ¨é¨éä¸ä½ è¦è½¬ç½®çæ°æ®ï¼å¤å¶ï¼
2ãéæ©ä½ è¦ç²è´´çå°æ¹ï¼å³å»âéæ©æ§ç²è´´â
3ãéæ©â转置â 并确认ï¼
4ãè¿æ ·å°±å¯ä»¥å®æäºã
看了你的要求,只需要移动数据就可以实现,按住shift键,选中最后三列移动到后面。
多行多列可以使用vba来解决。
以下是代码,根据你需要转置的列数还可以改变一下里面的数字3,2。
Sub 转置()
Dim c%, a%, r%, rw%, k%
c = Cells(1, Columns.Count).End(xlToLeft).column
r = Cells(Rows.Count, 1).End(xlUp).Row
For a = 1 To c Step 3
For b = 1 To r
rw = rw + 1
k = k + 1
Range(Cells(b, a), Cells(b, a + 2)).Copy Sheet2.Cells(rw, 1)
Next b
k = 0
Next a
End Sub
本回答被提问者采纳