Como remover linhas duplicadas, mantendo apenas o registo com a data mais recente no Excel?
Tenho um intervalo de dados que contém alguns Valores Duplicados na coluna A, e a coluna B está preenchida com algumas datas. Agora, preciso remover os Linha duplicada da coluna A, mas manter a data mais recente da coluna B correspondente, conforme mostrado na seguinte captura de ecrã. Tem alguma boa ideia para resolver este problema no Excel de forma rápida e fácil?
Remover Valores Duplicados e manter a data mais recente noutra coluna com código VBA
Remover Valores Duplicados e manter a data mais recente noutra coluna com Kutools para Excel
Remover Valores Duplicados e manter a data mais recente noutra coluna com código VBA
O seguinte código VBA pode ajudá-lo a remover células duplicadas, mantendo a data mais recente de outra coluna. Siga os passos abaixo:
1. Mantenha premidas as teclas ALT + F11 e abrir-se-á a janela do Microsoft Visual Basic for Applications.
2. Clique em Inserir > Módulo e cole a seguinte macro na janela do Módulo.
Código VBA: Remover Valores Duplicados e manter a data mais recente
Sub test()
'updateby Extendoffice
Dim xRng As Range
Dim xTxt As String
On Error Resume Next
xTxt = Application.ActiveWindow.RangeSelection.Address
Set xRng = Application.InputBox("please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
If xRng Is Nothing Then Exit Sub
If (xRng.Columns.Count < 2) Or (xRng.Rows.Count < 2) Then
MsgBox "the used range is invalid", , "Kutools for Excel"
Exit Sub
End If
xRng.Sort key1:=xRng.Cells(1, 1), Order1:=xlAscending, key2:=xRng.Cells(1, 2), Order2:=xlDescending, Header:=xlGuess
xRng.RemoveDuplicates Columns:=1, Header:=xlGuess
End Sub
3. Em seguida, prima a tecla F5 para executar este código e surgirá uma caixa de diálogo a solicitar que selecione o intervalo de dados que pretende utilizar. Veja a captura de ecrã:
4. Depois, clique em OK e os valores duplicados na coluna A serão removidos, mantendo a data mais recente na coluna B, conforme pretendido. Veja a captura de ecrã:
Nota: Para aplicar com sucesso o código acima, a coluna que contém os valores duplicados deve estar posicionada à esquerda da coluna das datas.
Remover Valores Duplicados e manter a data mais recente noutra coluna com Kutools para Excel
Se não estiver familiarizado com códigos, não se preocupe. A poderosa ferramenta – Mesclar Linhas Avançado do Kutools para Excel – ajuda-o a resolver esta tarefa com facilidade.
Após instalar o Kutools para Excel, por favor, proceda da seguinte forma:
1. Selecione o intervalo de dados do qual pretende remover duplicatas, mantendo a data mais recente de outra coluna.
2. Em seguida, clique em Kutools > Mesclar e Dividir > Mesclar Linhas Avançado. Veja a captura de ecrã:
3. Na caixa de diálogo Combinar Linhas Baseado na Coluna, clique no nome da coluna em que pretende remover os valores duplicados e, de seguida, clique em Chave primária. Veja a captura de ecrã:
4. Continue a clicar no nome de outra coluna cuja data mais recente pretende manter e, em seguida, clique em Calcular > Máx. Veja a captura de ecrã:
5. Em seguida, clique no botão Ok para fechar esta caixa de diálogo. Agora, verá que os nomes duplicados na coluna A foram removidos e apenas a data mais recente na coluna B correspondente foi mantida. Veja a captura de ecrã:
Kutools para Excel– Potencie o Excel com mais de 300 ferramentas essenciais, tornando o seu trabalho mais rápido e fácil, e aproveite as funcionalidades de IA para um processamento de dados mais inteligente e uma maior produtividade.Obtenha Já
Demonstração: Remover Valores Duplicados e manter a data mais recente noutra coluna com Kutools para Excel
As Melhores Ferramentas de Produtividade para o Office
Potencie as suas competências no Excel com Kutools para Excel e experimente uma eficiência como nunca antes.Kutools para Excel Oferece mais de 300 funcionalidades avançadas para impulsionar a produtividade e Economizar Tempo.Clique aqui para obter a funcionalidade de que mais precisa...
Office Tab Traz uma interface com separadores para o Office e torna o seu trabalho muito mais fácil
- Ative a edição e leitura com separadores no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novos separadores da mesma janela, em vez de em janelas separadas.
- Aumente a sua produtividade em 50 % e elimine centenas de cliques do rato todos os dias!
Todos os suplementos Kutools — num único instalador.
Kutools for Office reúne suplementos para Excel, Word, Outlook e PowerPoint, além do Office Tab Pro, sendo a solução ideal para equipas que trabalham em várias aplicações do Office.
- Pacote tudo-em-um— suplementos para Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Um instalador, uma licença— configuração em minutos (pronto para MSI)
- Funciona melhor em conjunto— produtividade simplificada em todas as aplicações do Office
- Teste gratuito de 30 dias com todas as funcionalidades— sem registo, sem cartão de crédito
- Melhor relação qualidade-preço— poupe face à compra individual dos suplementos