大家一定都遇到过一个Excel中有多个工作表，需要拆分出来一个个存档，数量少的时候可以手动，但是偶尔又会忘记自己存到哪一个了，这个时候VBA的宏命令就可以很好的帮助我们解决这个问题
具体实现方法
- 开启开发工具功能，设置方法是点击文件----选项----自定义功能区,勾选开发工具选项卡。
- 点击Visual Basic，点击插入----模块
- 复制以下代码，保存
Sub saveSheet()
Dim sht As Worksheet
Application.ScreenUpdating = False
Application.DisplayAlerts = False
ipath = ThisWorkbook.Path & "\"
For Each sht In Sheets
sht.Copy
ActiveWorkbook.SaveAs ipath & sht.Name & ".xlsx"
ActiveWorkbook.Close
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
- 点击宏，选择saveSheet，执行即可
关注我们，未来会有更多职场上软件操作的小技巧
