小编之前分享过如何合并多个工作表,这倒好,现在再来介绍一下如何拆分同一个工作薄中的多个工作表。
如下图所示,工作薄中有四个工作表。
在工作表处,右击鼠标,点击“查看代码”
图下图所示,弹出的窗口中,直接点击插入——模块。
在弹出的窗口中输入一下代码: 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
然后点击运行,点击运行子过程。
经过一番运算,最终完成后,会弹出下图界面,点击完成即可。
拆分出来的四个工作表如下图所示,效果还不错。