
按住 Alt+F11弹出以下界面

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
运行结果:

网友评论