在日常的工作中,我们可能会遇到将一个工作簿中包含的多个工作表单独拆分成一个个独立的excel,以便将各个独立的工作表分发给需要的人看。这里介绍怎么样将excel工作簿(含多个工作表)拆分成多个独立的工作表。
1、首先安装office完整版任意版本(wps除外)。
2、打开需要拆分的工作簿中的任何一个表格,右键“查看代码”进入VBAProject,例如
3、然后,按F5运行此代码,F5后弹出窗口让输入一个这段宏的名称,给一个名,随便,比如part,然后点击“创建”
4、然后,删除默认代码框中的两行代码
将下面的代码复制到代码框中:
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 ‘将工作簿另存为EXCEL默认格式
ActiveWorkbook.Close
Next
MsgBox “文件已经被分拆完毕!”
End Sub
复制完代码后,如下界面:
5、然后,再按F5运行此代码,画面会出现一闪一闪的,这是在执行此段代码,根据工作表的多少时间会不定,稍等一会,会出现“文件已经被拆分完毕”的提示框。
这时,查看下原始工作簿所在的位置,会看到已经拆分出来了
以上是用代码执行的方法,但是有excel高手,就封装了此段代码,做成了一个小程序,里面还包含另外另个拆分表的按钮,可以完全用小工具的方式代替以上繁琐的方法。
小工具附在文章最后。
小工具界面为:
根据需要选择即可,非常方便!
excel拆分小工具下载地址:
当前内容已被隐藏,您需要登录才能查看
登录立刻注册