Remover conteúdo duplicado de uma coluna sem apagar as linhas

Question

Ola Pessoal,
eu tenho uma coluna com o nome de CdChamado que contem varios valores repetidos e a cada linha tem informações diferentes.
exemplo:
cdchamado /
2345          
2345
2345
5678
5678
5678
queria colar em uma outra coluna apenas os números exclusivos sem vim duplicado.
será que tem como ?

segundo exemplo de como eu espero conseguir ajuda

cdchamado /   cdchamdo2

  2345          2345          
  2345          5678
  2345
  5678
  5678
  5678

---

Ednilton Santos

Answer 1

Olá Ednilton!

Existe uma ferramenta nativa do Excel que faz exatamente isto que você deseja: Aba "Dados" -> "Remover duplicatas"

Se quiser utilizar essa ferramenta através do VBA, basta gravar a macro e ajustar o código conforme sua necessidade. Um modelo de código suponde que o Cdchamado é um intervalo nomeado:

Sub Remover_Duplicado()

    Range("CdChamado").Copy
    Range("C1").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Selection.RemoveDuplicates Columns:=1, Header:=xlYes
    
End Sub

Abraços!

---

Rafael Kamimura

Answer 2

Rafael, 

Eu to utilizando o Power Pivot, e esse código só pega nas colunas que não estão transformadas em dados, será que é possível fazer essa codigo funcionar nesses casos? quanto tentei executar inicialmente deu o erro 400, quando fiz o teste jogando uma coluna que ainda não estava convertida em dados ai pegou.

---

Ednilton Santos

Answer 3

"Eu to utilizando o Power Pivot, e esse código só pega nas colunas que não estão transformadas em dados"

Não entendi sua explicação, poderia explicar de uma forma diferente?

---

Felipe Costa Gualberto - http://www.ambienteoffice.com.br