Excel工作簿中的多個工作表，快速拆分為單個表格，這種操作相信難倒過許多朋友。工作簿中的工作表比較少的情況下，可能許多朋友就是直接新建工作表，然后復制粘貼這樣來操作。但如果表格過多的情況下，這種操作就是費時費力。

如上圖所示，我們需要將工作簿中的6個工作表，按照對應的工作表名稱單獨拆分為單個的工作簿。下面我們就來學習一下如何用代碼一秒操作。

第一步：首先鼠表選中工作表名稱，點擊右鍵—查看代碼，進入代碼編輯窗口；或者直接按Alt+F11快捷鍵進入代碼編輯窗口，如下圖所示：

第二步：進入代碼編輯窗口后，鼠標點擊左邊的工程資源窗口，右鍵點擊Thisworkbook，選中插入模塊。如下圖所示：

第三步：在模塊代碼編輯窗口輸入下方代碼，如下圖所示：

代碼如下：

Sub 多工作表拆分()

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