Soru 190 bin satırlık bir excelde koşullu biçimlendirme problemi

[miadanoz]

Merhaba,

190 bin satırlık bir excel verim var. Yinelenen değerleri tespit etmek istiyorum (silmek değil tespit etmek) fakat koşullu biçimlendirme feci kasıyor. Mause hareket ettiremiyorum.

Koşullu biçimlendirme votatile olduğu için sanırım. bu sorunumu nasıl aşabilirim ?

Yardımcı olabilirseniz sevinirim.

edit: çözüm olarak if count denedim o da kasıyor =(

 

[tukayf]

Koşullu bicimlendirmeyi butona atayın. Gerektiğinde kullanın sonra kodu durdurun. Ya da kodla mükerrer kayıtları yeni bı sayfada listeleyin. Aklıma gelen bunlar.

 

[Merhum İdris SERDAR]

.
Veriler B1:B190000 aralığında ise ve renklendirme kırmızı olacaksa;

Sub Tekrarrenk()
Dim aln As Range
Dim hcr As Range
Set aln = Range("B1:B190000")
For Each hcr In aln
              If WorksheetFunction.CountIf(aln, hcr.Value) > 1 Then
              hcr.Interior.ColorIndex = 3
              End If
Next

End Sub

şeklinde bir kod deneyebilirsiniz.

Silmek için de:

Sub Temizle()

Range("B1:B190000").Select
With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With

End Sub

kodunu yazabilirsiniz.

.