如上图所示，我们需要将工作簿中的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
第四步：输入对应的代码之后，鼠标点击上方菜单栏：运行—运行子过程或窗体，这样就会运行这段代码，最终将这个工作簿里面的所有工作表，都会以对应的名称单独拆分为单个工作簿。如下图所示：
现在你学会如何快速将工作簿中的多个工作表，快速的进行工作表拆分了吗？