按职业拆分表格，公式写到哭，Vba一循环全搞定！( 三 )
相当于点一下筛选按钮 。
到此 ， 完整的代码就出来了 。
Sub 拆分表格()
Call 删除
Dim i As Integer
For i = 2 To Sheets.Count
Sheets(1).Range("$A$1:$G$93").AutoFilter Field:=4, Criteria1:=Sheets(i).Name
Sheets(1).Range("$A$1:$G$93").Copy Sheets(i).Range("a1")
Sheets(1).Range("$A$1:$G$93").AutoFilter
Next
End Sub
Sub 删除()
Dim i As Integer
For i = 2 To Sheets.Count
Sheets(i).Cells.Delete
Next
End Sub
文章图片
最终效果动画 。
文章图片
这里留一个小练习给你 ， 区域目前是按固定的 ， 而实际上区域是会变动的 ， 参考昨天的文章 ， 将Range("$A$1:$G$93")
改成通用的 。
链接：
https://pan.baidu.com/s/1jFBZmtvoelpXUzwT6RGU9A
提取码：pgfj
VIP
888
元 ， 一次报名 ， 所有视频课程 ， 终生免费学 ， 提供一年在线答疑服务 。
文章图片
报名后加卢子微信chenxilu2019
， 发送报名截图邀请进群 。
推荐：一键搞定！根据总表生成多个分表 ， 根据分表生成目录
上篇：超完美的现金日记账汇总表 ， 你值得拥有！
文章图片
随意聊聊 。
文章图片
作者：卢子 ， 清华畅销书作者 ， 《Excel效率手册 早做完 ， 不加班》系列丛书创始人 ， 个人公众号：Excel不加班（ID：Excelbujiaban）
文章图片
请把「Excel不加班」推荐给你的朋友
无需打赏 ， 请点在看↓↓↓
推荐阅读
- 红主播|女子失踪小区现网红主播，操守失准枉顾职业伦理
- |老年照护职业技能等级考评青岛首秀 合格率超九成
- 职业技能竞赛|年薪可达50万元？全媒体运营师被称“最有潜力的职业之一”
- 职业选手|VG处罚乐言，这个瓜你吃到了吗？
- 主播|女子失踪小区现网红主播，操守失准枉顾职业伦理
- 舞蹈|湖南艺术职业学院五年制招生专业
- 主打|人社部发布了“老年人能力评估师”等9个新职业，他们给老人能力打分
- 海螺卖房|职业房东大揭秘：这些方法可以快速卖掉你的二手房
- 发文|赵金昊赛前自制表格，赛后发文，扯下了《大脑》压力赛制的遮羞布
- 重庆工业职业技术学院机械工程与自动化学院开展暑期"三下乡"社会实践活动|青春心向党，我是行动者