[Excel]自动收集微信群聊天记录的E-mail

Excel用得好，是一个神器；用得不好，仅仅是一个电子表格。之前写过一篇 采取编程思维使用Excel——用秒收班费来抛砖引玉 就是体现Excel是个神器。其实Excel功能无比强大、用途很广，很多小伙伴只用到它冰山一角的功能，其价值未得到最大程度的发挥，很多重复工作都可以通过Excel来实现，尤其是会一点VBA for Excel，更是如此。

几个月前参加一个管理培训，课后助教需要将课件通过邮件发给大家。小伙伴在群里发邮箱给助教，情况是五花八门。有的直接发个邮箱，有的邮箱后面带一句话，有的是一句话后带自己的邮箱，有的邮箱是夹在聊天记录中间。助教需要在聊天记录中一个个记录邮箱然后拷贝到发件人，进行批量发送。

当时觉得这个工作纯属重复劳动，助教需要经常做。本着举手之劳帮助教的想法，主动申请说可以做到邮箱自动收集。本来以为可以通过Excel的函数快速解决这个问题，但深入研究之后才发现Excel函数解决不了这个问题。主要困难在于没有Excel函数可以将汉字和ASCII码字符（邮箱由数字、字母和特殊字符组成，均为ASCII码）进行区分，需要通过VBA实现。于是动手编写VBA函数，汉字和ASCII码字符的区别是汉字区位码的十进制值小于0，而ASCII码处于0～255之间，通过这点就可以将聊天记录中的邮箱字符和聊天汉字区分。然后将邮箱前后的空格去掉，就得到了干净的邮箱名字；最后通过Excel的数组将分析出来的邮箱归并到一起，整个工作就完成了90%。编写完成之后，实现了聊天记录的邮箱收集功能，VBA代码仅仅27行。

聊天记录邮箱收集器

若更进一步处理，可以将“所有邮箱”列处理为逗号分隔的邮箱字符串，直接复制到收件人栏发邮件，一步到位。

聊天记录邮箱收集器下载链接：https://yunpan.360.cn/surl_y3apje9GHmL （提取码：63eb）