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

第一步：右键随便选中一个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也放到桌面）