如何在Excel中按行數(shù)將數(shù)據(jù)拆分為多個工作表？

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

使用VBA代碼按行計數(shù)將數(shù)據(jù)拆分為多個工作表

按行數(shù)將數(shù)據(jù)拆分為多個工作表 Kutools for Excel

使用VBA代碼按行計數(shù)將數(shù)據(jù)拆分為多個工作表 驚人的！ 在 Excel 中使用高效的選項卡，如 Chrome、Firefox 和 Safari！每天節(jié)省50％的時間，并減少數(shù)千次鼠標單擊！

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

1。 按住 ALT + F11 鍵打開 Microsoft Visual Basic應用程序 窗口。

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

VBA：在Excel中按行數(shù)將數(shù)據(jù)拆分為工作表。

Sub SplitData()Updateby20140617Dim WorkRng As RangeDim xRow As RangeDim SplitRow As IntegerDim xWs As WorksheetOn Error Resume NextxTitleId = "KutoolsforExcel"Set WorkRng = Application.SelectionSet WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)SplitRow = Application.InputBox("Split Row Num", xTitleId, 5, Type:=1)Set xWs = WorkRng.ParentSet xRow = WorkRng.Rows(1)Application.ScreenUpdating = FalseFor i = 1 To WorkRng.Rows.Count Step SplitRowresizeCount = SplitRowIf (WorkRng.Rows.Count - xRow.Row + 1) < SplitRow Then resizeCount = WorkRng.Rows.Count - xRow.Row + 1xRow.Resize(resizeCount).CopyApplication.Worksheets.Add after:=Application.Worksheets(Application.Worksheets.Count)Application.ActiveSheet.Range("A1").PasteSpecialSet xRow = xRow.Offset(SplitRow)NextApplication.CutCopyMode = FalseApplication.ScreenUpdating = TrueEnd SubCopy

3。 然后按 F5 鍵運行代碼，并彈出一個對話框，用于選擇要拆分的范圍，然后單擊 OK，另一個對話框供您指定行數(shù)。 看截圖：

4. 點擊 OK，然后根據(jù)行數(shù)將范圍分為多張。

備注：拆分的工作表位于主工作表的背面。

按行數(shù)將數(shù)據(jù)拆分為多個工作表 Kutools for Excel

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

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

Kutools for Excel 包括300多個便捷的Excel工具。 ，不受限制。 立即獲取

如果你已經安裝 Kutools for Excel，請執(zhí)行以下操作：

1。 選擇要拆分的數(shù)據(jù)范圍。

2。 點擊 企業(yè) > 工作表工具 > 拆分數(shù)據(jù) （或 企業(yè) > 拆分數(shù)據(jù) ），請參見屏幕截圖：

3。 在 將數(shù)據(jù)拆分為多個工作表 對話框：

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

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

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

相關文章：

如何根據(jù)Excel中的列將數(shù)據(jù)拆分為多個工作表？

最佳辦公生產力工具

將小時轉化為分鐘 Kutools for Excel!

準備好增強您的 Excel 任務了嗎？ 利用的力量 Kutools for Excel - 您終極的節(jié)省時間的工具。 簡化復雜的任務并像專業(yè)人士一樣瀏覽數(shù)據(jù)。 以閃電般的速度體驗 Excel！

為什么需要 Kutools for Excel