一段简单的VBA代码,让你自如操作Excel!
抛砖引玉的场景需求:假设A列中有一列数据,数据中有大量的重复数据,重复数据也没有排序归纳在一起,现在需要从A1单元格开始从上至下一次查找,如果有重复值,第一次出现时在B列对应单元格中写入1,其它重复值,在B列对应单元格中标记为0,对于唯一值,则在B列相应单元格中标记“唯一值”。
![c770d15569a29e4aae8ffc081798e518.png](https://i-blog.csdnimg.cn/blog_migrate/2eaf3da150322ee1564612fd6b28329c.jpeg)
表格示例
![b296b8e8f76633fb7dc0871ab94dad2d.gif](https://i-blog.csdnimg.cn/blog_migrate/04701330dd7bca670f38e3f9e8fd2999.gif)
运行示例
代码示例
在标准模块中加入如下代码即可实现上面的演示功能。
Sub 重复数据处理设置标识()Dim d As ObjectDim c As RangeSet d = CreateObject("Scripting.Dictionary")'遍历A列将数据加入字典,并统计重复数量For Each c In Range("A1:A" & [a