有時(shí)候，我們需要對(duì)一個(gè)大的表格進(jìn)行拆分，把其中的內(nèi)容按照一定的規(guī)則分割成多個(gè)工作表或工作簿。這樣可以方便我們對(duì)數(shù)據(jù)進(jìn)行分類、篩選、統(tǒng)計(jì)等操作。那么，如何用Excel實(shí)現(xiàn)這樣的功能呢？本文將為大家介紹Excel拆分表格內(nèi)容拆分為多個(gè)的方法，Excel工作表拆分代碼。

一、Excel拆分表格內(nèi)容拆分為多個(gè)

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

1. 打開需要拆分的表格，選中要拆分的數(shù)據(jù)區(qū)域，點(diǎn)擊“數(shù)據(jù)”菜單欄中的“高級(jí)”按鈕。

圖1：高級(jí)

2. 在彈出的對(duì)話框中，選擇“將篩選結(jié)果復(fù)制到其他位置”，在“列表區(qū)域”框中輸入或選擇要拆分的數(shù)據(jù)區(qū)域，在“條件區(qū)域”框中輸入或選擇要按照哪些列進(jìn)行拆分，在“復(fù)制到”框中輸入或選擇要將篩選結(jié)果復(fù)制到哪個(gè)位置。

圖2：篩選

3. 點(diǎn)擊“確定”按鈕，可以看到篩選結(jié)果被復(fù)制到了指定的位置。

4. 重復(fù)上述步驟，根據(jù)不同的條件進(jìn)行篩選，可以實(shí)現(xiàn)對(duì)表格內(nèi)容的拆分。

二、Excel工作表拆分代碼

如果我們想要把一個(gè)工作簿中的多個(gè)工作表按照工作表名稱進(jìn)行拆分，保存為多個(gè)單獨(dú)的工作簿，可以使用VBA代碼來(lái)實(shí)現(xiàn)。具體操作步驟如下：

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

2. 在左側(cè)的項(xiàng)目資源管理器中，右鍵點(diǎn)擊“Microsoft Excel對(duì)象”，選擇“插入”-“模塊”。

圖3：插入模塊

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

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.點(diǎn)擊運(yùn)行按鈕或按F5鍵執(zhí)行代碼，就可以看到當(dāng)前工作簿中的每個(gè)工作表都被保存為了一個(gè)單獨(dú)的工作簿，文件名與工作表名稱相同。

圖5：拆分工作表

三、總結(jié)

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