怎么拆分一个Excel工作簿中的多个工作表

Question

如题所述

Answer 1

以WPS 2019版本为例：

关于怎么拆分一个Excel工作簿中的多个工作表，您可使用WPS参考下述步骤完成操作：

1、打开「表格（Excel）」文档；

2、点击「数据-拆分表格」；

3、按需选择「把工作表按照内容拆分」或「把工作簿按照工作表拆分」使用即可。

Answer 2

所需工具材料：EXCEL

方法如下：

1、打开需要编辑的Excel文档，工作簿下方有很多的工作表。

2、右键任意一个工作表标签，在弹出的下拉列表中选择查看代码。

3、在弹出的窗口中输入以下代码，然后选择“运行”→“运行子过程/用户窗体”（也可以直接按F5）。

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

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

Answer 3

一、工具/原料

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工作簿文件所在路径，查看，可以发现原先工作簿中的工作表已经成为单独的工作簿了。

Answer 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, FileFormat:=xlNormal     '将工作簿另存为EXCEL默认格式

           ActiveWorkbook.Close

       Next

       MsgBox "文件已经被分拆完毕!"

   End Sub

单击运行-运行子过程|窗体 几秒过后 弹出提示窗口“文件已被拆分完毕”

Answer 5

比如某个excel工作簿中，要sheet1表,变成单独的excel 。
在sheet1上右击，选择移动或复制工作表,弹出对话框

现在有两种情况:

1、保留原有sheet1,重新生成1个表格,点击下拉菜单,选择(新工作薄)并勾选建立副本,这时就会单独生成一个excel

2、不保留原有sheet1,直接拆分,那么,点击下拉菜单,选择(新工作薄)不勾选建立副本,这时就会单独生成一个excel,且原有excel这页消失。本回答被提问者采纳