舞狮音乐
Sub 拆分工作表()鱼和豆腐
Dim sht As Worksheet
Application.DisplayAlerts = Fal
For Each sht In Worksheets
sht.Copy
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & sht.Name & ".xls"
会计六要素 ActiveWorkbook.Clo
打雪仗的拼音Next
生产技术培训Application.DisplayAlerts = True
End Sub
拆分流程：
1.右键任一工作表名称，选定全部
世界上最帅的逆行
2.再右键一次，查看代码
3.干部评价ctrl C+ctrl V 上文（红字），此时红圈内变成“拆分工作表”
4.左键绿三角开始
苏老泉
5.等待完成
