如何在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. 然後，點擊「確定」按鈕，現在，大表格已經在新工作簿中被分割成多個小表格。參見截圖：

按列值將表格分割成多個表格	按行數將表格分割成多個表格

更多相關文章：