Hi!很高兴认识你~
欢迎关注"办公研习社",轻松学习实用的office技巧×电脑技能×办公自动化。
1、在单个sheet上右键,点击 "查看代码"
2、在代码窗体中输入以下代码,点击 "运行"
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:=xlOpenXMLWorkbook '将工作簿另存为xlsx格式 ActiveWorkbook.Close Next MsgBox "文件已经被分拆完毕!"End Sub
3、等待程序运行完毕,在原excel目录下即可看到分拆后的excel
有任何问题都可以发消息给小编哦,及时为您解答问题~
喜欢我,关注我
拉到最上方标题下,点击“办公研习社”关注
搜索公众帐号:ismartoffice
也请你推荐给你身边的职场朋友哦,感谢你~