Aşağıdaki işlemleri uyguladıktan sonra tabiki gösterebilir :)

Öncelikle mükerrer kayıtları arayacağımız alanı seçiyoruz ;

Ekle menüsü altında Ad – Tanımla’ya tıklayıp gelen pencerede istediğimiz bir ad yazıp Ekle diyoruz. Böylece Seçtiğimiz alanı bir liste olarak Excel’e tanıtmış oluyoruz.

Seçtiğimiz alan hala aktif iken Biçim menüsü Koşullu Biçimlendirme’ye tıklıyor ve Koşul 1 de Formül seçip yan tarafına

Eğer Excel Türkçe ise ;

=EĞER(EĞERSAY(TEST;A1)>1;DOĞRU; YANLIŞ)

Eğer Excel İngilizce ise ;

=IF(COUNTIF(TEST;A1)>1;TRUE; FALSE)

formulünü yazıyoruz.

Sonrasında bu koşul gerçekleştiğinde biçimlendirmenin nasıl olacağını Biçim’e tıklayarak belirliyoruz ve Tamam diyerek işlemi bitiriyoruz.

Formülde kullanılan TEST kelimesi sizin tanımladığını Ad – Tanımla da belirttiğiniz kelimedir. Değiştirmeyi unutmayınız.

Ve sonuç karşınızda artık mükerrer kayıtlarım belirlediğim biçimlendirme ile bana gösteriliyor.

Kolay Gelsin.

Ekran Görüntüleri :

Mükerrer Kayıt

Mükerrer Kayıt

Mükerrer Kayıt

Mükerrer Kayıt

Bunu Excelde makro kaydederek ekleyin ve o sütunun en başına gelin, tanımladığınız kısayolu kullanın. Makro bir sonraki boş satıra kadar önüne gelen tüm hücrelere girip Enter basıcaktır.

Sub MetneCevir()
Dim bitti As Boolean
bitti = False
    MsgBox "Bir Sonraki Boş Satıra Kadar Hücreler Metine Çevirilecek"
    Do While bitti = False
    DoEvents
    If ActiveCell.FormulaR1C1 = "" Then
    bitti = True
    Exit Sub
    Else
    bitti = False
    End If
    ActiveCell.FormulaR1C1 = ActiveCell.FormulaR1C1
    SendKeys "{DOWN}"
    Loop
End Sub

Kolay Gelsin.