2025年亞洲寵物展覽會、京寵展有哪些亮點
486
2025-03-31
如何刪除重復的行并僅在Excel中保留最高值？
如何刪除重復的行并僅在Excel中保留最高值？
例如，您在Excel中有一個購買表，作為顯示的第一個屏幕截圖。 現在，您需要根據“水果”列刪除重復的行，并將相應水果的最高值保留在“數量”列中，如第二個屏幕截圖所示。 您能想到什么解決方案嗎？ 本文將分享兩個技巧來解決它。
刪除重復的行并僅使用VBA保留最高值
刪除重復行并僅保留最高值 Kutools for Excel
根據一列中的條件輕松刪除重復的行，僅在Excel中保留最高的值
Kutools for Excels 高級組合行 實用程序可以幫助Excel用戶輕松地輕松找出另一列中每個項目的最小值的最大值。
全功能免費試用 30-天！
該高級組合行實用程序還可以按指定標記組合行和單獨的值，或組合行并計算其總和，出現次數，最大值/最小值，平均值等。
驚人的！ 在 Excel 中使用高效的選項卡，如 Chrome、Firefox 和 Safari！
每天節省50％的時間，并減少數千次鼠標單擊！
假設您有一個表格，如下所示。 并且此方法將引入VBA宏，以刪除基于某一列的重復行，并僅在Excel的另一列中保留最大值。 請執行以下操作：
1。 按 其他 + 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
Copy
3。 按 F5 鍵或單擊 運行 按鈕以運行此VBA。
4.現在出現一個對話框。 請選擇要刪除重復行并保留其中最高值的列，然后單擊 OK 按鈕。
在本例中，我們將按“水果列”刪除重復的行，并在“數量列”中保留最高的值，因此，如圖所示，我選擇了“水果”列和“數量”列。
然后，您將看到根據“水果”列刪除了重復的行，并將相應水果的最大值保留在“數量”列中。 看截圖：
:
（1）指定范圍必須以刪除重復行所依據的列開頭。
（2）此VBA只能在刪除重復行所依據的列后面保留該列中的最大值。
（3）此VBA在Microsoft Excel 2007中不起作用。
上面的VBA對于某些用戶來說可能不夠簡單，它只能保留criteria列后面的列中的最高值。 但 Kutools for Excel“ 高級組合行 實用程序將幫助您輕松輕松地解決此問題。
Kutools for Excel - 包括 300 多個方便的 Excel 工具。 全功能免費試用 30-天，無需信用卡！ 立即免費試用！
1.選擇要刪除重復行并保留最大值的表（在本例中選擇A1：C24），然后單擊 Kutools > 內容 > 高級組合行.
2.在打開的“基于列合并行”對話框中，請進行以下配置：
（1）選擇“水果”列（將刪除重復的行），然后單擊“ 首要的關鍵 按鈕;
（2）選擇“金額”列（將保留最高值），然后單擊“確定”。 計算 > max..
（3）根據需要為其他列指定組合規則。
3。 點擊 Ok 按鈕。 然后，您將看到根據“水果”列刪除所有重復的行，并且“數量”列中僅保留了對應水果的最大值。 看截圖：
高級組合行 實用程序 Kutools for Excel 可以很方便的按一列合并行，然后也可以根據這一列計算其他列，如Sum、Count、Max、Min、Product等。 點擊免費試用60天，沒有限制！
Kutools for Excel 包括適用于Excel的300多種便捷工具，可以在30天之內免費試用。 立即下載并免費試用!
最佳辦公生產力工具
將小時轉化為分鐘 Kutools for Excel!
準備好增強您的 Excel 任務了嗎？ 利用的力量 Kutools for Excel - 您終極的節省時間的工具。 簡化復雜的任務并像專業人士一樣瀏覽數據。 以閃電般的速度體驗 Excel！
為什么需要 Kutools for Excel
??? 超過 300 項強大功能: Kutools 包含 300 多項高級功能，可簡化您在 1500 多種場景中的工作。
?? 卓越的數據處理能力：合并單元格、刪除重復項并執行高級數據轉換 - 所有這些都不費吹灰之力！
?? 高效的批量操作：當你可以聰明地工作時，為什么還要付出額外的努力呢？ 輕松批量導入、導出、組合和調整數據。
?? 可定制的圖表和報告：訪問各種附加圖表并生成富有洞察力的報告。
??? 強大的導航窗格：通過強大的列管理器、工作表管理器和自定義收藏夾獲得優勢。
?? 七種類型的下拉列表：通過各種功能和類型的下拉列表使數據輸入變得輕而易舉。
?? 用戶友好：對于初學者來說輕而易舉，對于專家來說是一個強大的工具。
立即下載，與 Excel 一起穿越時空！
閱讀更多
免費下載... 采購...
Office Tab 為 Office 帶來選項卡式界面，讓您的工作更輕松
在Word，Excel，PowerPoint中啟用選項卡式編輯和閱讀，發布者，Access，Visio和Project。
在同一窗口的新選項卡中而不是在新窗口中打開并創建多個文檔。
每天將您的工作效率提高50％，并減少數百次鼠標單擊！
閱讀更多
免費下載... 采購...
版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。
版權聲明：本文內容由網絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發現本站中有涉嫌抄襲或描述失實的內容，請聯系我們jiasou666@gmail.com 處理，核實后本網站將在24小時內刪除侵權內容。
相關文章
