多个sheet拆分成多个文件_Excel中多个sheet拆分成单个excel文件

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

也请你推荐给你身边的职场朋友哦，感谢你~