Remover duplicados em varias colunas ao mesmo tempo


#1

Pessoal,
Boa tarde! Preciso da ajuda de vocês. Tenho uma planilha com cerca de 200 colunas no Excel 2016 e gostaria de remover os valores duplicados em cada uma delas no menor número de operações possível, sendo que os dados das colunas são independentes entre si. Gostaria de fazer a operação em lotes para ganhar tempo, automatizar o processo e reduzir a chance de erros de manipulação, mas todas as minhas tentativas têm sido frustradas até aqui.
Já tentei:

  • Remover Duplicatas do Excel 2010 e 2016 : só funciona se for fazer uma coluna a cada vez (o que é impraticável dado a quantidade de colunas);
  • Filtro Avançado marcando a opção de Copiar Valores Exclusivos: ele não consegue remover tudo (há colunas com até 150 registros e apenas 100 exclusivos).

#2

Veja se isso atende:

Sub Remover_Duplicadas()
For Each colunas In ActiveSheet.Columns
If WorksheetFunction.CountA(colunas) <> 0 Then
colunas.RemoveDuplicates Columns:=1, Header:=xlNo
End If
Next
End Sub

Remover Duplicadas.xlsm (17,0 KB)


#3

André, muitíssimo obrigado, era isso mesmo que precisava, venho buscando essa ferramenta a muito tempo, valeu irmão!!