Software  
 
Conhecimento computador >> Software >> Microsoft Access >> 
Como procurar duplicatas no Excel Visual Basic
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.

Anterior :

Próximo : No
  Os artigos relacionados
·O que é o Word Excel 
·Como alterar a fonte em uma tabela do Microsoft Access 
·Como usar o VB6 para formatar as células em uma planil…
·Como formatar um campo tabela do Access Microsoft 
·Como Nomear um objeto gráfico no Excel 
·Como excluir relações de tabela no Microsoft Access 
·Como desativar a barra de ferramentas Acesso Rápido 20…
·Como fazer um histograma contínua no Excel 
·Problemas com tarefas agendadas no Microsoft Access 
·Como fazer um gráfico do Excel Com um Negativo e Eixo …
  Artigos em destaque
·Como transferir discos ou cassetes para CDs 
·Diferença entre WMA e MP3 
·Como fazer backup de um sistema de computador em uma un…
·Como configurar itens em QuickBooks 
·Como converter WMV para MPEG4 em um Mac 
·Como escrever palavras em torno de um círculo no InDes…
·Como fazer Objetivos na Quicken 2011 
·Como abrir e ler arquivos Zip 
·Como posso fazer backup de um servidor Novell para Read…
·Como aumentar o tamanho do campo em SQL 
Cop e direita © Conhecimento computador http://ptcomputador.com Todos os Direitos Reservados