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

软件发布|下载排行|最新软件

当前位置:首页IT学院IT百科

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

  2022-10-26 我要评论

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

操作方法

  • 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

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

Copyright 2022 版权所有 软件发布 访问手机版

声明:所有软件和文章来自软件开发商或者作者 如有异议 请与本站联系 联系我们