Yardım Bir Değere Göre Yinelenenleri Kaldırma

Merhabalar herkese, yinelenenleri kaldırmakla ilgili bir sorum var:

M sütunundaki yinelelen değerlere göre A sütununa kadar olan aralıktaki tüm değerleri kaldırabilir miyim? M sütunundaki yinelenen değerlerden yalnız bir tane (unique) değer kalmasını istiyorum ve M sütununa bağlı kopya değerlere bağlı satırların tümünü kaldırmak istiyorum.

Şimdiden teşekkür ederim.

merhaba;
sayfanın kod bölümüne;

Sub mükerrer_satır_sil()
Application.ScreenUpdating = False
On Error Resume Next
sonn = Range("m65536").End(xlUp).Row
For i = sonn To 1 Step -1
If WorksheetFunction.CountIf(Range("m" & sonn & ":m" & i), Cells(i, "m")) >= 2 Then
Rows(i).Delete
End If
Next i
Application.ScreenUpdating = True
MsgBox "İşlem TAMAM.", vbInformation
End Sub

Kodlarını yerleştirin ve bir butona bağlayarak deneyin. (Bu kodlar son veri hariç m sütununa göre tüm satırı siler.)

Yada yine sayfanın kod bölümüne;

Sub mükerrer_aralık_sil()
Application.ScreenUpdating = False
On Error Resume Next
sonn = Range("m65536").End(xlUp).Row
For i = sonn To 1 Step -1
If WorksheetFunction.CountIf(Range("m" & sonn & ":m" & i), Cells(i, "m")) >= 2 Then
Range("A" & i & ":m" & i).Select
Selection.Delete Shift:=xlUp
End If
Next i
Range("m1").Select
Application.ScreenUpdating = True

Kodlarını yerleştirin ve bir butona bağlayarak deneyin. (Bu kodlar son veri hariç m sütununa göre aralığı siler.)

İyi çalışmalar.