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
A sütununda aynı olan verilerin biri hariç diğerlerinin yazı fontunu kırmızı yapar.
Kod:
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.
Kod:
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
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.