KutoolsforOffice — 一套方案，五大工具。事半功倍。

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

作者Xiaoyang修改日期
将长列表拆分为相等的组

在 Excel 中处理大型数据集时，您可能会遇到需要将长列表拆分为多个相等组的情况。例如，分发调查问卷回复、创建均衡的任务分配，或为项目组建团队。手动拆分这类列表不仅耗时，还容易出错，尤其在数据量庞大时更为明显。高效地将列表拆分为相等组，有助于简化工作流程、提升数据组织效率，并显著降低出错概率。

Excel 提供了多种实用方法来实现这一目标——无论是通过 VBA 自动化、便捷的插件（如 Kutools for Excel），还是基于公式的巧妙技巧。每种方法都各具优势，可灵活适配不同技能水平和应用场景。

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

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

使用 Excel 公式将长列表拆分为多个相等组

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

除了繁琐的逐个复制粘贴数据外，VBA 能助您快速、精准地自动化完成此任务。以下是使用 VBA 将列表拆分为相等组的分步指南：

1. 按住 ALT + F11 键，即可打开 Microsoft Visual Basic for Applications 编辑器窗口。

2. 单击插入> 模块，然后将以下 VBA 代码粘贴到新创建的模块窗口中。

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 或单击运行按钮以执行代码。在弹出的输入框中，选择您要拆分为组的数据列。
用于选择数据区域的 VBA 代码

4. 单击确定，然后在下一个提示中选择您希望放置分组结果的起始单元格。
用于选择放置结果的单元格的 VBA 代码

5. 单击确定，并在提示对话框中输入每组（每列）所需的项目数量。
用于输入每列要拆分的单元格数量的 VBA 代码

6. 最后，单击确定完成操作。代码将自动把您选定的列表拆分为多列，每列包含指定数量的项目。注意：若列表无法被精确均分，最后一组可能包含较少项目。
所选列表数据已拆分为多个相等的组

VBA 解决方案专为熟悉宏操作、希望实现重复任务自动化的用户而设计。其核心优势在于灵活性——无需额外配置，即可轻松以不同组大小运行脚本。不过，由于涉及代码编写，在部分专业环境中可能受限；不熟悉 VBA 的用户请务必在运行宏前保存工作内容。

如果宏未按预期运行，请先确认 Excel 中已启用宏。同时，请确保所选区域为单个连续列；否则，代码将提示您重新选择数据区域。若列表长度无法被组大小整除，最后一组所含项目将较少，规划分发时请留意这一点。

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

如果您已安装 Kutools for Excel，只需几次点击其转换区域功能，即可快速将长列表重新排列为跨行和列的多个组。此方法可减少手动操作错误，显著提升数据组织效率。Kutools for Excel 为非技术用户带来专业级的易用体验，配备直观的对话框与可靠的结果输出。

Kutools for Excel 提供 300 多项高级功能，简化复杂任务，提升创造力与效率。集成 AI 能力，Kutools 精准自动化任务，让数据管理变得轻松自如。Kutools for Excel 的详细信息……         免费试用……

安装 Kutools for Excel 后，请执行以下操作：

1. 选择您要拆分的长列表，然后转到 Kutools > 区域 > 转换区域。
点击 Kutools 的“转换区域”功能

2. 在转换区域对话框中，选择转换类型下的单列转区域，勾选固定值，并输入每行所需的项目数量（例如，若希望分为四组，请相应指定组大小），即可决定原始列表的拆分方式。
在对话框中指定选项

3. 单击确定，然后在工作表中选择一个单元格作为分组结果的起始位置。
选择一个要放置结果的单元格

4. 再次单击确定，Kutools 将立即根据您的设置，将长列表拆分为大小相等的组。

Kutools for Excel 简单直观，能有效减少手动操作错误，特别适合偏好图形界面且频繁进行数据转换的用户。

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

使用 Excel 公式将长列表拆分为多个相等组

如果您不想使用 VBA 或插件，Excel 内置公式也能高效地将列表拆分为相等组。此方法特别适合需要可移植、兼容所有 Excel 版本且在共享工作簿或限制宏与第三方插件的环境中安全使用的用户。当各组需并排排列成列时，此方法效果最佳。

以下是为每个条目分配组号的方法，以便您无需编码即可轻松按组筛选或重组列表：

1. 假设您的长列表位于 A 列，从 A2 单元格开始向下延伸。请在 B2 单元格（即第一个列表项旁）输入以下公式，为数据分配组号：

=MOD(ROW(A2)-ROW($A$2),4) +1

在此示例中，“4”表示您希望的组数。如需拆分为不同数量的组，请调整此值。该公式将在 1 到 4 之间循环分配组号。

2. 将公式沿整个列表向下拖动，即可为所有行分配组号，生成一个标注每行所属组别的辅助列。

3. 要提取或显示各组：

  • 您可以使用筛选功能：对列表应用自动筛选，然后按组号筛选，即可快速分离记录。
  • 您可以将每组复制粘贴到不同位置，也可以使用高级公式或数据透视表按需重新排列项目。

如果您使用支持动态数组的 Excel（Microsoft 365 和 Excel 2021+），可使用 WRAPROWS 函数自动将列表拆分为等宽的多列。假设您的列表位于 A2:A17，并希望将其拆分为 4 列（组）：

=WRAPROWS(SORTBY(A2:A13, RANDARRAY(ROWS(A2:A13))), 4)

在您希望新建类别排列开始的单元格中输入此公式并按 Enter。该函数会将列表平均分配到各列中。

注意事项：
  • 如果您的列表无法被完美均分，某些列可能会显示 #N/A 错误。请根据实际需求，调整组数（此处为“4”）。
  • 如果所选区域中包含空白单元格，它们在分组结果中将被视为零值。

公式法的优势包括完全兼容共享工作簿，以及在数据变更时能快速重新计算组号。然而，输入或调整公式需要格外仔细——范围不匹配或组数错误可能导致条目缺失或重复。如发现错误，请确认列表范围正确，并确保公式已拖动至整个列表。

小提示：在原始数据上应用公式前务必备份；完成分组后，若计划删除辅助列，请使用选择性粘贴 > 数值。

最佳办公效率工具

🤖KUTOOLS AI 助手：基于以下内容革新数据分析：智能执行   |  生成代码|  创建自定义公式  |  数据分析及生成图表|  调用 Kutools Functions……
热门功能：查找、高亮或标记重复项   |  删除空白行   |  合并列或单元格且不丢失数据   |  不使用公式的四舍五入……
高级 LOOKUP：多条件 VLookup  |  多值 VLookup  |   跨多工作表 VLookup   |   模糊查找……
高级下拉列表：快速创建下拉列表   |  级联下拉列表   |  多选下拉列表……
列管理器：添加指定数量的列|移动列|切换隐藏列的可见性状态|比较区域与列……
特色功能：网格聚焦   |  设计视图   |增强编辑栏   | 工作簿和表管理器   |  资源库（自动文本）|  日期提取   |  汇总工作表  |  加密/解密单元格   | 按列表发送邮件   |  超级筛选   |   特殊筛选（筛选粗体单元格/斜体/删除线……） ......
精选 15 工具集：12 文本工具（添加文本，删除特定字符，……）|   50+ 图表 类型（甘特图，……）|   40+ 实用公式（基于生日计算年龄，……）|   19 插入工具（插入二维码，从路径插入图片，……）|   12 转换工具（小写金额转大写，汇率转换，……）|   7 合并和拆分工具（高级合并行，分割单元格，……）|……更多
在您的首选语言中使用 Kutools – 支持英语、西班牙语、德语、法语、中文及 40+ 种其他语言！

使用 Kutools for Excel 大幅提升您的 Excel 技能，体验前所未有的高效。Kutools for Excel 提供 300 多项高级功能，助您提升生产力、节省时间。立即点击此处，获取您最需要的功能……

Office Tab 为 Office 带来标签式界面，让您的工作更轻松

  • 在 Word、Excel、PowerPoint、Publisher、Access、Visio 和 Project 中启用标签式编辑和阅读。
  • 在同一个窗口的新标签页中打开并创建多个文档，而非在新窗口中。
  • 将您的工作效率提升 50%，每天减少数百次鼠标点击！

所有 Kutools 插件，一个安装程序

Kutools for Office 套件捆绑了适用于 Excel、Word、Outlook 和 PowerPoint 的插件以及 Office Tab Pro，非常适合需要跨多个 Office 应用高效协作的团队。

ExcelWordOutlookTabsPowerPoint
  • 一体化套件— Excel、Word、Outlook 和 PowerPoint 插件 + Office Tab Pro
  • 一个安装程序，一个许可证— 几分钟内完成设置（支持 MSI）
  • 协同效果更佳— 在多个 Office 应用中实现高效协同
  • 30 天全功能试用— 无需注册，无需信用卡
  • 超值之选— 比单独购买插件更省钱