微信公众号:爱冒险的cutfish
26 人赞同了该文章
1.打开要处理的excel工作表;
2.右键工作表选择查看代码选项;
3.复制VBA代码到窗口中;
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
4.按运行按钮或者按f5键选择运行代码,之后在桌面上即可快速从单个工作簿里生成拆分出独立的工作簿。
更多软件资料下载请关注我的微信公众号即可免费下载
赞同 26
13 条评论
分享