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

---