如何在Excel中每隔一行拆分一列？

例如，我有一个很长的数据列表，现在我想将该列按每隔一行的方式平均分成两个列表，如下图所示。在Excel中有没有什么好方法可以处理这个任务呢？

使用公式每隔一行拆分一列

使用VBA代码每隔一行拆分一列

使用Kutools for Excel每隔一行拆分一列

使用公式每隔一行拆分一列

以下公式可能帮助您快速将一列按每隔一行拆分为两列，请按照以下步骤操作：

1. 在空白单元格（例如C2）中输入此公式：=INDEX($A$2:$A$13,ROWS(C$1:C1)*2-1)，请参见截图：

2. 然后向下拖动填充柄，直到单元格中显示错误值，请参见截图：

3. 接着在D2单元格中输入另一个公式：=INDEX($A$2:$A$13,ROWS(D$1:D1)*2)，然后向下拖动填充柄，直到出现错误值为止，此时列中的值已经按每隔一行被拆分为两列，请参见截图：

使用VBA代码每隔一行拆分一列

如果您对VBA代码感兴趣，这里我可以为您介绍一个代码来解决这个问题。

1. 在Excel中按住ALT + F11键，打开Microsoft Visual Basic for Applications窗口。

2. 单击“插入” > “模块”，并将以下代码粘贴到模块窗口中。

VBA代码：每隔一行将一列拆分为两列

Sub SplitEveryOther()
'Updateby Extendoffice
Dim Rng As Range
Dim InputRng As Range, OutRng As Range
Dim index As Integer
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type:=8)
Set OutRng = OutRng.Range("A1")
num1 = 1
num2 = 1
For index = 1 To InputRng.Rows.Count
    If index Mod 2 = 1 Then
        OutRng.Cells(num1, 1).Value = InputRng.Cells(index, 1)
        num1 = num1 + 1
    Else
        OutRng.Cells(num2, 2).Value = InputRng.Cells(index, 1)
        num2 = num2 + 1
    End If
Next
End Sub	

3. 然后按 F5键运行此代码，会弹出一个提示框，提醒您选择要拆分的数据区域，请参见截图：

4. 单击“确定”，另一个提示框会弹出，让您选择一个单元格以放置结果，请参见截图：

5. 然后单击“确定”，该列已按每隔一行被拆分为两列。请参见截图：

使用Kutools for Excel每隔一行拆分一列

如果您想学习更多新功能，我可以推荐一个强大的工具——Kutools for Excel，通过其转换区域功能，您可以快速将单行或单列转换为单元格区域，反之亦然。

安装Kutools for Excel后，请按照以下步骤操作：

1. 选择要按每隔一行拆分为两列的列数据。

2. 然后单击“Kutools” > “区域” > “转换区域”，请参见截图：

3. 在“转换区域”对话框中，选择“转换类型”下的“单列转区域”，然后选择“固定值”并在“每条记录的行数”部分的框中输入2，请参见截图：

4. 然后单击“确定”按钮，会弹出一个提示框，提醒您选择一个单元格以输出结果，请参见截图：

5. 单击“确定”，列表数据已按每隔一行被拆分为两列。

点击此处了解更多关于此转换区域功能的信息。