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.