Software  
 
Conhecimento computador >> Software >> Microsoft Access >> 
Como remover duplicatas de Excel Macro
A entrada duplicada no Microsoft Excel é uma entrada em uma coluna ou linha que coincide com outras entradas na mesma coluna ou linha. Você pode querer remover essas entradas duplicadas para reforçar os seus dados , mas você não pode fazer isso manualmente , especialmente se você tem centenas de células de dados . Infelizmente, se você estiver trabalhando no Microsoft Office Excel , especialmente Excel 2002 e Excel 2003 , a remoção de entradas duplicadas em colunas ou linhas automaticamente não é óbvia. Instruções Como construir uma macro para remover primeira coluna Duplicatas
1

Navegue até Ferramentas na barra de ferramentas e para baixo para Macro . Para a direita, encontrar o Editor do Visual Basic e clique esquerdo do mouse sobre ele. Uma vez no Editor do Visual Basic, encontrar o drop-down que permite a você criar um formulário de usuário , Module ou Módulo de Classe . Escolha " . Module"
2

Copie e cole o seguinte na caixa de edição que se abre : Sub DelDups_OneList () Dim iListCount Como IntegerDim ICTR As Integer ' Desligue atualização da tela para acelerar macro.Application . ScreenUpdating = False 'Get contagem de registros para pesquisar through.iListCount = Sheets (" Sheet1" ) Range ( "A1: A100 " ) . . . . Rows.CountSheets ( "Sheet1" ) Range ( "A1") Selecione ' Loop até Até final de records.Do ActiveCell = "" 'Loop através records.For ICTR = 1 To iListCount ' Não comparar contra si mesmo. ' Para especificar uma coluna diferente , mudar um para a coluna número.Se ActiveCell.Row < > Sheets ( " Sheet1" ). Células ( ICTR , 1). Linha Then ' Faça a comparação dos próximos record.If ActiveCell.Value = Sheets ( "Sheet1" ) . Cells ( ICTR , 1). Valor Then ' Se jogo for verdade, então apagar row.Sheets ( " Sheet1" ) . Cells ( ICTR , 1). excluir xlShiftUp " Incremento do contador para dar conta excluída row.iCtr = ICTR + 1End IfEnd IfNext ICTR ' Ir para a próxima record.ActiveCell.Offset (1 , 0). SelectLoopApplication.ScreenUpdating = TrueMsgBox " Feito ! " End Sub
3

Clique em "Arquivo " e depois " Fechar e voltar para Microsoft Excel. " Quando voltou para o Excel, procure a opção Tools na barra de ferramentas e , em seguida, para Macros. Para a direita, escolha a opção " Macros " . Na caixa de opção Macro , consulte a macro chamada DelDups_OneList . Escolha "Options" e atribuir uma tecla de atalho de "q ". Clique em " OK".
4

Clique em " Executar". "Concluído" aparecerá. As entradas duplicadas na primeira coluna são excluídos.
5

Porque você tiver configurado a tecla de atalho para Ctrl + q , você só precisa digitar Ctrl + q no futuro e as entradas duplicadas na sua primeira coluna de dados será removida.

Anterior :

Próximo : No
  Os artigos relacionados
·Como adicionar uma linha a uma planilha do Excel 
·Como converter pés para metros em Excel 
·Como converter um arquivo do Excel para o Word no Offic…
·Como adicionar etiquetas no Excel 2007 
·Microsoft Excel Tutorial Visual Basic 
·Microsoft Excel Linking Problemas 
·Funções estatísticas do Excel 
·Como enviar e-mail usando o Excel 2007 VBA 
·Como Ajustar texto no Microsoft Excel 2003 
·Por que não pode ver todo meu texto em uma célula do …
  Artigos em destaque
·Como fazer sua própria partitura 
·Como instalar um WD Anywhere Backup 
·Como limpar Autorizações no iTunes 
·Se eu registro no Garage Band em um Mac, Como faço par…
·Como reparar um arquivo RMVB 
·Como fazer backup em uma unidade flash 
·Função Microsoft Excel SOMASE : Como desenhar um cale…
·Como software de backup para um USB 
·Como redefinir o registro QuickBooks 
·Como usar a ferramenta Warp em Adobe Illustrator 
Cop e direita © Conhecimento computador http://ptcomputador.com Todos os Direitos Reservados