Excel多个工作表快速拆分为独立的工作簿方法
下面说Excel多个工作表快速拆分为独立的工作簿方法。
1.打开要处理的excel工作表；
2.右键工作表选择查看代码选项；
3.复制以下代码到窗口中；
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 FileFormat:=xlNormal '将工作簿另存为EXCEL默认格式
ActiveWorkbook.Close
Next
MsgBox \"文件已经被分拆完毕!\"
End Sub
& \"\\\" & sht.Name,
4.按运行按钮或者按f5键选择运行代码；
5.之后在桌面上即可快速从的单个工作簿里生成拆分出来的独立工作簿。
因篇幅问题不能全部显示，请点此查看更多更全内容