listedeki aynı isimleri listeleme

[juniourfalcon]

Arkadaşlar elimdeki listede aynı olan isimleri başka bir yerde listelemek istiyorum
bunu hangi formülle yapabilirim acaba..

 

[Murat OSMA]

Bu kodları kullanabilirsiniz..

[FONT="Trebuchet MS"][SIZE="2"]Sub Emre()
    For i& = 2 To Range("A65536").End(3).Row
        If WorksheetFunction.[COLOR="Red"]CountIf[/COLOR](Range("A2:A" & i), Cells(i, 1).Value)[COLOR="Red"] = 1 [/COLOR]Then
            sat = sat& + 1
            Cells(sat, "H").[COLOR="red"]Resize[/COLOR](, [COLOR="red"]5[/COLOR]).Value = Cells(i, 1).[COLOR="red"]Resize[/COLOR](, [COLOR="red"]5[/COLOR]).Value
        End If
    Next i
End Sub[/SIZE][/FONT]