《Excel 问题集合》
7
行 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)
如何给自动筛选中的自定义指定快捷键
解答：Sub 自动筛选()
On Error GoTo xx
Selection.AutoFilter = True
xx:
End Sub
剩余77页未读，继续阅读
