A sütunundan fazlalıkları silme

[arrow36]

Merhaba
A stununda aynı olan sayılardan, b stunundaki sayının max unu algılayarak diğerlerini silmesinin istiyorum örnek verecek olursam
a * b
21 - 1
22 - 2
22 - 3
22 - 4
23 - 5
23 - 6
24 - 7
25 - 8

b stunu herdaim artan sıralamadır. 22 lerden 22-2 ve 22-3 ü silecek, 23-5 i de silecek böylece yeni sıralama

a * b
21 - 1
22 - 4
23 - 6
24 - 7
25 - 8 olacak.

Teşekkürler

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

Sub sil()
son = [a65536].End(3).Row
For a = son To 2 Step -1
If WorksheetFunction.CountIf(Range("a" & a & ":a" & son), Cells(a, "a")) > 1 Then
Rows(a).Delete
End If
Next
End Sub