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

2024-10-30 06:42:47

推荐回答（5个）

回答（1）：

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

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

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

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

回答（2）：

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

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

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

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

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

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

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

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

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

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

回答（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)

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

回答（4）：

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

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

详见附图

回答（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