2020-09-12

这个是我某一次在工作中遇到的，当时我是百度的。现在我把这个方法编辑下来，希望能对遇到同样问题的小伙伴有帮助。主要是以后我自己在遇到同样的问题时，忘了怎么做的时候也有一个参考。再次先谢过在百度上分享这个方法的前辈。我不知道大家一般是用什么方法解决类似的问题的，如果你有更好的方法，不知道你介不介意分享给我。

当我们遇到一个Excel 表中有很多子表，我们想要给他分开，可以使用下面这个方法

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. 点击运行，最后再点击确定就成功的把一个工作表的子表分开了