vb中的个人信息代码（为了给媳妇找出重复人名单）
vb中的个人信息代码（为了给媳妇找出重复人名单）查找重复人名单，汪星人也很上愁我虽然是个高效率追求者，偶尔接触过一些VB代码，眼看着我家领导着急上火，我也想伸手帮一把，可是我只是个初学者，好多东西我都不懂，这刚上来就让我编写代码解决这个大难题，说真的我有点懵，心里一点把握都没有，直接说不会弄显得丢范，对不起咱这个电脑高手的名号，要是硬着头皮硬揽这个活，真应了那句话：有事您说话----死要面子活受罪啊。其中有一个大村，人口约3500余人，最早这个村只有一个张大夫诊所，后来又成立了一家谢大夫诊所，因为以前没有统一的卫生管理系统，每家诊所的健康档案都是手工填写的电子表格，再加上有些居民就诊时选择的诊所不固定，有时候去张大夫那儿，有时候去谢大夫那儿呢，年头长了，这一部分居民的就诊档案就存在着两家分散记录的情况。我家领导说：现在国家要求统一建档，每一个居民健康档案都需要录入系统。一个月前张大夫已经将他诊所的档案全都录入系统了，人数1500来人。谢
我媳妇，一家乡镇卫生院副院长，平时一项重要工作就是管理辖区居民健康档案。
当前正值疫情期间，每天忙忙碌碌的，有时候还指示我给她打打下手，我都快成了她的私人助理啦。
说曹操，曹操就到，这不来活了，今天我刚下班，突然接到我家领导语音指示，让我晚上在家加加班，说她有两份人名单，让我帮她找出重复的人名来。
各位客官，您是不是一下子没听明白怎么回事？原来啊，我家领导所在卫生院下辖19个村级诊所，为了便于统一管理，每个村级诊所都需要将在本诊所就诊的居民健康档案录入到官方卫生管理系统中。有的诊所由于条件有限，就需要她亲自出马协助甚至代劳。
其中有一个大村，人口约3500余人，最早这个村只有一个张大夫诊所，后来又成立了一家谢大夫诊所，因为以前没有统一的卫生管理系统，每家诊所的健康档案都是手工填写的电子表格，再加上有些居民就诊时选择的诊所不固定，有时候去张大夫那儿，有时候去谢大夫那儿呢，年头长了，这一部分居民的就诊档案就存在着两家分散记录的情况。
我家领导说：现在国家要求统一建档，每一个居民健康档案都需要录入系统。一个月前张大夫已经将他诊所的档案全都录入系统了，人数1500来人。谢大夫录入的晚一些，但是他那儿登记在册的人数约3300余人，两个诊所合计人数明显高于本村实际人口数，所以在录入系统时，会不断提示该人员档案已建立的情况。现在的问题是：谢大夫诊所人名单中有多少是跟张大夫诊所档案重复的，如果能删除这些重复的人名单，那剩下的就是谢大夫诊所的，这样就大大降低了重复排查的工作量，要不然得一个一个的试探太麻烦了，俺们医院谁也没有快法，这不就找你来了，你看看能不能给弄个快法。老婆说完，一脸无奈又求助的表情。
要是人数不多，通过笨方法一一比对就能解决，如果比对3500多口子人，工作量太大，要不我家领导着急呢？这活搁谁头上谁不上火，大家说是不是啊。
我虽然是个高效率追求者，偶尔接触过一些VB代码，眼看着我家领导着急上火，我也想伸手帮一把，可是我只是个初学者，好多东西我都不懂，这刚上来就让我编写代码解决这个大难题，说真的我有点懵，心里一点把握都没有，直接说不会弄显得丢范，对不起咱这个电脑高手的名号，要是硬着头皮硬揽这个活，真应了那句话：有事您说话----死要面子活受罪啊。
查找重复人名单，汪星人也很上愁
不过话又说回来了，我不懂不代表别人不懂啊，那就请教高手吧，拿出手机登录头条搜索，输入"VB重复项"，
很快就弹出许多解决相关问题的帖子，虽然具体情形不一样但是处理问题的核心代码和思路是一样的，稍微研究一下，有一种醍醐灌顶、恍然大悟的感觉，非常值得借鉴，顿时感觉找到了解决问题的方向。
使用VB查找重复项的帖子很多，正是我想要的，非常方便学习和借鉴，真是太方便了。
吉人自有天象，欧耶，我不禁暗自庆幸。
闲言少叙，咱说干就干，马上编写代码，稍加调试，运行正常，结果很快就出来了，显示重复人数29个。
正当我心有窃喜、想要炫耀之时，站在身旁的媳妇说话了，这个数好像不对，然后又说肯定不对。
何以见得，不是29个，那你说说重复的人数应该是多少个？
我虽然不知道重复的人数究竟是多少个，但绝对不是29个，根据两个诊所合计人数以及我的经验，我敢断定你统计的这个数肯定有问题。
咦，人家说的有道理啊，我也感觉29个不对，可是问题出在哪儿呢？本想在媳妇面前卖卖乖，没想到头一次亮相就栽了跟头，面子上实在有些挂不住啊。
究竟哪儿不对呢，再次从上到下逐行检查代码，好像没毛病啊，难道刚才哪儿点错了，再运行一遍，还是29个。究竟是哪的事儿呢，我不禁自言自语。
媳妇站在身旁不无嘲讽的说，电脑高手，平时看你又研究代码又学习函数的，关键时刻用你一回还掉链子，你到底行不行啊？
别急嘛，我再看看，肯定没问题的，我一边嘴硬一边挠着后脑勺分析代码。心中暗自较劲，绝不能轻易认输，得想办法寻找翻身的机会。
亲爱的，怎么这么热啊，我对着旁边站着的媳妇说，你看我都热得出了汗了。
好，好，给俺们家大才子开开空调，谁让咱们今天求着人家了呢！媳妇语气里略有嘲讽。
不行，决不能轻易投降，再进入头条搜索输入"vb countif 用法"，
关于countif函数用法的帖子也很多，讲解的详实全面.
再仔细分析一下要处理的问题，忽然明白了，原来是我把countif函数中的两个参数弄反了，应该把张大夫诊所的人名单所在单元格区域输入第一个参数，把需要标注出重复值的谢大夫诊所人名单所在单元格放在第二个参数并进行遍历循环，有重复的就标注紫色，以便后续核对删除。
对，就是这个原因，立即修改代码测试，果真msgbox消息框提示“重复人数为：1350人，用时1.21秒”，并且重复的单元格被标注为紫色，那种酸爽只有程序员最有体会。
看，代码运行结果，一键直达，极速呈现，媳妇的难题终于解决了，有需要代码的请私信我
为以防万一，我又对结果进行了反复抽检，结果无一出错，媳妇，我成功啦。
老公，我要的就是这个结果，你真弄出来了，太棒了。怎么样，老婆，你老公这两下子还行吗？嗯，谢谢老公。
说真的，今天要不是我在头条搜索里查找到了有用的帖子，以后我家领导就不承认我这个电脑高手了。感谢那些发帖子的背后高手们，你们的帖子不仅帮了我大忙而且也解决了我家领导的燃眉之急，谢谢你们。
今天，满满的收获感，那感觉用一个字表达就是：爽。
