excel2003如何用vba删除不重复项，提取重复部分的内容（删除多余项，重复里留一条不重复的）？ 假设身份2113证号码在A列，将重复5261要留下的一个在B列标记：Sub aa()Dim d1，d2n=Range(\"a65536\").End(xlUp).RowSet d1=CreateObject(\"Scripting.Dictionary\")Set d2=CreateObject(\"Scripting.Dictionary\")i=1：j=1For Each c In Range(\"a1：a\"&n)If c=\"\"Then GoTo line1irow=c.RowIf d1.exists(c.Value)=False Thend1.Add c.Value，ii=i+1ElseIf d2.exists(c.Value)=False Thend2.Add c.Value，jCells(irow，2)=\"重复(留下)j=j+1End Ifline1：Next cEnd Sub以B列为主关键字进4102行排1653序，把没有\"重复(留下)\"标记的删除即可，当然，用代码去删除不需要的数据，也是可以的。
Excel中如何删除多余的重复项，Excel中会有很多重复项，一个个删除太麻烦了，可以快速的操作
怎么删除重复项，在数据表格中可能会有重复的内容，如果是多余的就要删除掉
