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

如何在 Excel 中为每一行数据创建单独的工作表？

作者Siluvia修改日期

在数据管理或报表任务中，您可能需要将表格中的每条记录分别放入独立的工作表中。例如，若您在 Excel 中维护一份学生信息列表，每行代表一名学生的详细信息，或许希望为每位学生单独生成一个仅包含其个人数据的工作表；又或者，您只是想将每一行（无论内容如何）拆分到各自独立的新工作表中。手动创建新工作表并逐一复制数据不仅耗时，还容易出错，尤其在处理大型数据集时更是如此。通过自动化这一流程，可显著节省时间并有效降低错误风险。本指南将为您介绍两种在 Excel 中为每一行创建新工作表的实用方法，并分析各自的优缺点，助您根据实际需求选择最适合的方案。

使用 VBA 代码为每一行创建新工作表
使用分割数据的 Kutools for Excel 工具为每一行创建新工作表

使用 VBA 代码为每一行创建新工作表

使用 VBA（Visual Basic for Applications）是自动化 Excel 中繁琐重复任务的高效方式。借助 VBA，您可以快速为数据中的每一行创建新工作表——既可按某一列（如学生姓名）对行进行分组，也可无视内容为每一行单独生成一个工作表。此方法非常适合熟悉 VBA 编辑器并希望高度自定义解决方案的用户。不过，由于该方法需要编辑和运行代码，可能不太适合没有 VBA 经验，或所在环境不允许运行宏的用户。

1. 按下 “Alt” + “F11”，即可打开 Microsoft Visual Basic for Applications 窗口，轻松访问用于自动化 Excel 操作的 VBA 代码。

2. 在 Microsoft Visual Basic for Applications 窗口中，单击插入> 模块，即可添加新代码模块。随后，将以下代码复制并粘贴到模块窗口中。

VBA 代码：根据列值为每一行创建新工作表

Sub parse_data()
'Update by Extendoffice 2018/3/2
    Dim xRCount As Long
    Dim xSht As Worksheet
    Dim xNSht As Worksheet
    Dim I As Long
    Dim xTRrow As Integer
    Dim xCol As New Collection
    Dim xTitle As String
    Dim xSUpdate As Boolean
    Set xSht = ActiveSheet
    On Error Resume Next
    xRCount = xSht.Cells(xSht.Rows.Count, 1).End(xlUp).Row
    xTitle = "A1:C1"
    xTRrow = xSht.Range(xTitle).Cells(1).Row
    For I = 2 To xRCount
        Call xCol.Add(xSht.Cells(I, 1).Text, xSht.Cells(I, 1).Text)
    Next
    xSUpdate = Application.ScreenUpdating
    Application.ScreenUpdating = False
    For I = 1 To xCol.Count
        Call xSht.Range(xTitle).AutoFilter(1, CStr(xCol.Item(I)))
        Set xNSht = Nothing
        Set xNSht = Worksheets(CStr(xCol.Item(I)))
        If xNSht Is Nothing Then
            Set xNSht = Worksheets.Add(, Sheets(Sheets.Count))
            xNSht.Name = CStr(xCol.Item(I))
        Else
            xNSht.Move , Sheets(Sheets.Count)
        End If
        xSht.Range("A" & xTRrow & ":A" & xRCount).EntireRow.Copy xNSht.Range("A1")
        xNSht.Columns.AutoFit
    Next
    xSht.AutoFilterMode = False
    xSht.Activate
    Application.ScreenUpdating = xSUpdate
End Sub

参数说明与使用提示：

  • A1:C1 是您数据表的标题区域，请根据实际标题区域调整此引用。
  • 该代码会从指定列（默认为 A 列）中提取所有唯一值，并为每个唯一值创建一个独立的工作表，其中包含与之对应的所有行。
  • 如果您的表格更宽或起始行不同，请相应更新 xTitle 和单元格引用。
  • 如果您的工作表包含引用其他工作表的公式，请在拆分后仔细检查这些引用是否仍然有效。

3. 按下 F5 键或单击运行即可执行代码。新工作表将自动创建于当前工作簿中所有现有工作表之后，且每个工作表均以所选列的唯一值命名。请参见下方截图查看示例结果：

显示根据列值从每一行创建的工作表的新工作簿的截图

如果您希望直接将每一行拆分到独立的工作表中（无论列内容如何），可使用以下替代 VBA 代码——此方法无需指定任何列条件。

VBA 代码：直接为每一行创建新工作表

Sub RowToSheet()
	Dim xRow As Long
	Dim I As Long
	With ActiveSheet
		xRow = .Range("A" & Rows.Count).End(xlUp).Row
		For I = 1 To xRow
			Worksheets.Add(, Sheets(Sheets.Count)).Name = "Row " & I
			.Rows(I).Copy Sheets("Row " & I).Range("A1")
		Next I
	End With
End Sub

运行此代码后，活动工作表中的每一行（包括标题行）都会被复制到一个新创建的工作表中。请注意，标题行也会一并复制；如需避免此情况，请在操作完成后手动删除或调整输出工作表中的标题行。

故障排除与实用技巧：
- 若遇到“下标越界”等错误，请确保工作表名称不含无效字符或重复名称。
- 处理大型数据集时，按行拆分可能生成大量工作表，拖慢 Excel 或增加导航难度。面对超大表格，请先评估是否确有必要进行拆分。
- 运行 VBA 代码前，务必备份数据，以防意外丢失！

优点：免费；高度可自定义。
缺点：需启用 VBA/宏，并具备一定的 VBA 编辑器使用经验；复杂或异常数据可能导致代码出错。
适用场景：适合需要脚本灵活性的用户，以及一次性或非定期任务。

使用分割数据的 Kutools for Excel 工具为每一行创建新工作表

如果您希望采用简单直观、无需编写代码的方法，强烈推荐使用 Kutools for Excel 的分割数据工具。此功能可帮助您通过几次点击，快速将数据拆分到新工作表中，大幅简化工作表管理流程。Kutools for Excel 特别适合经常处理大型复杂表格或偏好图形界面而非手动编码的用户。请注意，Kutools 是一款 Excel 加载项，需提前安装。

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

1. 选择要拆分为独立工作表的数据表格，然后点击 KUTOOLS PLUS 选项卡中的分割数据。请参考下方截图，快速掌握操作步骤：

Excel 中 Kutools Plus 选项卡下“拆分数据”选项的截图

2. 在分割数据至多个工作表对话框中，根据您的拆分需求选择相应设置即可。

A. 根据列值创建新工作表：

1）。选择指定列选项，然后指定要用作拆分依据的列——通常为唯一标识符，如学生姓名或 ID。
2）。如果希望每个工作表以其在该列中的值命名，请从指定列的值规则下拉菜单中选择相应选项。
3）。单击确定以执行拆分。请参见下方截图：

“将数据拆分到多个工作表”对话框的截图，其中包含按列值拆分的设置

B. 直接为每一行创建新工作表：

1）。选择固定值选项，并在框中输入 1，以指定每个工作表仅包含一行数据。
2）。在规则下拉菜单中，选择设置的行数以根据其行索引为每个工作表命名。
3）。单击确定以开始拆分流程。请参考下方截图：

“将数据拆分到多个工作表”对话框的截图，其中包含按行拆分的设置

执行后，将生成一个全新的工作簿，其中包含所有新工作表，每个工作表均根据您选定的设置填充数据。

根据列值为每一行创建新工作表：

显示根据列值从每一行创建的工作表的新工作簿的截图

忽略列值，直接为每一行创建新工作表：

显示从每一行创建的工作表的新工作簿的截图，未考虑列值

注意事项与实用技巧：
- 使用分割数据工具前，请确保表格中不含空白行，否则可能生成空工作表。
- 请检查工作表命名规则，避免重复或无效名称；若发生冲突，Kutools 将自动调整。
- 若表格非常大，此操作可能生成大量工作表，请提前充分评估后再执行。

优点：无需编码，操作简便，轻松应对批量处理与高频重复任务。
缺点：需预先安装 Kutools 插件。
适用人群：所有级别的 Excel 用户，尤其适合需要频繁进行数据分割的用户。

Kutools for Excel——通过 300 多款必备工具全面增强 Excel 功能，助您工作更快速、更轻松，并借助 AI 功能实现更智能的数据处理与高效办公！立即获取

演示：使用分割数据的 Kutools for Excel 工具为每一行创建新工作表

 
Kutools for Excel：超过 300 款实用工具触手可及！畅享 AI 驱动的功能，让工作更智能、更高效！立即下载！

最佳办公效率工具

🤖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 天全功能试用— 无需注册，无需信用卡
  • 超值之选— 比单独购买插件更省钱