VBAは対応するより高い値に基づいて重複行を削除します

Question

以下のリストがあります。

z LL ST 
1 40 160 
2 40 51 
3 35 77 
4 39 100 
5 34 78 
6 39 89 
7 33 49 
8 31 80 
9 35 101 
10 38 57 
11 32 52 
12 40 84 
13 37 102 
14 40 135 
15 31 55 
16 34 59 
17 40 115 
18 35 62 
19 40 168 
20 39 68 
21 37 67 

LLの重複値を持つ行を削除したいが、最も大きなST値を持つ行を削除したい。たとえば、対応するST = 160のものを除いて、すべてLL = 40が削除されます。重複を削除する方法を見つけましたが、私の問題に固有のコードは見つかりません。助けてくれてありがとう。

Answer 1

コードを探している人は、ここをクリックしてください。助けてくれてありがとう。

Sub Macro1() 
' 
' Macro1 Macro 
' 

' 
    Range("A2:M23").Select 
    ActiveWorkbook.Worksheets("Scratchsheet (2)").Sort.SortFields.Clear 
    ActiveWorkbook.Worksheets("Scratchsheet (2)").Sort.SortFields.Add Key:=Range(_ 
     Cells(3, 11), Cells(23, 11)), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _ 
     xlSortNormal 
    ActiveWorkbook.Worksheets("Scratchsheet (2)").Sort.SortFields.Add Key:=Range(_ 
     Cells(3, 12), Cells(23, 12)), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _ 
     xlSortNormal 
    With ActiveWorkbook.Worksheets("Scratchsheet (2)").Sort 
     .SetRange Range(Cells(2, 1), Cells(23, 12)) 
     .Header = xlYes 
     .MatchCase = False 
     .Orientation = xlTopToBottom 
     .SortMethod = xlPinYin 
     .Apply 
    End With 
    ActiveSheet.Range(Cells(2, 1), Cells(23, 12)).RemoveDuplicates Columns:=11, Header:=xlYes 
End Sub