ALT+F11进入VBA界面,依次菜单插入模块 输入以下代码,最后点击进行 分拆后的文件与当前文件同文件下,分拆文件与sheet同名 Sub分拆() Dim sh As Worksheet Application.DisplayAlerts = False For Each sh In Worksheets sh.SaveAs ThisWorkbook.Path &"\" &sh.Name Next Application.DisplayAlerts = True End Sub 如果还有问题,可以百度HI我