excel如何一列的奇偶行分成两列

Question

我想的意思很简单，比如前面的这一列，我想把他变成后面的两列，也就是按行数的奇偶数分成两列，
有没有什么好方法？谢谢

Answer 1

1、创建excel，插入样例数据，如：教育、广告、培训、公益、文化、体育、商业、IT、购物、足球、篮球等。

2、编辑函数，=OFFSET($C$1,ROW()*2-2,)，将第一行（奇数）插入该列，

3、复制该函数，填充整列，所有奇数行均填充该列，

4、同样编写函数，=OFFSET($C$1,ROW()*2-1,)，并填充整列，则将所有偶数行填充该列，

Answer 2

工具/材料：Microsoft Office Excel2016版，Excel表格。 

1、首先选中Excel表格，双击打开。 

2、然后在该界面中，选中一列的奇行。

3、再者在该界面中，右键点击“剪切”选项。

4、其次在该界面中，选中要显示一列奇行内容的单元格，右键点击“粘贴”选项。 

5、然后在该界面中，显示一列的奇行单独一列。

6、继续在该界面中，选中一列的偶行。

7、然后在该界面中，右键点击“剪切”选项。 

8、之后在该界面中，选中要显示一列奇行内容的单元格，右键点击“粘贴”选项。 

9、最后在该界面中，显示一列的奇偶行分成两列。

本回答被网友采纳

Answer 3

如图：

奇数列公式：C1=OFFSET($A$1,ROW()*2-2,)，偶数列公式：D1=OFFSET($A$1,ROW()*2-1,)

一起下拉即可。

这里是使用了OFFSET函数，用INDEX，或者INDIRECT函数都可以达到同样的效果。

奇数列：=INDEX(A:A,ROW()*2-1)，偶数列：=INDEX(A:A,ROW()*2)

奇数列：=INDIRECT("A"&ROW()*2-1)，偶数列：=INDIRECT("A"&ROW()*2)

三套公式都可以达到想要的效果。

Answer 4

在B1单元格输入以下公式，然后向右向下填充公式

=OFFSET($A$1,(ROW(A1)-1)*2+MOD(COLUMN(A1)-1,2),)

 

详见附图

追问

谢谢，这个答案比较简单，搞定了可以说明下嘛？

追答

以A1单元格为基准单元格，每向下偏移一行，在A列向下偏移两行；每向右偏移一列，向下偏移一行。

公式可以简化为=OFFSET($A$1,(ROW(A1)-1)*2+COLUMN(A1)-1,)

 

本回答被网友采纳

Answer 5

'VBA方法

Sub TST()
Dim i, j
j = 1
For i = 1 To Cells(10000, 1).End(xlUp).Row
If Application.WorksheetFunction.IsOdd(Cells(i, 1).ROW) = True Then
Cells(j, 2) = Cells(i, 1)
Else
Cells(j, 3) = Cells(i, 1)
j = j + 1
End If
Next
End Sub