bir kolondaki tekerrür kayıtları teke indirmek

[bright04]

merhaba arkadaşlar
bir kolonda yaklaşık 3000 satırlık verim bulumakta. bu verilerin bazıları tekürrürdür. bunları teke indirmem gerekiyor.
yardımlarınız için teşekkürler

 

[Recep İpek]

Merhaba,

Ekteki dosyayı inceleyebilirmisiniz?

A kolonundaki kayıtları B kolonuna tek olarak yazar.

Kolay Gelsin.

 

[Levent Menteşoğlu]

Alternatif olarak aşağıdaki kodu deneyin. A sütununa göre çalışır ve mükerrer kayıtlara ait satırı tümüyle siler. Bu sebeple denemeyi dosyanızın kopyası üzerinde yapmanızı öneririm.

[vb:1:8b5c7c7dc0]Sub sil()
For a = [a65536].End(3).Row To 1 Step -1
If WorksheetFunction.CountIf(Range("a1:a" & a), Cells(a, "a")) > 1 Then Rows(a).Delete
Next
MsgBox "işlem tamamlandı"
End Sub
[/vb:1:8b5c7c7dc0]