如何在Excel中按行數將數據拆分為多個工作表？

例如，我有一個範圍的數據列表，現在我想按行數將其拆分為多個工作表，在本示例中，我將每5行拆分一次（請參見以下屏幕截圖）。 有什麼方法可以幫助我們快速解決此問題？ 在這裡，我將向您介紹兩個技巧，以使您輕鬆完成它。

使用VBA代碼按行計數將數據拆分為多個工作表

使用Kutools for Excel按行數將數據拆分為多個工作表

使用VBA代碼按行計數將數據拆分為多個工作表

驚人！ 在Excel中使用高效選項卡，例如Chrome，Firefox和Safari！

每天節省50％的時間，並減少數千次鼠標單擊！

---

以下VBA代碼可以幫助您按行數將行分為多個工作表，請執行以下操作：

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

2。 點擊 插入 > 模塊，然後將以下代碼粘貼到“模塊窗口”中。

VBA：在Excel中按行數將數據拆分為工作表。

Sub SplitData()
'Updateby20140617
Dim WorkRng As Range
Dim xRow As Range
Dim SplitRow As Integer
Dim xWs As Worksheet
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
SplitRow = Application.InputBox("Split Row Num", xTitleId, 5, Type:=1)
Set xWs = WorkRng.Parent
Set xRow = WorkRng.Rows(1)
Application.ScreenUpdating = False
For i = 1 To WorkRng.Rows.Count Step SplitRow
    resizeCount = SplitRow
    If (WorkRng.Rows.Count - xRow.Row + 1) < SplitRow Then resizeCount = WorkRng.Rows.Count - xRow.Row + 1
    xRow.Resize(resizeCount).Copy
    Application.Worksheets.Add after:=Application.Worksheets(Application.Worksheets.Count)
    Application.ActiveSheet.Range("A1").PasteSpecial
    Set xRow = xRow.Offset(SplitRow)
Next
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

3。 然後按 F5 鍵以運行代碼，並彈出一個對話框以選擇要拆分的範圍，然後單擊 OK，另一個對話框供您指定行數。 看截圖：

4. 點擊 OK，然後根據行數將範圍分為多張。

備註：拆分的工作表位於主工作表的背面。

使用Kutools for Excel按行數將數據拆分為多個工作表

上面的代碼只能按指定的行數拆分數據，並且如果您的數據具有標題，則不會為每個工作表數據添加標題。

但隨著 Excel的Kutools“ 拆分數據，您不僅可以為每個工作表數據插入標題，還可以指定新的拆分工作表名稱。

Excel的Kutools 包括300多個便捷的Excel工具。 30天免費試用，不受限制。 立即獲取

如果您已安裝Kutools for Excel，請執行以下操作：

1。 選擇要拆分的數據范圍。

2。 點擊 企業 > 工作表工具 > 拆分數據 （或 企業 > 拆分數據 ），請參見屏幕截圖：

3。 在 將數據拆分為多個工作表 對話框：

• 選擇 固定行 分割依據 選項，然後輸入要為每個工作表拆分的行數。 （如果您的數據包含標題，並且您想將其插入每個新的拆分工作表中，請檢查 我的數據有標題 選項。）
• 然後，您可以在 新工作表名稱 部分，從中選擇工作表名稱規則 規則 下拉列表中，您可以添加 字首 or 後綴 以及工作表名稱。 看截圖：

4。 指定設置後，然後單擊 OK，並且每5行將所選數據拆分為一個新工作簿的多個工作表。 並為每個新工作表插入標題。 看截圖：

單擊以了解有關此拆分數據功能的更多信息。

相關文章：

如何根據Excel中的列將數據拆分為多個工作表？

---

最佳辦公效率工具

Kutools for Excel 解決了你的大部分問題，並將你的生產力提高了 80%

• 重用: 快速插入 複雜的公式，圖表 以及您以前使用過的任何東西； 加密單元 帶密碼 創建郵件列表 並發送電子郵件...
• 超級公式欄 （輕鬆編輯多行文本和公式）； 閱讀版式 （輕鬆讀取和編輯大量單元格）； 粘貼到過濾範圍...
• 合併單元格/行/列 不會丟失數據； 拆分單元格內容； 合併重複的行/列...防止細胞重複； 比較範圍...
• 選擇重複或唯一 行; 選擇空白行 （所有單元格都是空的）； 超級查找和模糊查找 在許多工作簿中； 隨機選擇...
• 確切的副本 多個單元格，無需更改公式參考； 自動創建參考 到多張紙； 插入項目符號，複選框等...
• 提取文字，添加文本，按位置刪除， 刪除空間; 創建和打印分頁小計； 在單元格內容和註釋之間轉換...
• 超級濾鏡 （將過濾方案保存並應用於其他工作表）； 高級排序 按月/週/日，頻率及更多； 特殊過濾器 用粗體，斜體...
• 結合工作簿和工作表; 根據關鍵列合併表； 將數據分割成多個工作表; 批量轉換xls，xlsx和PDF...
• 超過 300 項強大的功能. 支持 Office / Excel 2007-2021 和 365。支持所有語言。 在您的企業或組織中輕鬆部署。 完整功能 30 天免費試用。 60 天退款保證。

閱讀更多... 免費下載... 採購... 

---

Office選項卡為Office帶來了選項卡式界面，使您的工作更加輕鬆

• 在Word，Excel，PowerPoint中啟用選項卡式編輯和閱讀，發布者，Access，Visio和Project。
• 在同一窗口的新選項卡中而不是在新窗口中打開並創建多個文檔。
• 將您的工作效率提高 50%，每天為您減少數百次鼠標點擊！

閱讀更多... 免費下載... 採購...