Office按照Sheet页拆分Excel文件

1、先只打开你所要拆分的那个文件

2、按Alt+F11

3、点击左侧文件栏里的【ThisWorkbook】

4、然后将下方代码贴到执行文本框里

5、最后点击上方运行按钮，等待即可

Sub 拆分工作表()
    Dim i
    Dim sht As Worksheet
    Application.DisplayAlerts = False
    For Each sht In Sheets
        sht.Copy
        i = ThisWorkbook.Path & "\" & sht.Name & ".xlsx"
        ActiveWorkbook.SaveAs i
        ActiveWorkbook.Close
    Next
    Application.DisplayAlerts = True
    MsgBox "工作表生成文件完成！", vbOKOnly, "提示"
End Sub