删除重复行但保留最高值

Question

我有 8 个带有数据的 Columns，Column 1 中有多个重复项，其他列有值和文本。

我想保持Column 5 的最高值并从Column 1 中删除重复项。

您的帮助将不胜感激。

Sub KeepHighvalue()

Dim MyRange As Range
Dim LastRow As Long
Dim Sht1 As worksheet
Set Sht1 = Worksheets("Sheet1") 
LastRow = Sht1 .Range("A" & Rows.Count).End(xlUp).Row
Set MyRange = Sht1 .Range("A1:A" & LastRow)
MyRange.RemoveDuplicates Columns:=1, Header:=xlYes

End Sub

usaupload.com/5g09/Data.xlsx

Answer 1

假设可以对数据进行排序（并假设我通过保持最高值正确解释了您的意思），以下是解决问题的一种方法。它将删除行（在定义的 8 列数据中，从 A1 开始），其中数据在 A 列中重复，在 E 列中保留具有最高值的行 (5)。

Sub KeepHighvalue()

    Dim lgLastRow&, rgData As Range
    
''' Set target data area (rgData)
    With Worksheets("Sheet1")
        lgLastRow = .Range("A" & .Rows.Count).End(xlUp).Row
        Set rgData = .Range("A1:H" & lgLastRow)
    End With

''' Remove rows with duplicates in column 1, keeping rows with highest values in column 5
    With rgData
        .Sort Key1:=.Columns(5), Order1:=xlDescending, Header:=xlYes
        .RemoveDuplicates Columns:=1, Header:=xlYes
    End With

End Sub

如果排序不正确，解决方案会稍微复杂一点。

==================================================== ==========
编辑：之前和之后的示例
==================================================== ==========