Notifications
Clear all

Identificar Duplicados em VBA

4 Posts
3 Usuários
0 Reactions
1,132 Visualizações
(@jeferson_r)
Posts: 34
Eminent Member
Topic starter
 

Olá Pessoal!
Sou novo no VBA.
Pra identificar valores duplicados eu utilizo a fórmula =SE(CONT.SE($B$2:B2;B2)>1;"Duplicado";"Único") ....onde a coluna “B” a partir da linha 2 de Cima par Baixo(essa ordem é importante) ela valida....

Ex.: tenho uma base com as colunas: Data “coluna A” / Nome “coluna B”/ Valor “coluna C”/ Duplicado? “coluna D”
... na célula B7 tenho o nome “Helena”
... na célula B8 também tenho “Helena”
... na célula D7 me traz como Valor `”Único”... já na “D8” me traz “Duplicado”...
Nota.. se eu tivesse na célula B9 nomamente o nome “Helena” o excel me traz “Duplicado” em “D9” ..

*Ou seja, apenas a primeira linha o Excel traz como valor único.. as próximas linhas ele diz que é Duplicado, quando encontra o mesmo Nome Repetido.

*Aos amigos Fera em VBA, tem como rodar em VBA?

*Segue planilha de exemplo em anexo.

Novamente fico muito grato pela ajuda.

Vlwww !

 
Postado : 19/08/2016 7:21 am
brunoxro
(@brunoxro)
Posts: 698
Honorable Member
 

Boa tarde Jeferson_R,

Você quer que uma forma de colocar essa formula em cada linha com VBA?

No arquivo em anexo você pode conferir um modo, o código já vai colocar a formula dentro das regras.
Realize o teste com mais dados e de retorno.

att,

 
Postado : 19/08/2016 1:32 pm
(@mprudencio)
Posts: 2749
Famed Member
 

Vc quer identificar o duplicado para excluir?

Se sim o excel faz isso sozinho nao precisa de vba

Basta selecionar a planilha Dados > Remover Duplicados

Escolha a coluna que deve ser levado em conta e pronto.

Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

 
Postado : 19/08/2016 4:02 pm
(@jeferson_r)
Posts: 34
Eminent Member
Topic starter
 

brunoxro

Obrigado

Funcionou certinho!

 
Postado : 22/08/2016 11:48 am