如何拆分一个Excel工作簿中的多个工作表

作者: 衔思 分类: 齐分享 发布时间: 2014-04-23 11:54

前几天,由于工作需要,要把一个包含有140多个Sheet的工作簿全部拆分为单独的文件,这个工作量貌似有点大,所以,通过百度谷歌,找到一个用一段代码就可以解决的方法。

系统环境:Windows XP/Vista/7/8均可,Office版本:MS Office 2007/2010/2013均可。

步骤1:打开需要拆分Sheet(工作表)的Excel文件,然后在任意一个Sheet标签上点鼠标右键,选择“查看代码”:

如何拆分一个Excel工作簿中的多个工作表

步骤2:在弹出的窗口中输入以下代码,然后选择“运行”→“运行子过程/用户窗体”(也可以直接按F5):

 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 

如何拆分一个Excel工作簿中的多个工作表

如果Sheet比较多,请耐心等待;Sheet比较少,很快就运行完毕,然后会给出“文件已经被分拆完毕”的提示:

如何拆分一个Excel工作簿中的多个工作表

此时,返回之前未拆分工作簿的文件夹,就可以看到所有Sheet已经拆分完毕,并且文件名是以Sheet名来命名的,如果有需要,在拆分之前,可以修改好Sheet的名字,免得拆分完毕后再次修改:

如何拆分一个Excel工作簿中的多个工作表

此方法理论上也适用于Excel 2003及其它版本。

本文关键词:Excel技巧,Excel表格拆分,Excel Sheet拆分,Excel工作表拆分,一个Excel工作簿拆分为多个工作表

如果觉得我的文章对您有用,请随意打赏。您的支持将鼓励我继续创作!

3条评论
  • 衔思

    2018 年 02 月 27 日 下午 4:18

    Google Chrome 51.0.2704.103 Google Chrome 51.0.2704.103 Windows 10 x64 Edition Windows 10 x64 Edition

    ceshi

  • 大眼睛

    2014 年 04 月 23 日 下午 6:52

    Maxthon 4.3.2.1000 Maxthon 4.3.2.1000 Windows 7 Windows 7

    楼主,你QQ多少,加你有事请教,WR841n路由修砖,

    1. 涛涛

      2014 年 04 月 23 日 下午 9:22

      Google Chrome 21.0.1180.89 Google Chrome 21.0.1180.89 Windows XP Windows XP

      已经加你QQ。

发表评论

电子邮件地址不会被公开。 必填项已用*标注

在你提交表单前:
Human test by Not Captcha
更多阅读
标签云