excel表格拆分成多个表格方法&工具

在日常的工作中,我们可能会遇到将一个工作簿中包含的多个工作表单独拆分成一个个独立的excel,以便将各个独立的工作表分发给需要的人看。这里介绍怎么样将excel工作簿(含多个工作表)拆分成多个独立的工作表。

1、首先安装office完整版任意版本(wps除外)。

2、打开需要拆分的工作簿中的任何一个表格,右键“查看代码”进入VBAProject,例如

3、然后,按F5运行此代码,F5后弹出窗口让输入一个这段宏的名称,给一个名,随便,比如part,然后点击“创建”

 

4、然后,删除默认代码框中的两行代码

将下面的代码复制到代码框中:

  1. Private Sub 分拆工作表()
  2. Dim sht As Worksheet
  3. Dim MyBook As Workbook
  4. Set MyBook = ActiveWorkbook
  5. For Each sht In MyBook.Sheets
  6.     sht.Copy
  7.     ActiveWorkbook.SaveAs Filename:=MyBook.Path & “\” & sht.Name ‘将工作簿另存为EXCEL默认格式
  8.     ActiveWorkbook.Close
  9. Next
  10. MsgBox “文件已经被分拆完毕!”
  11. End Sub

复制完代码后,如下界面:

5、然后,再按F5运行此代码,画面会出现一闪一闪的,这是在执行此段代码,根据工作表的多少时间会不定,稍等一会,会出现“文件已经被拆分完毕”的提示框。

这时,查看下原始工作簿所在的位置,会看到已经拆分出来了

以上是用代码执行的方法,但是有excel高手,就封装了此段代码,做成了一个小程序,里面还包含另外另个拆分表的按钮,可以完全用小工具的方式代替以上繁琐的方法。

小工具附在文章最后。

小工具界面为:

根据需要选择即可,非常方便!

excel拆分小工具下载地址:

当前内容已被隐藏,您需要登录才能查看

「点点赞赏,手留余香」

    还没有人赞赏,快来当第一个赞赏的人吧!
11 条回复 A 作者 M 管理员
  1. 范德萨范德萨fdsafd sa fdsa

  2. 真的有效吗?

  3. 感谢分享!

  4. 顶顶顶顶顶顶顶顶顶顶

  5. 感谢分享

  6. 111111111111111真的有效吗?

  7. 谢谢

  8. 感谢分享,谢谢了

  9. 是梵蒂冈僧人234234

欢迎您,新朋友,感谢参与互动!欢迎您 {{author}},您在本站有{{commentsCount}}条评论