Tüm Sayfadaki Mükerrer Kayıtları Silmek

[gehlen]

Elimde bulunan 12 sütun (A-O) ve toplam 168.000 civarında hücresi dolu olan bir excel dokümanında (Excel 2007) bazı değerler 2 ve daha fazla tekrarlanmış durumda. Tüm çalışma sayfasını,tüm sütunları tarayıp 1 den fazla olanlarını silecek makro arıyorum. Zamanım çok kısıtlı olduğu için örneklere çok bakamadım.

Teşekkürler şimdiden.

 

[Korhan Ayhan]

Selamlar,

2007 versiyonunda mükerrer kayıtları temizlemek için eklenmiş bir menü bulunmaktadır. Fakat ben tam olarak yerini bilemiyorum. Araştırırsanız ulaşabilirsiniz.

 

[gehlen]

Re

teşekkür ederim. Veri sekmesindeki yinelenenleri kaldır ı kastediyorsanız bir ütrlü istediğimi yapmadı.

Acil yardım bekliyorum.Teşekkürler şimdiden...

 

[Korhan Ayhan]

Selamlar,

Küçük bir örnek dosya ekleyerek verilerinizin ilk halini ve olması gereken halini dosyanızda açıklarsanız yardım almanız kolaylaşacaktır.

 

[gehlen]

re

excel dokümanım şu an "önceki" haldeyken, "sonraki" haline dönüşmesini istiyorum.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Option Explicit
 
Sub MÜKERRER_VERİLERİ_TEMİZLE()
    Dim SATIR As Long, SÜTUN As Byte
 
    For SÜTUN = 1 To 15
        For SATIR = 1 To Cells([COLOR=red]1048576[/COLOR], SÜTUN).End(3).Row
            If WorksheetFunction.CountIf(Range(Cells(1, 1), Cells([COLOR=red]1048576[/COLOR], SÜTUN)), Cells(SATIR, SÜTUN)) > 1 Then
                Cells(SATIR, SÜTUN) = Empty
            End If
        Next
    Next
 
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[gehlen]

compile error veriyor, ayrıca sütunlar arasında 90.000 satırı olan da var...

 

[Korhan Ayhan]

Selamlar,

Kodu deneyerek göndermiştim. Koddaki kırmızı renkli değerleri azaltarak deneyin.

 

[gehlen]

Şu an çalışıyor ve beni büyük bir dertten kurtarıyor. (sanırım biraz sürecek) Çok teşekkür ederim.