如何把一个Excel文件拆分成多个文件？

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、完成后，保存，显示如下，工作表已经拆分成单独的文件了。

1、首先在excel表格中，点击智能工具箱，如下图所示。

2、然后在智能工具箱的左上角这里有一个工作表，如下图所示。

3、点击这个工作表就会出现工作簿拆分。

4、点击一下工作薄拆分之后就会出现选择文件，选择一个文档。

5、选择成功之后，点击开始拆分开始拆分成功之后就会需要一定的时间。

6、处理成功之后，可以看见在这个地方多了一个同名的文件，并且里面含有多个sheet拆分成独立文件。

点击【汇总拆分】，选择【拆分工作表】。将【表头行数】设置为1。关键词所在列设置为部门。勾选【保存为独立工作簿】，点击【确定】即可完成，详细步骤：

1、打开演示文件，要求将表格拆分为多个独立的文件。

2、点击下图选项。

3、点击【汇总拆分】，选择【拆分工作表】。

4、将【表头行数】设置为1。

5、关键词所在列设置为部门。

6、勾选【保存为独立工作簿】，点击【确定】即可完成。

7、完成效果如下。

---