EXCEL中一个工作薄有多个表格如何快速把它分成单个工作薄

发布于 作者:

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

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