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

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

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天免费试用，无限制！