VBA-多sheet的单个工作簿，拆分成多个单sheet工作簿

VBA-多sheet的单个工作簿，拆分成多个单sheet工作簿

多sheet的单个工作簿，拆分成多个单sheet工作簿，生成的工作簿名字为源sheet名。

小练习，5句就可以实现这个功能。

Sub a()
Dim sht As Worksheet 

For Each sht In Sheets 
   sht.Copy
   ActiveWorkbook.SaveAs "G:\VBA\data\" & sht.Name & ".xlsx"
   ActiveWorkbook.Close
Next
End Sub 

现学现卖，热乎的。