excel如何一行五列如何变成一行十列

Question

我这有10000行，每行有5列，我想变成5000行，每行10列，如何自动实现呢？？
而且不能窜行，依次向上换行

Answer 1

插入序号列
输入1，2，1，2，1，2....到第10000行
按此列排序
将序号为2的5000X5单元格剪切，粘贴在前边表格的右边
删除序号列本回答被提问者采纳

Answer 2

用如下VBA程序，并不受10000行的限制
Sub 缩行()
Dim i As Long
For i = Range("A65536").End(xlUp).Row To 2 Step -2
Range("A" & i & ":E" & i).Select
Application.CutCopyMode = False
Selection.Cut
Range("F" & i - 1).Select
ActiveSheet.Paste
Next i
Columns("A:A").Select
Selection.SpecialCells(xlCellTypeBlanks).Select
Selection.EntireRow.Delete
Range("A1").Select
End Sub本回答被网友采纳

Answer 3

按Ctrl分别选中这五列，右击任一选中单元格，插入。

Answer 4

1、函数公式解决：
（1）设你的数据在A~E列，则可以在F1输入
=OFFSET($A$1,ROW(A2)*2-4,COLUMN(A1)-1)
公式向右填充至J1
在K1输入
=OFFSET($A$1,ROW(A2)*2-3,COLUMN(A1)-1)
公式向右填充至O1
将F1至O1的公式向下填充5000行。
（2）复制表格，原处选择性粘贴（勾选数值）。
（3）删除原来的A~E列
2、操作解决：
（1）在F1~F4分别输入1、2、1、2
在E1~E4分别输入1、2、3、4
选中F1~E4向下填充10000行（如果E列数据没有空单元格，可以双击右下实心十字填充柄）
（2）以F列为主要关键字，以E列为次要关键字，升序排序。
（3）选择A5001:E5001，剪切，粘贴到F1（F1：J5000）
（4）删除不别要的序号
3、VBA解决。

公式例子
A1 B1 C1 D1 E1 A1 B1 C1 D1 E1 A2 B2 C2 D2 E2
A2 B2 C2 D2 E2 A3 B3 C3 D3 E3 A4 B4 C4 D4 E4
A3 B3 C3 D3 E3 A5 B5 C5 D5 E5 A6 B6 C6 D6 E6
A4 B4 C4 D4 E4 A7 B7 C7 D7 E7 A8 B8 C8 D8 E8
A5 B5 C5 D5 E5 A9 B9 C9 D9 E9 A10 B10 C10 D10 E10
A6 B6 C6 D6 E6 A11 B11 C11 D11 E11 A12 B12 C12 D12 E12
A7 B7 C7 D7 E7 A13 B13 C13 D13 E13 A14 B14 C14 D14 E14
A8 B8 C8 D8 E8 A15 B15 C15 D15 E15 A16 B16 C16 D16 E16
A9 B9 C9 D9 E9 A17 B17 C17 D17 E17 A18 B18 C18 D18 E18
A10 B10 C10 D10 E10 A19 B19 C19 D19 E19 A20 B20 C20 D20 E20
A11 B11 C11 D11 E11 0 0 0 0 0 0 0 0 0 0
A12 B12 C12 D12 E12
A13 B13 C13 D13 E13
A14 B14 C14 D14 E14
A15 B15 C15 D15 E15
A16 B16 C16 D16 E16
A17 B17 C17 D17 E17
A18 B18 C18 D18 E18
A19 B19 C19 D19 E19
A20 B20 C20 D20 E20