如何在 Excel 中删除重复行，仅保留其中的最高值？

假设您有一个如下图所示的表格。本方法将为您介绍一个 VBA 宏，用于在 Excel 中根据某一列删除重复行，并仅保留另一列中的最高值。请按以下步骤操作：

1. 同时按下 Alt+F11 键，即可打开 Microsoft Visual Basic for Applications 窗口。

2. 单击插入> 模块，并将以下代码粘贴到新打开的模块窗口中。

VBA：删除重复行并保留最高值

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. 按下 F5 键，或单击运行按钮即可运行此 VBA。

4. 此时会弹出一个对话框，请选择您要根据其删除重复行并保留最高值的列，然后单击确定按钮。

在我们的示例中，我们将依据“水果”列删除重复行，并在“数量”列中保留最大值，因此我选择了如上图所示的“水果”列和“数量”列。

随后，您将看到重复行已根据“水果”列被删除，并保留了每种水果在“数量”列中的最高值。如下图所示：

注意：

（1) 所选限定区域必须以您要依据其删除重复行的列开头。

（2) 此 VBA 仅能保留紧邻删除依据列后一列中的最高值。

（3) 此 VBA 无法在 Microsoft Excel 2007 中使用。

上述 VBA 对某些用户而言可能不够简便，且仅能在依据列之后的列中保留最高值。但 Kutools for Excel 的高级合并行工具可轻松帮您解决此问题。

1. 选择您要删除重复行并保留最高值的表格（本例中为 A1:C24），然后点击 Kutools > 合并和拆分 > 高级合并行。

2. 在弹出的“合并行基于列”对话框中，请按如下方式配置：

（1) 选择“水果”列（即您要据此删除重复行的列），然后单击主键按钮；

（2) 选择“数量”列（即您要保留最高值的列），然后单击计算> 最大值。

（3) 根据需要为其他列指定组合规则。

3. 单击确定按钮后，您将看到所有重复行已根据“水果”列被删除，且每种水果在“数量”列中仅保留最大值。参见下图：

Kutools for Excel 的高级合并行工具可轻松根据某一列合并行，并基于该列对其他列进行求和、计数、最大值、最小值、乘积等计算。立即点击获取 60 天免费试用，无任何限制！