【烟花原创】VBA零基础之第130篇字典（七）

四、实战

1.去除重复值

数据源：

思路：

利用字典中关键字的唯一性，把上述单元格中的内容一一作为关键字添加到字典中，完成后再导出到单元格中，代码完成后通过消息框告知使用者处理完成。

代码：

注意：上面代码因为是取巧，在实际中建议尽可能少的修改字典中的条目。

思考：

如果相同字母的大小写视为一个，如何修改？

如果换成用Collection对象如何实现该功能？

如果不借助字典和Collection对象，在VBA中如何实现去重复？

考虑模块化，通用性，改成函数（参数的搭配），方便重复使用？

拓展：

今天在论坛上看到个WORD问题，楼主是用的是正则来去除重复段落，结果代码执行后效率很低，反应慢（WORD直接无响应），试着用字典来解决，20多页的文章几秒就完成了，去除重复后就只有5页。