会计必看！早点知道，你就不用哭了( 二 )
文章图片
按快捷键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就能走多远 。
VIP
888
元 ， 一次报名 ， 所有视频课程 ， 终生免费学 ， 提供一年在线答疑服务 。
文章图片
报名后加卢子微信chenxilu2019
， 发送报名截图邀请进群 。
推荐：总表新增数据 ， 自动拆分到分表 ， 最简单的方法！
上篇：万能透视表 ， 有什么是你做不到的？
文章图片
聊一聊付费与免费的差别？
文章图片
文章图片
作者：卢子 ， 清华畅销书作者 ， 《Excel效率手册 早做完 ， 不加班》系列丛书创始人 ， 个人公众号：Excel不加班（ID：Excelbujiaban）
文章图片
请把「Excel不加班」推荐给你的朋友
【会计必看！早点知道，你就不用哭了】无需打赏 ， 请点在看↓↓↓
推荐阅读
- 海之声天津狮子林大街|七日瘦身汤的做法 懒人必看瘦身法
- 注册会计师|青岛首个注册会计师、税务师行业联合党委在城阳区成立
- 求婚|【2020求婚必看】13个女生讨厌的求婚方式
- 考生|中华会计网校：关于2020年高会无纸化考试的12个问题
- 暑假|家长孩子必看！暑假来了，这份安全提醒“拍了拍”你
- 推荐|今天多地电影院开门，片单来了！其中这部“大片”必看
- 大巴车|开车必看！高速突遇爆胎，大巴车司机做了这件事，几十位乘客安然无恙！
- 妇科苏医师|花生壳别乱扔了，用水泡一泡，能解决很多人的问题，要早点了解
- 会计母亲|会计母亲婆婆违规领救助资金 当事人被党内严重警告
- 李高雷|从中国人口迁徙，看未来10年哪些城市能崛起！（拿地买房必看）