大家一定都遇到过一个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,执行即可
关注我们,未来会有更多职场上软件操作的小技巧