其实这个我也碰到过,由于不会写VBA,所以只好手动来了

不过后来发现其实是有方法的

下面引用 下,希望有所帮助

1. 原内容为行（每行5列内容共几千行）：

2. 改为行排列（每12行5列内容囲12组排为一行）

本人不会编写宏，让您见笑曾费劲手工移动录制了一个取2400行（每行5列内容）改列的宏因原有工作表行不断增加，经常需要行改列作其它用途录制的宏不能满足需要。烦请大家帮助写一自动循环取12行5列内容排列为一行的宏

1. 1-12行1-5列内容排在第1行（第一行1-5列、第二行1-5列、类推，完成为60列）

'本程序需要把要变换的数据命名为"数据"(数据区的列数可以任意,不一定是5)方法:选中该区域,在名称框内输入"数據"即可,然后按程序要求输入每行要填的数据行的数目(如本例中的12)