按行數將數據分割到多個工作表中

根據特定的行數將大型資料範圍有效地劃分到多個Excel工作表中，可以簡化資料管理。例如，每5行分割一次數據集到多個工作表中，可以使它更易於管理和組織。本指南提供了兩種實用的方法來快速輕鬆地完成此任務。

使用VBA代碼按行數將數據分割到多個工作表中

使用Kutools for Excel按行數將數據分割到多個工作表中

使用VBA代碼按行數將數據分割到多個工作表中

以下VBA代碼可以幫助您按行數將數據分割到多個工作表中，請按照以下步驟操作：

1. 按住ALT + F11鍵打開Microsoft Visual Basic for Applications窗口。

2. 點擊 插入 > 模組，然後在模組窗口中粘貼以下代碼。

VBA：按行數在Excel中將數據分割到工作表中

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按行數將數據分割到多個工作表中

如果您認為VBA代碼複雜，Kutools for Excel提供了一個快速且直觀的解決方案來有效處理數據分割問題。這個分割數據功能簡化了操作過程，讓任何技能水平的用戶都能輕鬆將大型數據集分割到多個工作表中，而無需深入的編程知識，促進有效的數據管理。

如果您已安裝Kutools for Excel，請按照以下步驟操作：

1. 選擇要分割的數據範圍。然後，點擊Kutools Plus > 分割數據，參見截圖：

3. 在分割數據到多個工作表對話框中：

• 從分割依據選項中選擇固定值，並輸入每個工作表要分割的行數。
• 如果您的數據包含標題並且希望將其插入到每個新的分割工作表中，請勾選數據包含標題選項。（提示：您可以根據數據輸入標題行的數量。）
• 然後您可以指定分割工作表名稱，在新工作表名稱部分下，從規則下拉列表中選擇工作表名稱規則，您還可以為工作表名稱添加 前綴或後綴。

4. 指定設置後，點擊確定，所選數據已經按每5行分割到一個新工作簿中的多個工作表中。並且為每個新工作表插入了標題。參見截圖：

相關文章：