怎么拆分一个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
拆分出来的四个工作表如下图所示,效果还不错。
赞 (0)