Unique (Mükerrer olmayan) kayıtları göster

[tespihhh]

Exceldeki bir hücrede(ki bu hücrede 10000 tane falan kayıt var) bir sürü sicil numarası var. A colonundaki bu sicilleri kontrol edip aynı olanlar varsa onları gösterecek. Belki kırmızıyla aynı olan satırları gösterir yada bilmiyorum. Bunu yapabilmek icin bir yol varmı?

Ekteki gibi sayılar var mesela o örnek olsun dedim 4 ve 16. sayılar aynı olunca bunları nasıl gösterebilir. bunun icin makromu ne lazım. yardım icin teşekkürler.

 

[N.Ziya Hiçdurmaz]

Yanıt

A sütünunda aynı olan verilerin biri hariç diğerlerini kırmızı yapar.

Sub TEST()
For SUT = 1 To Cells(65536, "A").End(3).Row
Cells(SUT, "A").Interior.ColorIndex = xlNone
If WorksheetFunction.CountIf(Range("A1:A" & SUT), Cells(SUT, "A")) > 1 Then
Cells(SUT, "A").Interior.ColorIndex = 3
End If
Next
End Sub

 

[Recep İpek]

Bu bölümü incelemenizi tavsiye ederim.

http://www.excel.web.tr/forumdisplay.php?f=120