如何在 Excel 中為每一欄建立獨立的工作表？

作者Siluvia修改日期2025-07-11

在資料管理或報表製作過程中，您可能需要將表格中的每一筆記錄分別放入獨立的工作表。例如，若您在 Excel 中維護一份學生詳細資料清單，其中每一列代表一位學生的資訊，或許會希望為每位學生建立一個專屬工作表，僅包含其個人資料；又或者，您也可能只是想不論內容為何，一律將每一列拆分至全新的獨立工作表中。手動建立新工作表並逐一複製資料不僅耗時，還容易出錯，尤其在處理大型資料集時更顯棘手。透過自動化此流程，不僅能大幅節省時間，更能有效降低人為錯誤的風險。本指南將為您介紹兩種在 Excel 中為每一列建立新工作表的實用方法，並分析各自的優缺點，協助您選擇最符合自身需求的解決方案。

使用 VBA 程式碼為每一列建立新工作表
 使用分割數據工具（由 Kutools for Excel 提供）為每一列建立新工作表

使用 VBA 程式碼為每一列建立新工作表

使用 VBA（Visual Basic for Applications）是自動化 Excel 中繁瑣重複作業的高效方式。透過 VBA，您可快速為資料中的每一列建立新工作表——無論是依據特定欄位（例如學生姓名）進行分組，還是不論內容一律為每一列產生獨立工作表。此方法適合熟悉 VBA 編輯器、偏好高度客製化解決方案的使用者。然而，由於需編輯與執行程式碼，因此不建議無 VBA 經驗，或使用環境無法執行巨集的使用者採用。

1. 按下 「Alt」+「F11」，即可開啟 Microsoft Visual Basic for Applications 視窗，輕鬆存取 VBA 程式碼，自動化 Excel 操作！

2. 在 Microsoft Visual Basic for Applications 視窗中，按一下插入＞模組以新增程式碼模組，接著將下列程式碼複製並貼上至模組視窗中。

VBA 程式碼：根據欄位為每一列建立新工作表

Sub parse_data()
'Update by Extendoffice 2018/3/2
    Dim xRCount As Long
    Dim xSht As Worksheet
    Dim xNSht As Worksheet
    Dim I As Long
    Dim xTRrow As Integer
    Dim xCol As New Collection
    Dim xTitle As String
    Dim xSUpdate As Boolean
    Set xSht = ActiveSheet
    On Error Resume Next
    xRCount = xSht.Cells(xSht.Rows.Count, 1).End(xlUp).Row
    xTitle = "A1:C1"
    xTRrow = xSht.Range(xTitle).Cells(1).Row
    For I = 2 To xRCount
        Call xCol.Add(xSht.Cells(I, 1).Text, xSht.Cells(I, 1).Text)
    Next
    xSUpdate = Application.ScreenUpdating
    Application.ScreenUpdating = False
    For I = 1 To xCol.Count
        Call xSht.Range(xTitle).AutoFilter(1, CStr(xCol.Item(I)))
        Set xNSht = Nothing
        Set xNSht = Worksheets(CStr(xCol.Item(I)))
        If xNSht Is Nothing Then
            Set xNSht = Worksheets.Add(, Sheets(Sheets.Count))
            xNSht.Name = CStr(xCol.Item(I))
        Else
            xNSht.Move , Sheets(Sheets.Count)
        End If
        xSht.Range("A" & xTRrow & ":A" & xRCount).EntireRow.Copy xNSht.Range("A1")
        xNSht.Columns.AutoFit
    Next
    xSht.AutoFilterMode = False
    xSht.Activate
    Application.ScreenUpdating = xSUpdate
End Sub

參數說明與使用提示：

A1:C1 是您資料表的標題範圍。請根據實際資料標題區域，調整此參照以確保準確對應。
此程式碼會從指定欄位（預設為 A 欄）提取所有唯一值，並為每個唯一值建立獨立的工作表，其中包含對應的資料列。
若您的表格寬度不同或起始列有異，請相應更新 xTitle 與儲存格參照。
若您的工作表包含引用其他工作表的公式，請於分割後檢查這些參照。

3. 按下 F5 鍵或按一下執行以執行程式碼。新工作表將在目前工作簿中所有現有工作表之後建立，並依據所選欄位的唯一值命名。下方截圖為範例結果：

顯示根據欄位值從每一列建立工作表的新活頁簿截圖

如果您希望忽略欄位內容，直接將每一列拆分至獨立工作表，可使用以下替代 VBA 程式碼。此方法無需設定任何欄位條件。

VBA 程式碼：直接為每一列建立新工作表

Sub RowToSheet()
	Dim xRow As Long
	Dim I As Long
	With ActiveSheet
		xRow = .Range("A" & Rows.Count).End(xlUp).Row
		For I = 1 To xRow
			Worksheets.Add(, Sheets(Sheets.Count)).Name = "Row " & I
			.Rows(I).Copy Sheets("Row " & I).Range("A1")
		Next I
	End With
End Sub

執行此程式碼後，作用中工作表的每一列（包含標題列）都會複製到新建立的工作表中。請注意，標題列也會一併重複；若您不希望如此，可於輸出後手動刪除或調整該工作表內容。

疑難排解與實用提示：
－若出現「下標超出範圍」等錯誤，請確認工作表名稱未包含無效字元或重複名稱。
－處理大型資料集時，可能因產生過多工作表而導致 Excel 變慢或難以導覽。針對極大型表格，建議先評估是否確實需要逐列分割。
－執行 VBA 程式碼前，務必備份資料，以防意外遺失！

優點：完全免費，且高度可自訂。
缺點：需啟用 VBA／巨集，並具備基本的 VBA 編輯器操作經驗；處理複雜或特殊資料時，可能出現程式碼錯誤。
適用對象：需要腳本彈性、執行一次性或非定期任務的使用者。

使用分割數據工具（由 Kutools for Excel 提供）為每一列建立新工作表

若您偏好簡單直覺、無需撰寫程式碼的操作方式，強烈推薦使用分割數據的 Kutools for Excel 工具！只需幾次點擊，即可快速將分割數據拆分至多個新工作表，大幅簡化工作表管理工作。Kutools 特別適合經常處理大型複雜表格，或偏好圖形介面而非手動編碼的使用者。請注意，Kutools 屬於 Excel 增益集，須事先安裝。

Kutools for Excel 提供超過 300 項進階功能，簡化複雜作業，提升創造力與效率。整合 AI 功能，Kutools 能精準自動化各項任務，讓資料管理輕鬆無負擔。Kutools for Excel 的詳細資訊…… 免費試用……

1. 選取您要拆分至獨立工作表的資料表格，然後點擊 KUTOOLS PLUS 頁籤，並選擇分割數據。詳情請參閱下方截圖：

Excel 中 Kutools Plus 索引標籤下的「分割資料」選項截圖

2. 在分割數據至多個工作表對話方塊中，依您的分割需求選擇最適合的設定。

A. 根據欄位值建立新工作表：

1）。選取指定列選項，然後指定要用來作為分割依據的欄位—通常是學生姓名或 ID 等唯一識別碼。

2）。若希望各工作表以其欄位值命名，請從指定列的值的規則下拉式選單中選擇該選項。

3）。按一下確定以執行分割。詳情請參閱下方截圖：

「將資料分割成多個工作表」對話方塊截圖，其中包含依欄位值分割的設定

B. 直接為每一列建立新工作表：

1）。選取固定值選項，並在方框中輸入 1，表示每個工作表僅包含一列資料。

2）。在規則下拉式選單中，選取設置的行數以根據其列索引為各工作表命名。

3）。按一下確定以開始分割程序。詳情請參閱下方截圖：

「將資料分割成多個工作表」對話方塊截圖，其中包含依列分割的設定

執行後，系統將產生一個新工作簿，其中包含所有新工作表，各工作表皆依您所選的設定填入資料。

根據欄位值為每一列建立新工作表：

顯示根據欄位值從每一列建立工作表的新活頁簿截圖

不考慮欄位值，直接為每一列建立新工作表：

顯示從每一列建立工作表但不考慮欄位值的新活頁簿截圖

注意事項與實用提示：
－使用分割數據工具前，請確保表格中無空白列，否則可能產生空白工作表。
－請留意工作表命名規則，避免產生重複或無效的工作表名稱；若發生名稱衝突，Kutools 會自動調整。
－若表格規模龐大，此程序可能產生大量工作表，執行前務必謹慎評估。

優點：操作簡單，無需撰寫程式碼；適合批次處理與重複性任務。
缺點：需事先安裝 Kutools 增益集。
適用對象：各級 Excel 使用者，尤其適合需要反覆進行資料分割的您！

Kutools for Excel－透過超過 300 項必備工具全面強化 Excel，讓您的工作更快速、更輕鬆，並運用 AI 功能實現更聰明的資料處理與高效生產力！立即取得

示範：使用分割數據工具（由 Kutools for Excel 提供）為每一列建立新工作表

Kutools for Excel：超過 300 種實用工具隨手可得！盡享 AI 驅動功能，讓工作更聰明、更快速！立即下載！

最佳 Office 生產力工具

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