【原】会计必看！早点知道，你就不用哭了

1.将重要的Excel文档，自动备份

已经记不起多少次，某某学员将某份重要文件的内容修改或删除，然后保存，到处求助怎么恢复。

重要资料，记得备份！备份！备份！

手工备份就不说了，来个全自动备份的。当你点保存的时候，自动另存为一份在D:\重要文件这个文件夹。

保存的文件名都是以当前的时间命名，这样就可以找到任意时间段的，再也不用担心出问题。

按快捷键Alt+F11进入VBA后台，点ThisWorkbook，将代码复制粘贴到里面。

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

    ThisWorkbook.SaveCopyAs "D:\重要文件\" & VBA.Format(Now(), "yyyymmddhhmmss") & ".xlsm"

End Sub

蓝书字体D:\重要文件部分为路径，更改成你电脑实际的地方。如果不知道路径在哪，这里教你一招超好用的方法，快速获取路径。

选择文件夹的那个地方，复制即可。

2.将多个工作表拆分成多个工作簿

同一个工作簿存在多个工作表。

拆分后，将这些工作表变成工作簿。

按快捷键Alt+F11进入VBA后台，插入模块，将代码复制粘贴到里面。

Sub 拆分工作表()

    Dim b As Worksheet

    Excel.Application.ScreenUpdating = False

    For Each b In Sheets

        b.Copy

        Excel.ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & b.Name & ".xlsx"

        Excel.ActiveWorkbook.Close

    Next

    Excel.Application.ScreenUpdating = True

End Sub

运行代码，等待10秒钟，拆分完毕。

再一次见证了VBA的强大，思想有多远，VBA就能走多远。

推荐：总表新增数据，自动拆分到分表，最简单的方法！

上篇：万能透视表，有什么是你做不到的？

作者：卢子，清华畅销书作者，《Excel效率手册 早做完，不加班》系列丛书创始人，个人公众号：Excel不加班。