按职业拆分表格，公式写到哭，Vba一循环全搞定！( 二 )
Step 02
查看刚刚录制的宏代码 。
文章图片
Range("A1").Select
就是选择A1单元格 。
Selection.AutoFilter
就是对选择的内容做筛选 ， 相当于点一下筛选按钮 。
ActiveSheet.Range("$A$1:$G$93").AutoFilter Field:=4, Criteria1:="生产"
就是对激活的工作表的区域进行筛选 ， 对区域第4列， 条件为生产的内容进行筛选 ， 也就是说实际干活的是这一句代码 。
将循环语句写上 ， 连续写了6天 ， 应该已经很熟练了 。
文章图片
将激活的工作表ActiveSheet
改成Sheets(1)
也就是第一个表 ， "生产"改成Sheets(i).Name
也就是每个工作表的名称 。
文章图片
复制到相应的表格 ， 前面的教程已经讲过 ， 就不重新录制宏 ， 知道Copy
是复制就行 。
文章图片
Step 0
3
写到这里 ， 原则上就可以完成 ， 不过不够完美 ， 先来看看运行的效果 。 先手工将原来分表的内容删除掉 ， 再操作 。
【按职业拆分表格，公式写到哭，Vba一循环全搞定！】
文章图片
前面几节课到现在删除内容都用手工 ， 现在来个自动删除的 。 所有单元格用Cells ， 删除用Delete ， 也就是Sheets(i).Cells.Delete
， 再加个循环语句 。 同一个模板中 ， 可以写很多段不同代码 。
文章图片
上面的代码可以调用下面的代码 ， 直接用Call代码名称 ， 也就是Call 删除
。
文章图片
到这里还有一个小细节 ， 操作完还有筛选的按钮 ， 别人一看就猜出你是用筛选复制完成 。
文章图片
这里可以再加一句代码实现取消筛选按钮 ， 让别人不知道你的操作过程 ， 前面已经说过 ， 这个Sheets(1).Range("$A$1:$G$93").AutoFilter
推荐阅读
- 红主播|女子失踪小区现网红主播，操守失准枉顾职业伦理
- |老年照护职业技能等级考评青岛首秀 合格率超九成
- 职业技能竞赛|年薪可达50万元？全媒体运营师被称“最有潜力的职业之一”
- 职业选手|VG处罚乐言，这个瓜你吃到了吗？
- 主播|女子失踪小区现网红主播，操守失准枉顾职业伦理
- 舞蹈|湖南艺术职业学院五年制招生专业
- 主打|人社部发布了“老年人能力评估师”等9个新职业，他们给老人能力打分
- 海螺卖房|职业房东大揭秘：这些方法可以快速卖掉你的二手房
- 发文|赵金昊赛前自制表格，赛后发文，扯下了《大脑》压力赛制的遮羞布
- 重庆工业职业技术学院机械工程与自动化学院开展暑期"三下乡"社会实践活动|青春心向党，我是行动者