【原】一个工作簿拆分多个工作表的办法用VBA-代码

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