Yinelenen Hücre Kodu Yardım

[csahin189]

Merhabalar A sütununda yinelenen hücrelerin sayısını A sütunun en altta boş kalacak hücreye yazdıracak makronun kodunu yazabilir misiniz? Şimdiden teşekkürler.

 

[Emir Hüseyin Çoban]

. . .

Benzersiz liste sayısını verir;

Sub KOD()
    Dim SD As Worksheet: Set SD = Sheets("Sayfa1")
    Dim liste()
    
    son = SD.Cells(Rows.Count, "A").End(3).Row
    liste = SD.Range("A1:A" & son).Value
    
    Set dic = CreateObject("scripting.dictionary")
    For x = 1 To UBound(liste, 1)
        aranan = liste(x, 1)
        If Not dic.exists(aranan) Then
            dic.Add aranan, ""
        End If

    Next x
       
    Cells(son + 1, "A") = dic.Count
End Sub

. . .