1. Veriyi seçme 2. Aynı sütunda bulunan değerleri seçmek için sütun seçilir veya hücre aralığı belirlenir 2.
2. "Koşullu Biçimlendirme"yi kullanma 25. "Anasayfa" sekmesi tıklanır ve "Koşullu Biçimlendirme" seçeneği seçilir 2. "Koşul" olarak "Tekrarlanan Değerler" seçeneği seçilir 25. Aynı değerlere sahip hücreler belirginleşecektir 2.
3. Verileri işleme 2. Aynı değerlere sahip hücreler vurgulandıktan sonra, bu hücreler işlenebilir 2. Örneğin, farklı bir sayfaya kopyalanabilir 2.

Sub Mükerrer_Kayıtları_Bul()
    Dim Evn As Range, i As Integer
    For Each Evn In Range("A2:A" & Range("A65536").End(3).Row)
        For i = 2 To Range("A65536").End(3).Row
            If Evn.Value = Cells(i, "B") Then
                Evn.Interior.ColorIndex = 44
                Cells(i, "B").Interior.ColorIndex = 44
            End If
        Next i
    Next Evn
    Set Evn = Nothing: i = Empty
End Sub
Kopyala