tablodan aynı verileri ayıklayıp yazdırmak

[absent]

merhabalar arkadaşlar
excelde range("A1:J10") olmak üzere değişik 18 sayının tekrarlanarak oluşturulduğu bir tabloda vba yardımıyla bu 18 sayının ayıklanarak excele yazdırıldığı ve aynı zmanda her saynın kaç kere tekrarlandığını belirten bir makro konusunda yardımcı olabilirseniz sevinirim...anlatabilmişimdir umarım...şimdiden teşekkürler..

 

[Orion1]

Ekli dosyayı inceleyiniz.

Sub mükerrer()
Dim hucre As Range, sat As Long, adr As String, tekrar As Long
Range("K2:L65536").ClearContents
sat = 2
For Each hucre In Range("A1:J10")
    adr = Range(Cells(1, "K"), Cells(sat - 1, "K")).Address
    If WorksheetFunction.CountIf(Range(adr), hucre.Value) = 0 Then
        tekrar = WorksheetFunction.CountIf(Range("A1:J10"), hucre.Value)
        Cells(sat, "K").Value = hucre.Value
        Cells(sat, "L").Value = tekrar
        sat = sat + 1
    End If
Next
End Sub

 

[absent]

çok teşekkürler..makbule geçti saolun..