EXCEL用VBA代码拆分sheet为新EXCEL文件
新文件用sheet名命名，sheet为当前sheet名Sub Macro1() Dim sht As Worksheet Application.ScreenUpdating = False Application.DisplayAlerts = False For Each sht In Sheets sht.Copy ActiveWorkbook.SaveAs Fi
