如何在Excel中将一个大表格拆分为多个小表格？

如果你有一个包含多列和数百或数千行的大Excel表格，你可能希望将其拆分为更小、更易管理的表格。例如，你可能需要根据特定列的值来分离数据，或者将其按固定行数进行分割。本教程提供了逐步的方法，帮助你高效完成此任务。

主表		按列值将表格拆分为多个表格	按行数将表格拆分为多个表格

使用VBA代码根据列值将大表格拆分为多个表格

使用VBA代码根据指定行数将大表格拆分为多个表格

使用Kutools for Excel根据列值或行数将大表格拆分为多个表格

使用VBA代码根据列值将大表格拆分为多个表格

要根据特定列值将这个大表格拆分为多个表格，以下VBA代码可以帮到你。请按照以下步骤操作：

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

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

VBA代码：通过关键列将大表格拆分为多个表格：

Sub Splitdatabycol()
'by Extendoffice
Dim lr As Long
Dim ws As Worksheet
Dim vcol, i As Integer
Dim icol As Long
Dim myarr As Variant
Dim title As String
Dim titlerow As Integer
Dim xTRg As Range
Dim xVRg As Range
Dim xWSTRg As Worksheet
On Error Resume Next
Set xTRg = Application.InputBox("Please select the header rows:", "Kutools for Excel", "", Type:=8)
If TypeName(xTRg) = "Nothing" Then Exit Sub
Set xVRg = Application.InputBox("Please select the column you want to split data based on:", "Kutools for Excel", "", Type:=8)
If TypeName(xVRg) = "Nothing" Then Exit Sub
vcol = xVRg.Column
Set ws = xTRg.Worksheet
lr = ws.Cells(ws.Rows.Count, vcol).End(xlUp).Row
title = xTRg.AddressLocal
titlerow = xTRg.Cells(1).Row
icol = ws.Columns.Count
ws.Cells(1, icol) = "Unique"
Application.DisplayAlerts = False
If Not Evaluate("=ISREF('xTRgWs_Sheet!A1')") Then
Sheets.Add(after:=Worksheets(Worksheets.Count)).Name = "xTRgWs_Sheet"
Else
Sheets("xTRgWs_Sheet").Delete
Sheets.Add(after:=Worksheets(Worksheets.Count)).Name = "xTRgWs_Sheet"
End If
Set xWSTRg = Sheets("xTRgWs_Sheet")
xTRg.Copy
xWSTRg.Paste Destination:=xWSTRg.Range("A1")
ws.Activate
For i = (titlerow + xTRg.Rows.Count) To lr
On Error Resume Next
If ws.Cells(i, vcol) <> "" And Application.WorksheetFunction.Match(ws.Cells(i, vcol), ws.Columns(icol), 0) = 0 Then
ws.Cells(ws.Rows.Count, icol).End(xlUp).Offset(1) = ws.Cells(i, vcol)
End If
Next
myarr = Application.WorksheetFunction.Transpose(ws.Columns(icol).SpecialCells(xlCellTypeConstants))
ws.Columns(icol).Clear
For i = 2 To UBound(myarr)
ws.Range(title).AutoFilter field:=vcol, Criteria1:=myarr(i) & ""
If Not Evaluate("=ISREF('" & myarr(i) & "'!A1)") Then
Sheets.Add(after:=Worksheets(Worksheets.Count)).Name = myarr(i) & ""
Else
Sheets(myarr(i) & "").Move after:=Worksheets(Worksheets.Count)
End If
xWSTRg.Range(title).Copy
Sheets(myarr(i) & "").Paste Destination:=Sheets(myarr(i) & "").Range("A1")
ws.Range("A" & (titlerow + xTRg.Rows.Count) & ":A" & lr).EntireRow.Copy Sheets(myarr(i) & "").Range("A" & (titlerow + xTRg.Rows.Count))
Sheets(myarr(i) & "").Columns.AutoFit
Next
xWSTRg.Delete
ws.AutoFilterMode = False
ws.Activate
Application.DisplayAlerts = True
End Sub

3. 粘贴完代码后，按“F5”键运行此代码，会弹出一个提示框，请从你的数据中选择标题行，见截图：

4. 然后点击“确定”，又会弹出一个对话框，请选择你想要基于其拆分表格的列数据，见截图：

5. 点击“确定”。现在，大表格已经根据列值被拆分到多个工作表中，新工作表位于主工作表之后，并且新工作表以列值命名。见截图：

使用VBA代码根据指定行数将大表格拆分为多个表格

如果需要根据行数拆分表格，以下VBA代码可以帮助你。

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

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

VBA代码：按行数将大表格拆分为多个表格：

Sub Splitdatabyrows()
'Updated by Extendoffice 
Dim WorkRng As Range
Dim xRow As Range
Dim SplitRow As Integer
Dim xWs As Worksheet
Dim xTRg As Range
Dim xNTRg As Range
Dim xIER
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set xTRg = Application.InputBox("Please select the header row:", xTitleId, "", Type:=8)
If TypeName(xTRg) = "Nothing" Then Exit Sub
Set WorkRng = Application.InputBox("Please select the data range(exclude the header row):", xTitleId, WorkRng.Address, Type:=8)
If TypeName(WorkRng) = "Nothing" Then Exit Sub
SplitRow = Application.InputBox("Split Row Num", xTitleId, Type:=1)
If SplitRow = 0 Then Exit Sub
Set xWs = WorkRng.Parent
Set xRow = WorkRng.Rows(1)
xIER = WorkRng.Rows.Count
xIER = WorkRng.Row + xIER - 1
Application.ScreenUpdating = False
For i = 1 To WorkRng.Rows.Count Step SplitRow
    resizeCount = SplitRow
    If (xIER - xRow.Row + 1) < SplitRow Then
        resizeCount = (xIER - xRow.Row + 1)
    End If
    xRow.Resize(resizeCount).Copy
    Set xWs = Application.Worksheets.Add(after:=Application.Worksheets(Application.Worksheets.Count))
    If xIER > (xRow.Row + SplitRow - 1) Then
        xWs.Name = xRow.Row & " - " & (xRow.Row + SplitRow - 1)
    ElseIf xIER = xRow.Row Then
        xWs.Name = xRow.Row
    Else
        xWs.Name = xRow.Row & " - " & xIER
    End If
    Application.ActiveSheet.Range("A1").PasteSpecial
    Set xNTRg = Application.ActiveSheet.Range("A1")
    xTRg.Copy
    xNTRg.Insert
    Set xRow = xRow.Offset(SplitRow)
Next
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

3. 然后按“F5”键，在弹出的对话框中选择标题行，见截图：

4. 然后点击“确定”，在第二个提示框中，选择你想要按行数拆分的数据区域，见截图：

5. 接着继续点击“确定”按钮，在第三个提示框中输入你想要按行数拆分的行数，见截图：

6. 然后点击“确定”按钮，主表格已经被按行数拆分为多个工作表，如下图所示：

使用Kutools for Excel根据列值或行数将大表格拆分为多个表格

上述代码对大多数用户来说可能比较困难，这里我将介绍一个强大的功能——“Kutools for Excel”的“分割数据”功能。借助这个工具，你可以快速轻松地通过关键列或行数将大表格拆分为多个表格。

1. 选择你想要拆分的数据区域，然后点击“Kutools Plus” > “分割数据”，见截图：

2. 在“将数据分割到多个工作表”对话框中，根据需求指定设置：

(1.) 根据需要从“分割依据”部分选择“指定列”或“固定行”；

(2.) 从“规则”下拉列表中指定新工作表名称，还可以为工作表名称添加“前缀”或“后缀”。

3. 然后点击“确定”按钮，现在，大表格已经被拆分为多个小表格并存放在一个新的工作簿中。见截图：

按列值将表格拆分为多个表格	按行数将表格拆分为多个表格

更多相关文章：