excel vba 重复值

excel vba代码 如何查找一列数据里的重复值，并在另一列里对应行中给除了最后一次出现的数据标注y
数据:a列数据ABCDabcdabcd
在b列里面除了重复值的最后一个的其他值标注y

方法很多
普通操作办法1.数据页签，高亮显示重复项
然后手工标记就好
2.vba 法：

sub test ()
dim rng as rang,dc as new dictionarey
set = createobject("scripting. dictionary")
for each rng in range("a1:a15")
dic(rng.value)= rng.value
if not dic(rng.value)="" then rng.offset(0,1)=y
next
end sub

如果我的理解不对你可以私信我