Tekrarlanan Satırları Silmeden Farklı Renkte Gösterme

[leventyarali]

Merhaba Arkadaşlar,

Ek'te yer alan dosyada B Sütununda(Mail bölümü) tekrarlanan satırları altalta ve farklı renkte görmek ve istersek birini silmek istiyoruz.

Örneğin Ek'teki dosyada bulent@deneme.com B2 ve B6'da mevcut. Bunlar alt alta ve sarı olarak listelenirse inceleyip birini silebilir ya da değiştirebiliriz.

Yardımlarınız için şimdiden teşekkürler.

 

[dEdE]

Merhaba,

Aşağıdaki kodları dener misiniz?

Sub ayır()
ss = [B65536].End(3).Row
    Range("A1:E" & ss).Sort Key1:=Range("B2"), Order1:=xlAscending, Header:= _
        xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
For i = 1 To ss
    If Cells(i, 2).Value = Cells(i + 1, 2).Value Then
        Rows(i).Interior.ColorIndex = 6
        Rows(i + 1).Interior.ColorIndex = 6
    End If
Next
End Sub

 

[Ali]

Aşağıdaki linki inceleyiniz.

Mükerrer (Çift) Kayıt Engelleme,Sayma Örnekleri

.

 

[leumruk]

Bir alternatif de benden:

Sub Dene()
Sat = Cells(65536, "b").End(3).Row
Cells(Sat, "b").Interior.ColorIndex = 0
For i = 2 To [b65536].End(3).Row
If WorksheetFunction.CountIf(Range(Cells(2, "b"), Cells(Sat, "b")), Cells(i, "b")) > 1 Then
Cells(i, "b").Interior.ColorIndex = 6
End If
Next i
Range("A2:E" & Sat).Sort Key1:=Range("B2")
End Sub