Aynı olanları belirlemek

[nintro]

A1 ile A12863 hücreleri arasında telefon numaraları yazıyor bu numaraların 1 den fazla tekrar edilenlerini sistemden çıkartmak istiyorum. nasıl bir çözüm bulabilirim

 

[Recep İpek]

Mükerrer kayıt şeklinde arama yaptırabilirseniz, bununla ilgili birçok örnek çalışma bulabilirsiniz.

 

[N.Ziya Hiçdurmaz]

yanıt

A sütununda aynı olan verilerin biri hariç diğerlerinin yazı fontunu kırmızı yapar.

Sub ayniolanlar()
For sut = [a65536].End(3).Row To 1 Step -1
If WorksheetFunction.CountIf(Range("A1:A" & sut), Range("A" & sut)) > 1 Then
Range("a" & sut).Font.ColorIndex = 3
End If
Next
End Sub

Buda aynı olanların birden fazlasını siler.

Sub mükerer()
For sil = [a65536].End(3).Row To 1 Step -1
If WorksheetFunction.CountIf(Range("A1:A" & sil), Range("A" & sil)) > 1 Then Rows(sil).Delete
Next
End Sub

 

[nintro]

çok teşekkkür ederim defalarca sorulan bir soruyu arama yapmadan sorduğum için özür dilerim