Caso queira extrair apenas os dados únicos de um range via VBA, por exemplo "A1:A10", e copiar para o Range"B1" basta usar o filtro exclusivo conforme abaixo:
Range("A1:A10").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range( "B1"), Unique:=True
Obrigado pela visita!
www.exceleaccess.com
contato@exceleaccess.com
www.exceleaccess.com
www.exceleaccess.com
www.exceleaccess.com