拆分工作表为工作薄需要用宏来处理

Excel 内 按 Alt+F11 视图--代码窗口，

把如下复制进去 按F5运行即可

请这个Excel 放到一个文件夹内操作， 默认生成到当前文件夹

Sub fencun()

Application.ScreenUpdating = False

b = Sheets.Count

For i = 1 To b

Sheets(i).Copy

a = ThisWorkbook.Worksheets(i).Name

With ActiveWorkbook

.SaveAs Filename:=ThisWorkbook.Path & ＂\＂ & a & ＂.xlsx＂

.Close

End With

Next i

Application.ScreenUpdating = true

End Sub

效果如下例：