怎么拆分一个Excel工作簿中的多个工作表？

小编之前分享过如何合并多个工作表，这倒好，现在再来介绍一下如何拆分同一个工作薄中的多个工作表。

操作方法

（01）如下图所示，工作薄中有四个工作表。

（02）在工作表处，右击鼠标，点击“查看代码”

（03）图下图所示，弹出的窗口中，直接点击插入——模块。

（04）在弹出的窗口中输入一下代码： Private Sub 分拆工作表() Dim sht As Worksheet Dim MyBook As Workbook Set MyBook = ActiveWorkbook For Each sht In ts As Filename:= & "" & , FileFormat:=xlNormal '将工作簿另存为EXCEL默认格式 e Next MsgBox "文件已经被分拆完毕!" End Sub

（05）然后点击运行，点击运行子过程。

（06）经过一番运算，最终完成后，会弹出下图界面，点击完成即可。

（07）拆分出来的四个工作表如下图所示，效果还不错。