自动从总表提取数据到新表，并且当总表新增或更新数据时，数据同步到新表

JY0818@ · 发表于 2023-5-24 09:14

求助好心人，先谢过了！

需求：自动从总表提取数据到新表并根据总表同步更新数据

（1）当F列的“部门”为“甲”时，则将“甲”所在行的数据同步填入到sheet表“部门甲”；
（2）当F列的“部门”为“乙”时，则将“乙”所在行的数据同步填入到sheet表“部门乙”；
（3）当F列的“部门”为其他名称时，也相应地生成新表。
（4）以及，当部门名称修改或删除时，对应表也会修改删除。如：部门甲改成乙时，部门甲与部门乙sheet表的数据会对应修改删除更新

3190496160 · 发表于 2023-5-24 09:55

提示: 作者被禁止或删除内容自动屏蔽

3190496160 · 发表于 2023-5-24 09:56

提示: 作者被禁止或删除内容自动屏蔽

3190496160 · 发表于 2023-5-24 09:56

提示: 作者被禁止或删除内容自动屏蔽

JY0818@ · 发表于 2023-5-24 10:58

3190496160 发表于 2023-5-24 09:55
Sub 更新分表()
Application.ScreenUpdating = False
Dim ar As Variant

辛苦了大神！感激不尽！
但是还有一个小问题能不能再麻烦你一下

1、当修改部门名称时，分表自动更新
2、当新增部门名称时，自动新增分表

辛苦你了！

JY0818@ · 发表于 2023-5-24 11:03

JY0818@ 发表于 2023-5-24 10:58
辛苦了大神！感激不尽！
但是还有一个小问题能不能再麻烦你一下

我有看到你在另外一个帖子回复的代码

那个可以自动更新

传送门：https://club.excelhome.net/threa ... tml?_dsign=3106386d

		自动登录	找回密码
密码			免费注册

3190496160 3190496160 当前离线性别保密 UID 4343875 阅读权限 0 注册时间 2020-1-10 在线时间小时最后登录 1970-1-1 积分 19382 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2023-5-24 09:55 \| 显示全部楼层 [广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★免费下载 ★ ★ 使用帮助★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报

3190496160 3190496160 当前离线性别保密 UID 4343875 阅读权限 0 注册时间 2020-1-10 在线时间小时最后登录 1970-1-1 积分 19382 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2023-5-24 09:56 \| 显示全部楼层 [广告] ★会Excel,就能做支持PC、手机、Web、App、Windows、安卓、IOS、Linux信息一体化的各种管理系统 ★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报

3190496160 3190496160 当前离线性别保密 UID 4343875 阅读权限 0 注册时间 2020-1-10 在线时间小时最后登录 1970-1-1 积分 19382 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2023-5-24 09:56 \| 显示全部楼层 [广告] ★用Excel做企业管理系统，Excel服务器学习和下载★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报