怎样快速地把一个EXCEL表格里的多个工作表分开成单个的文件

Question

如题所述

Answer 1

1、打开表格，可以看到一个工作簿中有多个工作表。

2、右击工作表名称，点击查看代码(V)。

3、显示如下页面。

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

5、点击运行-运行子过程/用户窗体。

6、完成后，保存，显示如下，工作表已经拆分成单独的文件了。

Answer 2

1、WPS表格打开要拆分的文件

2、数据选项卡-拆分表格-把工作簿按照工作表拆分

3、选择需要拆分出的表格以及文件保存路径，开始拆分

4、拆分完毕

5、查看拆分出的文件

Answer 3

1、在需要单独保存的工作表上右键，弹出菜单选择移动或复制工作表
2、在第一个里选择新工作薄然后确定
3、然后会出现新的excel文件，接着保存下来

Answer 4

1.打开表格,可以看到一个工作簿中有多个工作表。
2.右击工作表名称,点击查看代码(V)。
3.显示如下页面。
4.空白处,复制黏贴如下代码: Private Sub 分拆工作表() Dim sht As Worksheet Dim MyBook As Workbook Set My...
5.点击运行-运行子过程/用户窗体。

Answer 5