如何将一个工作簿中多个工作表拆分成独立的工作簿

第一步：右键随便选中一个sheet，点击查看代码，进入vb代码编写页面

直接将下面这些代码复制到vb代码框即可。

Private Sub 分拆工作表()

Dim sht As Worksheet

Dim mybook As Workbook

Set mybook = ActiveWorkbook

For Each sht In mybook.Sheets

If sht.Visible = True Then

sht.Copy

ActiveWorkbook.SaveAs Filename:=mybook.Path & "\" & sht.Name, FileFormat:=xlNormal ‘将工作簿另存为excel默认格式

ActiveWorkbook.Close

End If

Next

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

End Sub

第二步：复制完成后，点击三角按钮，然后一直继续下去就好了。最后会在你放excel的文件下生成被分割后的所有excel（比如：你的原来excel放在桌面，它就会把分割后的excel也放到桌面）

如何将一个工作簿中多个工作表拆分成独立的工作簿

原文：https://www.cnblogs.com/magichu/p/14961029.html