如何在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。 按住 ALT + F11 键，然后打开 Microsoft Visual Basic应用程序 窗口。

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。 并点击 OK，弹出另一个提示框，让您选择要放入结果的单元格，请参见屏幕截图：

5。 然后点击 OK，并且该列已被每隔一行分成两列。 看截图：

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

如果您想了解更多新事物，我可以推荐一个功能强大的工具-Kutools for Excel，其 变换范围 实用程序，您可以快速将单个行或列转换为一系列单元格，反之亦然。

安装后 Kutools for Excel，请执行以下操作： 立即免费下载Kutools for Excel )

1。 选择要每隔一行分成两列的列数据。

2。 然后点击 库工具 > 范围 > 变换范围，请参见屏幕截图：

3。 在 变换范围 对话框中选择 单列到范围 在下面 转换类型，然后选择 固定值 并进入 2 放入盒子里 每条记录行 部分，请参见屏幕截图：

4。 然后点击 Ok 按钮，将弹出一个提示框，提醒您选择要输出结果的单元格，请参见屏幕截图：

5。 点击 OK，列表数据每隔一行被分为两列。

单击以了解有关此“变换范围”实用程序的更多信息。

立即免费下载Kutools for Excel