如何在Excel中将一个长列表拆分为相等的组？

如果你有一个需要拆分为多个相等组的长数据列表，如下图所示，你该如何快速轻松地在Excel中完成此任务呢？

使用VBA代码将长列表拆分为多个相等的组

使用Kutools for Excel将长列表拆分为多个相等的组

使用VBA代码将长列表拆分为多个相等的组

除了逐一手动复制和粘贴数据外，以下VBA代码也可以帮到你，请按照以下步骤操作：

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

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

VBA代码：将长列表拆分为多个相等的组

Sub SplitIntoCellsPerColumn()
'updateby Extendoffice
    Dim xRg As Range
    Dim xOutRg As Range
    Dim xCell As Range
    Dim xTxt As String
    Dim xOutArr As Variant
    Dim I As Long, K As Long
    On Error Resume Next
    xTxt = ActiveWindow.RangeSelection.Address
Sel:
    Set xRg = Nothing
    Set xRg = Application.InputBox("please select data range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    If xRg.Areas.Count > 1 Then
        MsgBox "does not support multiple selections, please select again", vbInformation, "Kutools for Excel"
        GoTo Sel
    End If
    If xRg.Columns.Count > 1 Then
        MsgBox "does not support multiple columns,please select again", vbInformation, "Kutools for Excel"
        GoTo Sel
    End If
    Set xOutRg = Application.InputBox("please select a cell to put the result:", "Kutools for Excel", , , , , , 8)
    If xOutRg Is Nothing Then Exit Sub
    I = Application.InputBox("the number of cell per column:", "Kutools for Excel", , , , , , 1)
    If I < 1 Then
        MsgBox "incorrect enter", vbInformation, "Kutools for Excel"
        Exit Sub
    End If
    ReDim xOutArr(1 To I, 1 To Int(xRg.Rows.Count / I) + 1)
    For K = 0 To xRg.Rows.Count - 1
      xOutArr(1 + (K Mod I), 1 + Int(K / I)) = xRg.Cells(K + 1)
    Next
    xOutRg.Range("A1").Resize(I, UBound(xOutArr, 2)) = xOutArr
End Sub

3. 然后按F5键运行此代码，在弹出的对话框中，请选择要拆分为多组的列，参见截图：

4. 点击确定按钮，然后在接下来的提示框中选择要放置结果的单元格，参见截图：

5. 点击确定，并在提示框中输入每列要拆分的单元格数量，参见截图：

6. 最后，点击确定完成代码，所选列表数据已按需拆分为多个相等的组，参见截图：

使用Kutools for Excel将长列表拆分为多个相等的组

如果你已经安装了Kutools for Excel，通过其转换区域功能，你可以快速将长列表拆分为多列和多行，此外，你还可以将多列合并为一个长列表。

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

1. 选择要拆分的长列表，然后点击 Kutools > 区域 > 转换区域，参见截图：

2. 在转换区域对话框中，选择转换类型下的单列转区域，然后勾选固定值并在框中指定每行的单元格数量，参见截图：

3. 然后点击确定，并在提示框中选择要放置结果的单元格，参见截图：

4. 点击 确定按钮，列表中的数据已按需拆分为多个相等的组。

立即下载并免费试用Kutools for Excel！