1,打开excel表，ALT+F11–>打开VBA编辑器–>插入–>模块

 

 

2,将下列代码拷贝至弹出的窗口

Sub sheet转独立文件()
Dim sht As Worksheet
Application.ScreenUpdating = False
ipath = ThisWorkbook.Path &"\"
For Each sht In Sheets
sht.Copy
ActiveWorkbook.SaveAs ipath & sht.Name
ActiveWorkbook.Close
Next
Application.ScreenUpdating = True
End Sub

 

3,按F5运行；
程序运行（鼠标一直处于转圈状态）。

说明：
根据数据多少，运行一段时间，并不是死机，一般会有几分钟时间。

 

版权声明：本文为xiaomai-rhce原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://www.cnblogs.com/xiaomai-rhce/archive/2004/01/13/13299156.html