Testa att först sorterar filen med ID stigande och Värde sjunkande, så att t.ex alla 11767 kommer efter varandra med det högsta värdet först (START->redigering->Sortera och filtrera->Anpassad...).

Sen raderar du dubletter med hjälp av DATA->ta bort kolumner->( ID)

Blir det som du vill? Excel behåller den första förekomsten av alla ID-dubletter. Eftersom filen är sorterad efter fallande värden så = det högsta värdet.

Om det funkar för dig så blir makrolösningen någonting i stil med:

Sub högsta dubletter ()

Dim rOmråde As Range

Dim koll 

'Du måste bestämma tabellområde.
' i det här exemplet antar vi att du står i en cell i
' tabellen och sen chansar vi på att CurrentRegion expanderar rätt
' En cell i tabellen .
' Ta bort om du vill välja manuellt

Set rOmråde = Selection.CurrentRegion

' bekräfta att det ser ut att vara rätt område

rOmråde.Select

koll = MsgBox("är rätt område valt?", vbOKCancel)

If koll = vbCancel Then Exit Sub

' ta bort gamla sorteringsinställningar

ActiveSheet.Sort.SortFields.Clear

' Sortera

rOmråde.Sort key1:=rOmråde.Columns(1), Order1:=xlAscending, _

key2:=rOmråde.Columns(2), Order2:=xlDescending, Header:=xlYes

'Ta bort dubletter (behåller första förekomsten, dvs det högsta värdet i kolumn 2)

rOmråde.RemoveDuplicates Columns:=1, Header:=xlYes

End Sub