如何在Excel中为每一行创建新工作表？
假设您在 A 列中有一个包含所有学生姓名的分数表。现在您要根据 A 列中的这些姓名创建新工作表，并使每张工作表包含唯一的学生数据。 或者只为表中的每一行创建新工作表，而不考虑 A 列中的名称。在本视频中，您将获得实现它的方法。
使用VBA代码为每一行创建新的工作表
使用 Split Data 实用程序为每一行创建新工作表 Kutools for Excel
使用VBA代码为每一行创建新的工作表
使用以下代码，您可以基于列值创建新的工作表，或者只为Excel中的每一行创建新的工作表。
1。 按 其他 + F11 同时打开 Microsoft Visual Basic应用程序 窗口。
2.在 Microsoft Visual Basic应用程序 窗口中，单击 插页 > 模块。 然后将以下代码粘贴到 模块 窗口。
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是表的标题范围。 您可以根据需要进行更改。
3。 按 F5 键来运行代码，然后在当前工作簿的所有工作表之后创建新的工作表，如下图所示：
如果要直接为每行创建新的工作表而不考虑列值，则可以使用以下代码。
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
运行代码后，活动工作表中的每一行都将放置在新工作表中。
备注：标题行也将与此VBA代码一起放在新工作表中。
使用 Split Data 实用程序为每一行创建新工作表 Kutools for Excel
实际上，上述方法是复杂且难以理解的。 在本节中，我们向您介绍 拆分数据 实用程序 Kutools for Excel.
申请前 Kutools for Excel请 首先下载并安装.
1.选择您需要用于创建新表的表，然后单击 Kutools 加> 吐出数据。 看截图：
2.在 将数据拆分为多个工作表 对话框，请执行以下操作。
A.基于列值创建新表：
1）。 请选择 特定栏 选项，然后在下拉列表中指定要用于拆分数据的列；
2）。 如果要使用列值命名工作表，请选择 列的值 ，在 规则 下拉列表;
3）。 点击 OK 按钮。 看截图：
B.为每行直接创建新的工作表：
1）。 选择 固定行 选项，输入数字 1 放进盒子里
2）。 选择 行号 来自 规则 下拉列表;
3）。 点击 OK 按钮。 看截图：
将创建一个新工作簿，其中包含所有新工作表。 请参见下面的屏幕截图。
根据列值为每一行创建新的工作表：
在不考虑列值的情况下为每一行创建新的工作表：
如果您想免费试用（30-day) 这个实用程序， 请点击下载，然后按照上述步骤进行操作。
使用 Split Data 实用程序为每一行创建新工作表 Kutools for Excel
最佳办公生产力工具
将小时转化为分钟 Kutools for Excel!
准备好增强您的 Excel 任务了吗？ 利用的力量 Kutools for Excel - 您终极的节省时间的工具。 简化复杂的任务并像专业人士一样浏览数据。 以闪电般的速度体验 Excel！
为什么需要 Kutools for Excel
🛠️ 超过 300 项强大功能: Kutools 包含 300 多项高级功能，可简化您在 1500 多种场景中的工作。
📈 卓越的数据处理能力：合并单元格、删除重复项并执行高级数据转换 - 所有这些都不费吹灰之力！
⏱️ 高效的批量操作：当你可以聪明地工作时，为什么还要付出额外的努力呢？ 轻松批量导入、导出、组合和调整数据。
📊 可定制的图表和报告：访问各种附加图表并生成富有洞察力的报告。
🗄️ 强大的导航窗格：通过强大的列管理器、工作表管理器和自定义收藏夹获得优势。
📝 七种类型的下拉列表：通过各种功能和类型的下拉列表使数据输入变得轻而易举。
🎓 用户友好：对于初学者来说轻而易举，对于专家来说是一个强大的工具。
***
***
*** ***
Office Tab 为 Office 带来选项卡式界面，让您的工作更轻松
在Word，Excel，PowerPoint中启用选项卡式编辑和阅读，发布者，Access，Visio和Project。
在同一窗口的新选项卡中而不是在新窗口中打开并创建多个文档。
每天将您的工作效率提高50％，并减少数百次鼠标单击！
