Sütun içersindeki rakamların tekrarlanma sayısı

[esmakaraman]

İyi çalışmalar arkadaşlar ; A sütunu içersinde hata kodlarım var bunlar sütun içersinde kaçkere tekrarlanmış bir tabloya hata kodu ve tekrarlama sayısı şeklinde yazdırmak istiyorum.Örnek dosyamda detaylı gösterdim yardımcı olurmusunuz.

 

[merhaba]

iyi çalışmalar umarım işine yarar

 

[N.Ziya Hiçdurmaz]

yanıt

Sub benzersiz()
Dim ast, sata, satd, s As Long
[d11:e1000] = ""
s = 11
    For sat = 1 To Cells(65536, "a").End(xlUp).Row
        If Not WorksheetFunction.CountIf(Range("a1:a" & sat), Cells(sat, "a")) > 1 Then
            Cells(s, "d") = Cells(sat, "a").Value
            s = s + 1
        End If
    Next
     For sata = 1 To Cells(65536, "a").End(xlUp).Row
     For satd = 1 To Cells(65536, "d").End(xlUp).Row
        If Cells(sata, "a") Like Cells(satd, "d") Then
           Cells(satd, "e") = Cells(satd, "e") + 1
        End If
    Next: Next
End Sub

 

[esmakaraman]

İlginiz için Teşekkür ederim Sayın Merhaba ,Peki bunu makro olarak V.basic kodlarıyla yazabilirmisiniz.Birde Tabloda Kod satırına gelen kodları sütun içersinden bulup kendi yazmasını istiyorum.Tekrar teşekkürler

 

[esmakaraman]

Çok teşekkür ederim Sayın N.Ziya Hiçdurmaz ben sorumu sorarken siz cevabı yazmışsınız .Hepinize çok teşekkürler.Saygılar