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

如上圖所示，我們需要將工作簿中的6個(gè)工作表，按照對(duì)應(yīng)的工作表名稱單獨(dú)拆分為單個(gè)的工作簿。下面我們就來學(xué)習(xí)一下如何用代碼一秒操作。

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

第二步：進(jìn)入代碼編輯窗口后，鼠標(biāo)點(diǎn)擊左邊的工程資源窗口，右鍵點(diǎn)擊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