Como remover linhas duplicadas e manter apenas as que contêm os valores mais altos no Excel?

Suponha que tem uma tabela como a apresentada na imagem seguinte. Este método irá mostrar-lhe uma macro VBA para remover linhas duplicadas com base numa coluna específica, mantendo apenas os registos com os valores mais altos noutra coluna no Excel. Siga os passos abaixo:

1. Prima em simultâneo as teclas Alt+F11 para abrir a janela do Microsoft Visual Basic for Applications.

2. Clique em Inserir > Módulo e cole o código seguinte na nova janela do Módulo que abrir.

VBA: Remover Linha duplicada e manter os valores mais altos

Public Sub DelDupes()
Dim xFilterRg As Range
Dim xCriteriaRg As Range
Dim xAddress As String
Dim xSUpdate As Boolean
On Error Resume Next
xAddress = Application.ActiveWindow.RangeSelection.Address
Set xFilterRg = Application.InputBox("Please select a range:", "Kutools for Excel", xAddress, , , , , 8)
If xFilterRg Is Nothing Then Exit Sub
Set xFilterRg = Application.Intersect(ActiveSheet.UsedRange, xFilterRg)
If xFilterRg Is Nothing Then Exit Sub
On Error GoTo 0
xSUpdate = Application.ScreenUpdating
Application.ScreenUpdating = False
Set xCriteriaRg = ActiveSheet.Cells(1, xFilterRg.Column + xFilterRg.Columns.Count).Resize(2)
xCriteriaRg.Resize(1).Offset(1).Formula = "=COUNTIF(" & xFilterRg(2, 1).Address & ":" & _
xFilterRg(2, 1).Address(False, False) & "," & _
xFilterRg(2, 1).Address(False, False) & ")>1"
With xFilterRg
.Sort key1:=xFilterRg.Cells(1, 1).Offset(0, 1), order1:=xlDescending, Header:=xlYes
.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=xCriteriaRg
.Offset(1).SpecialCells(xlCellTypeVisible).EntireRow.Delete
.Parent.ShowAllData
End With
xCriteriaRg.Clear
Application.ScreenUpdating = xSUpdate
End Sub

3. Prima a tecla F5 ou clique no botão Executar para executar esta macro VBA.

4. Aparecerá agora uma caixa de diálogo. Por favor, selecione as colunas em que pretende remover linhas duplicadas e nas quais deseja conservar os valores mais altos, e clique no botão OK.

No nosso caso, vamos remover linhas duplicadas com base na coluna Fruta e manter os valores mais altos na coluna Quantidade; por isso, selecionei as colunas Fruta e Quantidade, tal como mostrado na imagem anterior.

Depois, verá que as linhas duplicadas foram removidas com base na coluna Fruta, mantendo-se os valores mais altos das frutas correspondentes na coluna Quantidade. Veja a imagem:

Notas:

(1) O intervalo limitado deve começar na coluna com base na qual pretende remover as linhas duplicadas.

(2) Esta macro VBA só consegue manter os valores mais altos na coluna imediatamente seguinte à utilizada para remover as linhas duplicadas.

(3) Esta macro VBA não é compatível com o Microsoft Excel 2007.

A macro VBA descrita acima poderá não ser suficientemente fácil para alguns utilizadores e apenas permite manter os valores mais altos na coluna imediatamente a seguir à coluna de critérios. Contudo, a funcionalidade Mesclar Linhas Avançado do Kutools para Excel ajudá-lo-á a resolver este problema com facilidade.

1. Selecione a tabela da qual irá remover linhas duplicadas e manter os valores mais altos (no nosso caso, selecione A1:C24) e clique em Kutools > Mesclar e Dividir > Mesclar Linhas Avançado.

2. Na caixa de diálogo «Combinar Linhas Baseado em Coluna» que se abre, configure-a da seguinte forma:

(1) Selecione a coluna Fruta (pela qual irá Remover duplicatas linhas) e, em seguida, clique no botão Chave Primária;

(2) Selecione a coluna Quantidade (na qual pretende manter os valores mais altos) e, em seguida, clique em Calcular > Máx.

(3) Defina as regras de combinação para as colunas restantes, conforme necessário.

3. Clique no botão Ok. Depois, verá que todas as linhas duplicadas foram removidas com base na coluna Fruta e apenas os valores máximos das frutas correspondentes foram mantidos na coluna Quantidade. Veja a imagem:

A utilidade Mesclar Linhas Avançadodo Kutools para Excel permite-lhe facilmente Combinar Linhas com base numa coluna e, em seguida, calcular outras colunas com base nessa mesma coluna, por exemplo, Soma, Contagem, Máx, Mín, Produto, etc.Clique para experimentar gratuitamente durante 60 dias, sem limitações!