怎么将Excel多个工作表拆分成多个单独的Excel

如何将Excel多个工作表拆分成多个单独的Excel

工作中经常会用到excel，熟练的运营excel可以高效的减少工作量，很多人制作excel时会将不同的数据分类，就形成了一个excel中有多个工作表(sheet)，但是由于某些原因需要将这些工作表单独放到一个excel中，但由于数据量大会给我们的工作带来很多困扰，怎么将excel多个工作表拆分成多个单独的excel？excel是个很强大的软件，我们来看一下拆分一个Excel工作簿中的多个工作表的方法。

1、例如工作薄中有多个工作表，如图：

2、将一个Excel工作簿中的多个工作表(sheet)拆分成如下图所示结果

3、打开需要拆分的excel，在任意工作表右击，点击“查看代码”

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:=xlOpenXMLWorkbook     '将工作簿另存为xlsx格式

           ActiveWorkbook.Close

       Next

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

   End Sub

5、点击绿色三角，运行程序，等待拆分。

6、拆分成功后，会弹出窗口提示。

如果遇到Excel无法在未启用宏的工作簿中保存怎么办？？？

为了使用这样的功能，但又想保存的话，就要将文件存另一个扩展名的格式了，可以在文件----另存为，选择启用宏的工作簿.xlsm来进行保存！然后在重复第5步就行了。