Excel拆分表格內容拆分為多個（Excel工作表拆分代碼）

有時候，我們需要對一個大的表格進行拆分，把其中的內容按照一定的規則分割成多個工作表或工作簿。這樣可以方便我們對數據進行分類、篩選、統計等操作。那么，如何用Excel實現這樣的功能呢？本文將為大家介紹Excel拆分表格內容拆分為多個的方法，Excel工作表拆分代碼。

一、Excel拆分表格內容拆分為多個

如果我們想要把一個表格中的內容按照某一列或某幾列的值進行拆分，可以使用Excel自帶的“高級篩選”功能。具體操作步驟如下：

1. 打開需要拆分的表格，選中要拆分的數據區域，點擊“數據”菜單欄中的“高級”按鈕。

圖1：高級

2. 在彈出的對話框中，選擇“將篩選結果復制到其他位置”，在“列表區域”框中輸入或選擇要拆分的數據區域，在“條件區域”框中輸入或選擇要按照哪些列進行拆分，在“復制到”框中輸入或選擇要將篩選結果復制到哪個位置。

圖2：篩選

3. 點擊“確定”按鈕，可以看到篩選結果被復制到了指定的位置。

4. 重復上述步驟，根據不同的條件進行篩選，可以實現對表格內容的拆分。

二、Excel工作表拆分代碼

如果我們想要把一個工作簿中的多個工作表按照工作表名稱進行拆分，保存為多個單獨的工作簿，可以使用VBA代碼來實現。具體操作步驟如下：

1. 打開需要拆分的工作簿，按Alt+F11鍵進入VBA編輯器窗口。

2. 在左側的項目資源管理器中，右鍵點擊“Microsoft Excel對象”，選擇“插入”-“模塊”。

圖3：插入模塊

3. 在右側的代碼窗口中輸入以下代碼：

Sub 拆分工作表()

Dim ws As Worksheet

Dim wb As Workbook

For Each ws In ThisWorkbook.Worksheets

Set wb = Workbooks.Add

ws.Copy Before:=wb.Worksheets(1)

wb.SaveAs ThisWorkbook.Path & "\" & ws.Name & ".xlsx"

wb.Close False

Next ws

End Sub

圖4：VBA代碼

3.點擊運行按鈕或按F5鍵執行代碼，就可以看到當前工作簿中的每個工作表都被保存為了一個單獨的工作簿，文件名與工作表名稱相同。

圖5：拆分工作表

三、總結

本文介紹了兩種Excel拆分表格內容拆分為多個,Excel工作表拆分代碼的方法，一種是使用Excel自帶的“高級篩選”功能，另一種是使用VBA代碼。這兩種方法都有各自的優缺點，可以根據實際情況和需求進行選擇和使用。