整个工作薄所有工作表的某列数据不重复

杏花村牧人 · 发表于 2018-6-9 09:21

请大神帮我解决一下：

1、整个工作薄所有工作表的某列数据（比如b列），从B3：B65535 (b1:b2是表头，内容当然一样)，录入数据后，回车，执行检查：不允许与工作薄中任一工作表的这一区域有重复，包括正在录入的这张表以上的数据，总之，就像身证份，所有工作表的B3:B65535区域不能重复，发现重复时，弹出警告窗口，单击确定后，重新输入！

2、工作表不断添加，新添加的工作表，代码对其仍然有效！

3、新添加的工作表表名，可以随意填写

谢谢大家!

chxw68 · 发表于 2018-6-9 09:35

一、遍历工作簿其他所有工作表，将B列数据记入字典d1
二、利用工作表事件Change，将本表B列数据记入字典d2，然后判断最新输入的内容是否在字典d1和d2中，如果存在则发出提示。

扑腾 · 发表于 2018-6-9 09:39

你的意思是B3以下单元格每次录入数据及触发，在我现有的认知和水平下，随着数据量增大，越往后就越慢了，不是长久之计。可能需要高手用数据库来解决个问题比较好

杏花村牧人 · 发表于 2018-6-9 09:42

对，单元格每次录入数据及触发！不过数据不会太多，所有子表，以及将来不断添加的表，预计也就2000多条记录，不会太多！谢谢关注！

杏花村牧人 · 发表于 2018-6-9 09:44

麻烦chxw68 老师给出代码，谢谢！

杏花村牧人 · 发表于 2018-6-9 09:51

再加一个功能就完美了：当回车后，发现刚才录入的数据与本表或其它工作表已有的数据重复时，弹出警告，警告内容为：对不起，您刚才录入的数据与 “XXXX表的B1253单元格重复！请认真检查！”。。。。当然，我刚才说的B1253只是例子。。。。也就是说，能报出跟谁重复了。。。这就完美了，谢谢

朱荣兴 · 发表于 2018-6-9 10:41

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

chxw68 · 发表于 2018-6-9 10:44

杏花村牧人发表于 2018-6-9 09:44
麻烦chxw68 老师给出代码，谢谢！

没有附件怎么编写代码？

杏花村牧人 · 发表于 2018-6-9 12:32

好吧，我把附件上传上来了，谢谢

杏花村牧人 · 发表于 2018-6-9 12:33

附件在9楼！！！谢谢

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

[求助] 整个工作薄所有工作表的某列数据不重复

评分

朱荣兴朱荣兴当前离线性别保密 UID 1318548 阅读权限 0 注册时间 2011-2-2 在线时间小时最后登录 1970-1-1 积分 19282 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2018-6-9 10:41 来自手机 \| 显示全部楼层 [广告] ★Excel Home云课堂 - 专业的职场技能充电站★ ★Excel三大利器★ ★ 笨办法学VBA全系列★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报