excel表格中一列有很多重复项，如何把重复项多余的去掉，只要其中一个 怎样把重复项多余的删除不了

excel2003如何用vba删除不重复项，提取重复部分的内容（删除多余项，重复里留一条不重复的）？ 假设身份2113证号码在A列，将重复5261要留下的一个在B列标记：Sub aa()Dim d1，d2n=Range("a65536")....