我們在進(jìn)行表格數(shù)據(jù)匯總的時(shí)候，經(jīng)常會在工作表中按照不同的部門或公司，單獨(dú)展示數(shù)據(jù)。為了方便將不同部門的數(shù)據(jù)單獨(dú)發(fā)出，這里就會涉及到不同的工作表。今天我們就來學(xué)習(xí)一下，如何將工作表中的多個(gè)Sheet表，單獨(dú)拆分成獨(dú)立的工作表。

如上圖所示，我們總公司表中包含了廣州、深圳、長沙3個(gè)分公司的數(shù)據(jù)，我們需要將不同公司的數(shù)據(jù)單獨(dú)拆分成工作表。相比如果數(shù)據(jù)量不大，大家就單獨(dú)復(fù)制粘貼進(jìn)行操作了，但是數(shù)據(jù)量大的情況下就不能這么操作，今天我們就來學(xué)習(xí)如何通過簡單的代碼，五秒鐘快速完成表格拆分。

一、Excel工作表拆分效果演示

上圖通過代碼拆分的操作，我們就可以實(shí)現(xiàn)N個(gè)工作表快速的拆分操作，通過簡單幾行代碼快速就可完成。

二、工作表拆分具體操作方法

第一步：鼠標(biāo)任意點(diǎn)擊一個(gè)工作表名字上，點(diǎn)擊右鍵—查看代碼；或者按Alt+F11快捷鍵進(jìn)入代碼編輯窗口，如下圖所示：

第二步：點(diǎn)擊左邊工程窗口，鼠標(biāo)右鍵點(diǎn)擊Thisworkbook，點(diǎn)擊插入—模塊。雙擊模塊，進(jìn)入我們的工作簿模塊編輯窗口，如下圖所示：

第三步：進(jìn)入模塊后，輸入我們的下方這段VBA代碼，然后點(diǎn)擊上方運(yùn)行—運(yùn)行子過程或用戶窗體，如下圖所示：

VBA拆分代碼如下：

Sub 拆分到工作簿2()

Dim wk As Workbook, ss$, k%

Application.DisplayAlerts = False

For Each sht In ThisWorkbook.Sheets

Set wk = Workbooks.Add

k = k + 1

ThisWorkbook.Sheets(k).Copy Workbooks(2).Sheets(1)

ss = ThisWorkbook.Path & '\' & sht.Name & '.xlsx'

wk.SaveAs ss

wk.Close

Next

Application.DisplayAlerts = True

MsgBox '拆分工作簿完成！'

End Sub

通過上面的操作步驟，現(xiàn)在我們就可以幾秒鐘快速的將多個(gè)工作表單獨(dú)拆分成獨(dú)立的工作簿。