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

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

操作方法

• 01

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

  
• 02

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

  
• 03

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

  
• 04

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

  
• 05

  然后点击运行，点击运行子过程。

  
• 06

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

  
• 07

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