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