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

 

1、按住 ALT + F11 键打开 Microsoft Visual Basic for Applications 窗口或者是在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:=xlNormal '将工作簿另存为EXCEL默认格式

ActiveWorkbook.Close

Next

MsgBox "文件已经被分拆完毕!"

End Sub

3、按F5运行代码