|
发表于 2014-8-11 09:19
|
显示全部楼层
本楼为最佳答案
考虑了你的行数及列数:- Sub suaa()
- i = cells(Rows.Count, 2).End(3).Row
- j = cells(1, Columns.Count).End(1).Column
- Set Rng = Range("B1", cells(i, j))
- With Sheets("结果")
- .cells.Delete
- n = 1
- For i = 2 To j - 1
- Range(Rng(1, 1), Rng(Rng.Rows.Count, 1)).Copy .cells(1, n)
- Range(Rng(1, i), Rng(Rng.Rows.Count, i)).Copy .cells(1, n + 1)
- .Range(.cells(2, n), .cells(14, n + 1)).Sort .cells(2, n + 1), 2
- n = n + 6
- Next
- .Rows("10:100").Delete
- .Select
- End With
- End Sub
复制代码 |
|