EXCEL REMOVER DUPLICADOS, MAS MANTER O RESTO?

Olá e obrigado antecipadamente a qualquer pessoa que pode me ajudar!

Para que esse tipo de pergunta foi solicitado um milhão de vezes, mas não consigo encontrar muito o que eu preciso: Então, basicamente eu tenho uma planilha que tem esta aparência:

1
1
2
3
3
4
4
5
6
6

O que eu gostaria de ser capaz de fazer é remover todas as duplicatas que significa o 1,1; 3,3; 4,4; 6,6 e manter o original 2 e 5.

Todos os outros fóruns mostram como remover duplicados para que cada número é exibido uma vez mas quero remover todas as cópias e manter o que nunca foi uma cópia.

Eu tenho o Office Excel 2007.

Agradeço muito qualquer ajuda!

Resposta

Aqui está uma maneira pode eliminar ambas as 'duplicates' simplesmente clicando duas vezes qualquer célula.

Copie o manipulador de eventos para a área de transferência:

Private void Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

Dim LastRow I

LastRow = Range ("A" & Rows. Count).End(xlUp).Linha

Application.ScreenUpdating = False

Para i = 1 To LastRow

Se as células (i, "A").Valor <> "", em seguida,

Se Application.CountIf(Range("A:A"), Cells (i, "A").Value) > 1 então

Células (i, "A").Interior. ColorIndex = 37

End If

End If

Próximo

Para i = LastRow To 1 Step -1

Se as células (i, "A").Interior. ColorIndex = 37, em seguida,

Células (i, "A").EntireRow.Delete

End If

Próximo

End Sub

Selecione a planilha que contém os dados e clique com o botão direito na guia da planilha.

Selecione 'Ver código'.

Cole o manipulador de eventos para a área de edição à direita.

Feche o VBE e retornar à planilha.

Para excluir as duas duplicatas clique duas vezes qualquer célula. Se mais dados são adicionados mais tarde, contendo duplicatas, apenas clique duas vezes qualquer célula novamente.

Inscrever - receber um email se alguém adiciona novas respostas/comentários

Comentários

Diego Chiovitti na 19 Set 2012

Poderia selecionar o conteúdo e usar a função de formatação condicional para mostrar os duplicados, feito isso, manualmente poderás excluir os duplicados. A função Duplicados mantém 1 e remove os duplicados, que de acordo com seu exemplo não é o que procura. Espero ter ajudado

Responder

O seu comentário

Acho que a resposta não está correta ou que você gostaria de acrescentar mais
alguma informação? Envie o seu comentário abaixo..