当前位置: 首页 > 齐分享 > 正文

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

前几天,由于工作需要,要把一个包含有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工作簿拆分为多个工作表



本文固定链接: http://zmt.me/post/83.html | 涛涛的博客

该日志由 涛涛 于2014年04月23日发表在 齐分享 分类下, 你可以发表评论,并在保留原文地址及作者的情况下引用到你的网站或博客。
原创文章转载请注明: 如何拆分一个Excel工作簿中的多个工作表 | 涛涛的博客
关键字:
【上一篇】
【下一篇】

如何拆分一个Excel工作簿中的多个工作表:目前有2 条留言

  1. 沙发
    大眼睛:
    Maxthon 4.3.2.1000 Maxthon 4.3.2.1000 Windows 7 Windows 7

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

    2014-04-23 下午 6:52 [回复]
    • Google Chrome 21.0.1180.89 Google Chrome 21.0.1180.89 Windows XP Windows XP

      已经加你QQ。

      2014-04-23 下午 9:22 [回复]

发表评论


快捷键:Ctrl+Enter

无觅相关文章插件,快速提升流量