Notifications
Clear all

Excluir repetidos ou copiar dados unicos plan2

5 Posts
2 Usuários
0 Reactions
1,013 Visualizações
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Pessoal, boa noite estou com um problema na planilha em anexo, tenho dados na coluna A que repetem gostaria de eliminar estas duplicidades sendo transferindo para outra plan ou excluindo os mesmos da plan1.
Detalhe preciso que fiquem os valores que na coluna B forem os menores dos dados repetidos da colunaA, se persistir duplicidade a unica coluna que ira fazer a diferenciação sera a coluna K.
Então seria eliminar duplicidade da coluna A seguindo criterios de desempate a coluna B e por ultimo a coluna K.
Pode ser por macro ou uma solução por fomulas....

Grato pelas dicas ...

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 25/04/2012 4:16 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Veja se o artigo abaixo te ajuda em algo:

Dica de VBA - Eliminando valores em duplicidade
http://www.planilhando.com.br/index.php ... &Itemid=64

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 26/04/2012 4:39 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Beleza, caiu como uma luva o codigo, agora so vou criar a parte de classificação para ficar perfeito.
Grato pela dica....

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 26/04/2012 8:15 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

:D Como foi resolvido.

TÓPICO RESOLVIDO

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 26/04/2012 9:15 am
hronconi
(@hronconi)
Posts: 314
Reputable Member
 

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

Henrique
http://henriqueronconi.wix.com/consultoria

Espero ter ajudado! ;)

 
Postado : 19/10/2012 8:51 am