怎么拆分一个Excel工作簿中的多个工作表
2019-11-13 · 旨在提供办公软件的问答帮助。
WPS官方
以WPS 2019版本为例：
关于怎么拆分一个Excel工作簿中的多个工作表，您可使用WPS参考下述步骤完成操作：
1、打开「表格（Excel）」文档；
2、点击「数据-拆分表格」；
3、按需选择「把工作表按照内容拆分」或「把工作簿按照工作表拆分」使用即可。
- 官方电话
-
官方服务
- 官方网站
所需工具材料：EXCEL
方法如下：
1、打开需要编辑的Excel文档，工作簿下方有很多的工作表。
2、右键任意一个工作表标签，在弹出的下拉列表中选择查看代码。
3、在弹出的窗口中输入以下代码，然后选择“运行”→“运行子过程/用户窗体”（也可以直接按F5）。
4、如果Sheet比较多，请耐心等待；Sheet比较少，很快就运行完毕，然后会给出“文件已经被分拆完毕”的提示。
5、此时，返回之前未拆分工作簿的文件夹，就可以看到所有Sheet已经拆分完毕，并且文件名是以Sheet名来命名的，如果有需要，在拆分之前，可以修改好Sheet的名字，免得拆分完毕后再次修改。
一、工具/原料
microsoft office excel 2007
二、方法/步骤
1、右键任意一个工作表标签，在弹出的下拉列表中选择查看代码。即弹出代码窗口。
2、点击菜单插入-模块 在弹出的模块对话框中 输入以下代码：
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
3、单击运行-运行子过程-窗体，几秒过后，弹出提示窗口“文件已被拆分完毕”。
4、返回Excel工作簿文件所在路径，查看，可以发现原先工作簿中的工作表已经成为单独的工作簿了。
右键任意一个工作表标签，在弹出的下拉列表中选择查看代码。即弹出代码窗口。
在，弹出的窗口中输入以下代码：
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
单击运行-运行子过程|窗体 几秒过后 弹出提示窗口“文件已被拆分完毕”
在sheet1上右击，选择移动或复制工作表,弹出对话框
现在有两种情况:
1、保留原有sheet1,重新生成1个表格,点击下拉菜单,选择(新工作薄)并勾选建立副本,这时就会单独生成一个excel
2、不保留原有sheet1,直接拆分,那么,点击下拉菜单,选择(新工作薄)不勾选建立副本,这时就会单独生成一个excel,且原有excel这页消失。
