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