Aynı olan hücreleri sayan yada renklendiren macro

[irfanyus]

Merhaba,

Çok fazla bilgi olmasından dolayı internette tam olarak istediğin şeyi bulamadım.

Excel dosyasındaki bir sütunda geçen aynı numaralardan kaç tane olduğunu, başka bir bölüme yada dosyaya numarayı vererek karşısına aynı olanların sayısını çıkartacak bir makro yada formül arıyorum. Olmazsa bile en azından aynı olanları renklendirebilecek bir formül de olabilir.

örnek

Numara sayısı
12345 5
54321 8 gibi

kullandığım office 2003 ingilizce.

 

[Orion1]

A sütununda mükerrer kayıtları listeler ve sayar C sütunlarında listeler.

Sub mukerereler()
Dim z As Object, hcr As Range
Application.ScreenUpdating = False
Range("C:D").ClearContents
Set z = CreateObject("Scripting.dictionary")
For Each hcr In Range("A1:A" & Cells(65536, "A").End(xlUp).Row)
    If Not z.exists(hcr.Value) Then
        z.Add hcr.Value, 1
        Else
        z.Item(hcr.Value) = z.Item(hcr.Value) + 1
    End If
Next
[C1].Resize(z.Count, 2) = Application.Transpose(Array(z.keys, z.items))
Application.ScreenUpdating = True
End Sub

 

[ersoyalan]

Merhaba,

Alternatif olsun.

E.ALAN

 

[irfanyus]

teşekkür ederim şimdi işten çıkıyorum yarın deneyip sonucu yazarım

 

[irfanyus]

çok teşekkür ederim çok işimize yarayacak.

 

[ersoyalan]

Rica ederiz.

E.ALAN