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

hwc2ycy

四、实战

1.去除重复值

数据源：

思路：

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

代码：

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

思考：

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

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

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

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

拓展：

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

yqnh

大小写，是不是用d.CompareMode
Collection对象，我得学习前面部分了
不用字典去重，我要学习

yewei113

支持{:35:}

tingfeng461002

xdada

Collection对象，我得学习前面部分了

含月化烛

越来越不懂了

cpq151721

总算对字典有点点了解了，唉，才发现自己以前重复项用countif是多么的累

yymbaby

看不懂

2828466

为啥图片不显示啊