Filtre suas listas do Excel com uma macro de forma que várias entradas apareçam apenas uma vez em uma nova lista de destino e, assim, limpe seus dados.
Muitas listas contêm entradas duplicadas. Às vezes, é importante filtrar essas entradas de uma lista. Por exemplo, você pode usar uma lista de vendas para criar uma lista na qual cada cliente apareça apenas uma vez - isso pode ser importante para análises de mercado, por exemplo.
A tabela da figura a seguir mostra uma pequena lista do Excel com números na coluna B.
Você deseja criar uma nova lista a partir dessa lista, na qual os números não apareçam mais duas vezes. O número 21, que se encontra nas células B3, B5 e B14 da lista original, só apareceria uma vez na nova lista.
Existem várias maneiras de fazer isso com o Excel. Se quiser usar uma macro, você pode usar os seguintes comandos VBA:
Sub-lista sem duplicatas ()
Dim Source As Range
Escureça o alvo como alcance
Definir fonte = intervalo ("b1")
Definir alvo = intervalo ("d1")
Source.EntireColumn.AdvancedFilter Action: = xlFilterCopy, _
CriteriaRange: = Source.EntireColumn, CopyToRange: = Destino, Único: = Verdadeiro
End Sub
Depois de iniciar a macro, o Excel filtra a tabela e exibe a nova tabela da célula D1. A figura a seguir mostra o resultado:
Você pode ver que cada valor aparece apenas uma vez na lista de resultados.
Use a variável SOURCE para especificar a coluna de sua tabela na qual os dados estão localizados a partir da qual você deseja gerar uma nova lista sem entradas duplicadas. A macro sempre usa a coluna inteira pertencente à referência que você define com SOURCE. Use a variável para definir qualquer endereço de célula na coluna correspondente.
Com a variável TARGET você determina onde o Excel grava sua lista de resultados. A nova lista começa na posição que você especificar com esta variável.
A macro funciona com a planilha ativa para a área de origem e a área de destino.
Para inserir a macro em uma tabela, abra a pasta de trabalho correspondente e pressione a combinação de teclas ALT F11 em todas as versões do Excel para iniciar o editor VBA. Chame o comando INSERT - MODULE e insira os comandos VBA. Para iniciar a macro no Excel, use a combinação de teclas ALT F8.
