excel行改列技巧(不是转置问题)
原内容为行（每行5列内容共几千行）：
列1 列2 列3 列4 列5
行1 1 2 3 4 5
行2 1 2 3 4 5
行3 1 2 3 4 5
以下类同…
2. 改为行排列（每12行5列内容共12组，排为一行）
列1 列2 列3 列4 列5 列6 列7 列8 列9 列10 ……(60列)
原1-12行 1 2 3 4 5 1 2 3 4 5 ……(60列) /原13-24行 1 2 3 4 5 1 2 3 4 5 ……(60列) /原25-36行 1 2 3 4 5 1 2 3 4 5 ……(60列) /以下类推 …
本人不会编写宏，让您见笑曾费劲手工移动录制了一个取2400行（每行5列内容）改列的宏。因原有工作表行不断增加，经常需要行改列作其它用途，录制的宏不能满足需要。烦请大家帮助写一自动循环取12行5列内容排列为一行的宏。
规律：
1. 1-12行1-5列内容排在第1行（第一行1-5列、第二行1-5列、类推，完成为60列）
2. 13-24行1-5列内容排在第2行（第13行1-5列、第14行1-5列、类推）
3. 25-36行1-5列内容排在第3行（第25行1-5列、第26行1-5列、类推）
4. 以下类推 …
解答：Sub 转换()
Dim numcol As Integer
Dim numrow As Long
Dim i As Long
Dim x As Integer
Dim numperrow As Integer
numperrow = InputBox("请输入每行要填的数据行的数目:")
Range("数据").Select
numrow = Selection.Rows.Count '数据区的行数
numcol = Selection.Columns.Count '数据区的列数
x = numperrow * numcol
Range("a1").Select
For i = 1 To numrow '以数据的每一行为单位进行剪切
Range("数据").Rows(i).Cut
ActiveSheet.Paste
Selection.Offset(, numcol).Select
If (i Mod numperrow) Then '判断是否要换行
Else: Selection.Offset(1, -x).Select
End If
Next i
End Sub
'本程序需要把要变换的数据命名为"数据"(数据区的列数可以任意,不一定是5)方法:选中该区域,在名称框内输入"数据"即可,然后按程序要求输入每行要填的数据行的数目(如本例中的12)
