如何在 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 天無限制免費試用！