在 Excel 中依列數分割數據至多個工作表

作者Xiaoyang修改日期2024-08-01

根據特定列數將大型數據區域有效拆分為多個 Excel 工作表，有助於簡化資料管理。例如，每 5 列將資料集拆分至不同工作表，不僅讓資料更易管理，也更加井然有序。本指南提供兩種實用方法，助您快速輕鬆完成此任務。

依列數將資料分割至多個工作表

使用 VBA 程式碼依列數分割數據至多個工作表

使用 Kutools for Excel 依列數分割數據至多個工作表

使用 VBA 程式碼依列數分割數據至多個工作表

太神奇了！在 Excel 中使用高效 Tabs，就像 Chrome、Edge、Firefox 和 Safari 一樣！
每天為您節省 50% 的時間，並減少數千次滑鼠點擊！

下列 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 鍵，在跳出的對話方塊中選取標題列，參見截圖：

使用 VBA 程式碼依列數將資料分割至工作表，並選取標題列

4. 然後點選確定，在第二個提示方塊中選取您要依列數拆分的數據區域，參見截圖：

使用 VBA 程式碼依列數將資料分割至工作表，並選取資料範圍

5. 繼續點選確定按鈕，在第三個提示方塊中輸入您要拆分的列數，參見截圖：

使用 VBA 程式碼依列數將資料分割至工作表，並指定要分割的列數

6. 接著點選確定按鈕，資料已根據列數拆分至多個工作表，參見截圖：

使用 VBA 程式碼依列數將資料分割至工作表以取得結果

使用 Kutools for Excel 依列數分割數據至多個工作表

若您覺得 VBA 程式碼太複雜，Kutools for Excel 提供快速直覺的解決方案，有效處理資料拆分問題。分割數據功能大幅簡化操作流程，讓任何技能程度的使用者都能輕鬆將大型資料集拆分至多個工作表，無需深入的程式設計知識，立即提升資料管理效率！

Kutools for Excel 包含超過 300 項實用 Excel 工具。30 天內免費試用，無任何限制。立即取得

若您已安裝 Kutools for Excel，請依下列步驟操作：

1. 選取您要拆分的資料範圍，接著點選 KUTOOLS PLUS＞ 分割數據，參見截圖：

使用 Kutools 依列數將資料分割至工作表

3. 在分割數據至多個工作表對話方塊中：

請選取固定值作為分割依據，並輸入您希望每個工作表拆分的列數。
若您的資料包含標題列，並希望將其插入至每個新拆分的工作表中，請勾選包含標題選項。（提示：您可依資料內容設定標題列的數量。）
接著，可在創建工作表的名稱區段中指定拆分後的工作表名稱：從規則下拉清單選擇命名規則，並可為工作表名稱新增前置字元或後置字元。

使用 Kutools 依列數將資料分割至工作表並設定操作選項

4. 設定完成後，點選確定，數據將依每 5 列拆分至新工作簿的多個工作表中，且每個新工作表皆已自動插入標題列。參見截圖：

使用 Kutools 依列數將資料分割至工作表以取得結果

注意：若要使用此功能，請先 下載並安裝 Kutools for Excel。

根據欄
假設您有一個包含大量資料列的工作表，現在需要根據「姓名」欄位（如下圖所示）將資料拆分至多個工作表中，而這些姓名是隨機輸入的。雖然您可以先排序，再逐一複製貼上到新的工作表，但這過程需要極大的耐心與重複操作。今天，我將為您介紹幾種快速又高效的技巧，輕鬆搞定這項任務！

在 Excel 中合併重複行並加總數值
在 Excel 中，資料集中出現重複項目相當常見。您很可能會遇到一組包含重複記錄的資料，關鍵挑戰在於如何有效合併這些重複列，同時將對應欄位中的數值加總（如下圖所示）。本文將深入探討幾種實用方法，協助您輕鬆整合重複資料並彙總相關數值，大幅提升 Excel 工作表的清晰度與實用性。

根據關鍵列將兩個或多個表格合併為一個
假設您在一個活頁簿中有三個工作表，現在希望根據對應的關鍵欄將這些工作表合併成單一表格，以取得如下圖所示的結果。對多數人來說，這可能是一項棘手的任務，但別擔心，本文將為您介紹幾種實用的解決方法。

最佳 Office 生產力工具

🤖	KUTOOLS AI 助手：基於以下內容徹底革新數據分析：智慧執行｜產生程式碼｜建立自訂公式｜分析資料並產生圖表｜呼叫增強函數……
	熱門功能：尋找、醒目提示或標記重複值｜刪除空白行｜合併列或儲存格而不遺失資料｜不使用公式的四捨五入……
	高級 LOOKUP：多重條件 VLookup ｜多重數值 VLookup ｜跨多個工作表 VLookup ｜模糊查找……
	高級下拉列表：快速建立下拉式清單｜相依式下拉式清單｜多選下拉式清單……
	欄位管理員：新增指定數量的欄位｜移動欄位｜切換隱藏欄位的可見狀態｜比較範圍與欄位……
	精選功能：網格聚焦｜設計視圖｜增強編輯欄｜工作簿與工作表管理員｜資源庫（自動文字）｜日期提取｜合併工作表｜加密／解密儲存格｜依清單傳送電子郵件｜超級篩選｜特殊篩選（篩選粗體儲存格／斜體／刪除線……） ......
	頂尖 15 工具組：12 文字工具（添加文本，刪除特定字符，……）｜ 50+ 圖表類型（甘特圖，……）｜ 40+ 實用公式（基於生日計算年齡，……）｜ 19 插入工具（插入二維碼，從路徑插入圖片，……）｜ 12 轉換工具（金額轉大寫，匯率轉換，……）｜ 7 合併和拆分工具（高級合併行，分割儲存格，……）｜……以及更多