excel如何一列的奇偶行分成两列
发布网友
发布时间：2022-04-26 02:31
共5个回答
热心网友
时间：2022-05-17 09:21
1、创建excel，插入样例数据，如：教育、广告、培训、公益、文化、体育、商业、IT、购物、足球、篮球等。
2、编辑函数，=OFFSET($C$1,ROW()*2-2,)，将第一行（奇数）插入该列，
3、复制该函数，填充整列，所有奇数行均填充该列，
4、同样编写函数，=OFFSET($C$1,ROW()*2-1,)，并填充整列，则将所有偶数行填充该列，
热心网友
时间：2022-05-17 09:21
工具/材料：Microsoft Office Excel2016版，Excel表格。
1、首先选中Excel表格，双击打开。
2、然后在该界面中，选中一列的奇行。
3、再者在该界面中，右键点击“剪切”选项。
4、其次在该界面中，选中要显示一列奇行内容的单元格，右键点击“粘贴”选项。
5、然后在该界面中，显示一列的奇行单独一列。
6、继续在该界面中，选中一列的偶行。
7、然后在该界面中，右键点击“剪切”选项。
8、之后在该界面中，选中要显示一列奇行内容的单元格，右键点击“粘贴”选项。
9、最后在该界面中，显示一列的奇偶行分成两列。
热心网友
时间：2022-05-17 09:22
如图：
奇数列公式：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)
三套公式都可以达到想要的效果。
热心网友
时间：2022-05-17 09:22
在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,)
热心网友
时间：2022-05-17 09:23
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
