Excel | 多个工作表另存为单独文件

大家一定都遇到过一个Excel中有多个工作表，需要拆分出来一个个存档，数量少的时候可以手动，但是偶尔又会忘记自己存到哪一个了，这个时候VBA的宏命令就可以很好的帮助我们解决这个问题

具体实现方法

1. 开启开发工具功能，设置方法是点击文件----选项----自定义功能区,勾选开发工具选项卡。
2. 点击Visual Basic，点击插入----模块
3. 复制以下代码，保存

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

4. 点击宏，选择saveSheet，执行即可

关注我们，未来会有更多职场上软件操作的小技巧