Excel VBA ile Tekrarlanan Değerleri Bulma
1. Hemen Kullanılabilir 4 Adet VBA Tekrarlanan Değer Bulma Kodu
1. A1'deki Değer Tekrar Ediyor mu?
A1 hücresindeki değerin A sütununda kaç kez tekrarlandığını gösterir.
Sub TekrarKontrol()
MsgBox Application.CountIf(Range("A:A"), Range("A1"))
End Sub
3. Benzersizleri Say
A sütununda kaç farklı (benzersiz) değer olduğunu bulur.
Sub BenzersizSay()
MsgBox Application.CountA(Range("A:A")) - Application.CountIf(Range("A:A"), "=")
End Sub
2. Seçili Bölgede Tekrar Var mı?
Seçtiğiniz hücrelerde tekrar eden değer var mı kontrol eder.
Sub TekrarVarMi()
If Application.CountIf(Selection, Selection.Cells(1)) > 1 Then
MsgBox "Tekrar var!"
Else
MsgBox "Tekrar yok!"
End If
End Sub
4. Tüm Tekrarları Say
A sütununda kaç tane tekrar eden değer olduğunu bulur.
Sub ToplamTekrarSay()
MsgBox Application.CountIf(Range("A:A"), Range("A1"))
End Sub
2. VBA Makroları için Ön Hazırlık
1. Geliştirici Sekmesini Aktifleştirin
Excel'de VBA kodlarını yazabilmek için önce Geliştirici sekmesini aktif etmelisiniz. Detaylı bilgi için tıklayın.
3. Modül Ekleyin
Kodlarınızı yazmak için bir Modül eklemelisiniz. Makro yazma rehberi için tıklayın.
2. Visual Basic Düzenleyici'yi Açın
Alt + F11 (Windows) veya Option + F11 (Mac) ile hızlıca açabilirsiniz.
4. Kodu Çalıştırın
Yazdığınız kodu çalıştırmak için F5 tuşuna basın veya Çalıştır butonuna tıklayın. VBA makro nedir? öğrenmek için tıklayın.
F5
▶️ Makroyu çalıştır
3. Sıkça Sorulan Sorular
01 Excel VBA ile tekrarlanan değerler nasıl bulunur?
CountIf ile Application.CountIf(Selection, hucre.Value) > 1 kontrolü yaparak tekrarları bulabilirsiniz.
02 CountIf ve Dictionary arasındaki fark nedir?
CountIf her değer için aralığı tarar (yavaş), Dictionary her değeri bir kez işler (hızlı).
03 Tekrarlanan değerleri nasıl renklendiririm?
hucre.Interior.Color = RGB(255, 0, 0) kodu ile kırmızı renk verebilirsiniz.
04 Mac'te VBA çalışır mı?
Evet, Mac'te de aynı kodlar çalışır. Option+F11 ile VBA'ya erişin.
05 Tekrarları silerken neden hata alıyorum?
Boş hücreler hata verir. If Not IsEmpty(hucre) kontrolü ekleyin.
06 Tekrarları nasıl temizleyebilirim?
Tekrarları temizlemek için VBA ile tekrar eden verileri kaldırma makalesini inceleyin.