Somente complementando o tópico, o código também poderia ser escrito com esta instrução, que no caso elimina todos os valores duplicados da coluna A.
Sub Elimina2()
ActiveSheet.Range("A:A").RemoveDuplicates Columns:=1, Header:=xlNo
End Sub
Postado : 19/10/2012 8:51 am