点击上方蓝字「Excel不加班」关注，看下一篇
今天，卢子根据VIP学员的问题，分享2段好用的代码。
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就能走多远。
VIP888元，一次报名，所有视频课程，终生免费学，提供一年在线答疑服务。
报名后加卢子微信chenxilu2021，发送报名截图邀请进群。
聊一聊付费与免费的差别？
作者：卢子，清华畅销书作者，《Excel效率手册 早做完，不加班》系列丛书创始人，个人公众号：Excel不加班（ID：Excelbujiaban）
请把「Excel不加班」推荐给你的朋友
无需打赏，请点在看↓↓↓
