Microsoft Excel 2010 pode-se destacar valores duplicados através de um pré- definir comando formatação condicional, mas se você precisa encontrar as duplicatas usando uma macro , você pode usar o Visual Basic for Applications (VBA) , que é construído em Microsoft Excel. Enquanto VBA não tem uma função que irá encontrar duplicatas , você pode explorar a função CONT.SE para descobrir quais as células manter informações duplicadas . Instruções
1
Abra o arquivo do Microsoft Excel 2010 que contém os dados que você deseja verificar se há duplicatas. Quando a planilha aparece, pressione " Alt " e " F11 " para carregar o console VBA.
2
clique com o botão direito do mouse em sua planilha no lado esquerdo da tela VBA. Passe o mouse sobre "Inserir" e escolha a opção " Módulo ". Clique duas vezes no novo módulo que aparece algumas linhas abaixo da planilha.
3
Coloque o cursor no espaço em branco do lado direito da tela. Digite " Sub Dupecheck ()" e pressione enter. VBA entrará automaticamente o comando " End Sub " para você.
4
Coloque o cursor na linha entre o "Sub" e linhas " End Sub" . Digite as seguintes linhas de código: . .
Dim x As Long Dim
EndRow As Long
EndRow = Range (" A50000 ") End ( xlUp ) Row < br >
Este código irá criar duas variáveis, " EndRow " e " x", e , em seguida, estabelece o valor para " EndRow ". Este código irá procurar através de 50.000 linhas em uma única coluna, mas se você precisa para olhar através de mais linhas , basta aumentar para 50.000 o número que você precisa. Este código também é projetado para olhar através da coluna "A", mas você pode simplesmente mudar "A" a qualquer coluna de carta que você precisa.
5
Coloque o cursor na próxima linha e insira o seguinte código :
Para x = EndRow Para 1 Step -1
Se Application.WorksheetFunction.CountIf (Range ( ". A1: A" & x) , Range (" A" & x ) Texto )> 1 Então
Range (" A" & x). Interior.Color = RGB ( 200 , 160, 35)
End If
Próxima x < br >
Este é o coração do código que vai olhar através de cada célula e determinar se uma célula idêntica existe acima dele. Se ele encontrar uma duplicata , ele vai virar uma cor amarela do fundo da célula . Você pode alterar todas as ocorrências de "A" se você está trabalhando em uma coluna diferente . Você também pode alterar os três números após o " Interior.Color " para mudar a cor da célula se transforma .
6
Clique no "x " no canto superior direito da tela para fechar o console VBA . Clique na guia "Desenvolvedor" no topo da tela. Localize o botão "Macro" no lado esquerdo da faixa de opções e clique nele. Selecione " Dupecheck " a partir da lista de macros disponíveis e clique em " Executar". Excel irá agora destacar cada duplicar na coluna de dados.