将多个sheet页拆分成多个单独的excel

1、按住ALT + F11键打开Microsoft Visual Basic for Applications窗口或者是在sheet页的名字处右键，点击查看代码

2、 点击插入>模块，并将以下代码粘贴到模块窗口中。

Private Sub 分拆工作表()Dim sht As WorksheetDim MyBook As WorkbookSet MyBook = ActiveWorkbookFor Each sht In MyBook.Sheetssht.CopyActiveWorkbook.SaveAs Filename:=MyBook.Path & "\" & sht.Name, FileFormat:=xlNormal '将工作簿另存为EXCEL默认格式ActiveWorkbook.CloseNextMsgBox "文件已经被分拆完毕!"End Sub

3、按F5运行代码