makro ile yinenlenen değerleri bulma

[mata hari]

Merhaba,

"C" sütunundaki yinelenen değerlerin tamamına, yanına açmış olacağım boş sütunda herhangi bir değer vermesini istiyorum.Amacım aynı olan hücreleri filtreleyip başka bir çalışma kitabına kopyalamak.Koşullu biçimlendirmede işimi görebilirdi ancak satır sayım yaklaşık 150.000 ve uygulayamıyor.Bununla ilgili olarak elinizde makro ile yazdırabileceğimiz bir formül var mıdır?
Teşekkürler.

 

[Merhum İdris SERDAR]

.

Aşağıdaki kod C1:C200000 arasında yinelenenleri kırmızıya boyar.

Sub renklendir()

Dim hcr As Range
Dim aln As Range
Set aln = Range("c1:c200000")

For Each hcr In aln
    If WorksheetFunction.CountIf(aln, hcr.Value) > 1 Then
        hcr.Interior.ColorIndex = 3
    End If

Next hcr


End Sub

.

 

[mata hari]

Yaklaşık yarım saattir makronun halen kaydetme işleminin tamamlamamış olması normal midir? Eksik yada yanlış yaptığım bir şey olabilir mi? daha önce çok daha fazla sayıda satır ve sütun içeren çalışmalara makro uyguladım ama hiç bu kadar uzun sürmemişti.Acaba değer değilde renklendirme içeren kriter belirlendiği için olabilir mi?