Saiba como usar o método Remove Duplicates para permitir a remoção de linhas em uma planilha. Este tutorial mostra, no entanto, como fazer isso, usando um pequeno código VBA.
Método Remove Duplicates - introdução
Este exemplo mostra como usar o método Remove Duplicates para permitir a remoção de linhas duplicadas de um intervalo de dados.
Cada amostra de código é composta de cerca de 5 a 50 linhas de código que demonstram uma característica distinta ou conjunto de recursos, tanto em VBA ou VB e C # (criado no Visual Studio 2010).
Cada amostra inclui comentários descrevendo a amostra e código de configuração para que você possa executar o código com os resultados esperados ou os comentários irá explicar como configurar o ambiente para que o código de amostra seja executado.
Microsoft Office 2010 dá-lhe as ferramentas necessárias para criar aplicativos poderosos. O Microsoft Visual Basic for Applications (VBA) exemplos de código pode ajudar você a criar seus próprios aplicativos que executam funções específicas ou como um ponto de partida para criar soluções mais complexas.
Criando o exemplo no uso do Remove Duplicates
O Range.RemoveDuplicates método permite remover linhas duplicadas de uma série de dados. Você pode especificar se a tratar a primeira linha como uma linha de cabeçalho e você pode especificar quais colunas fornecer os dados originais. Neste exemplo, gerar alguns dados, visualize os dados, e depois remover todos, mas as linhas exclusivas, com base no nome e colunas de Preços.
No Excel 2010, em um novo livro, copiar todo este código para o módulo de classe Sheet1. Coloque o cursor no procedimento, e pressione F8 para única etapa através do código.
Veja o Exemplo a Seguir para remover duplicatas
Sub TestRemoveDuplicates()
' Set up the data:
Range("A1:C1") = Array("ID", "Name", "Price")
Range("A2:C2") = Array(1, "North", 12)
Range("A3:C3") = Array(2, "East", 13)
Range("A4:C4") = Array(3, "South", 24)
Range("A5:C5") = Array(4, "North", 12)
Range("A6:C6") = Array(5, "East", 23)
Range("A7:C7") = Array(6, "South", 24)
Range("A8:C8") = Array(7, "West", 10)
Range("A9:C9") = Array(8, "East", 23)
' Make sure you look at the current state of the data,
' before removing duplicate rows.
' Remove duplicates, looking for unique values in columns 2 and 3.
UsedRange.RemoveDuplicates Columns:=Array(2, 3), Header:=xlYes
End SubEste foi um exemplo básico, para remoção de linhas, de uma planilha de Excel. Se você tiver mais alguma dúvida, pode deixar um comentário. Compre livros de Excel!
