Tekrarlanan Değerleri Bulma Makrosu - Excel VBA

Excel VBA ile veri setindeki tekrarlanan değerleri bulma makrosu yazma rehberi. Kodu uygulayarak hata tespiti yapın ve verilerinizi temizleyin.

Excel VBA ile Tekrarlanan Değerleri Bulma

Excel'de VBA kullanarak, veri setindeki tekrarlanan değerleri kolayca tespit edebilmek mümkündür. Bu yöntem özellikle büyük veri setlerinde zaman tasarrufu sağlayacaktır. Yinelenen Değerleri kod yazmadan tespit etmek için bağlantıya tıklayabilirsiniz.

Bununla birlikte, bu kod sadece mükerrer değerleri tespit etmenizi sağlayacaktır. Bu değerlerin nasıl temizleneceğini öğrenmek için ise ilgili makaleyi okuyabilirsiniz.

1. VBA ile Tekrarlanan Değerleri Bulma Makrosu Nasıl Yazılır?

Makro yazmak için öncelikli olarak üst menüden geliştirici sekmesinin aktif olduğundan emin olunuz. Eğer değilse, İlk olarak, Excel’de Geliştirici sekmesini etkinleştirmek için "Dosya" > "Seçenekler" > "Şeridi Özelleştir" menüsünden "Geliştirici"yi işaretleyin. Detaylı bilgi için linke tıklayabilirsiniz. Ardından, "Geliştirici" sekmesinden "Visual Basic" butonuna tıklayarak VBA Düzenleyicisini açabilir ve "Ekle" > "Modül" ile yeni bir modül ekleyebilirsiniz. Daha fazla bilgi için linke tıklayabilirsiniz.

Bu adımlar tamamlandıktan sonra, Excel'deki belirli bir veri aralığında tekrarlanan değerleri bulma makrosu için aşağıdaki VBA kodunu kullanabilirsiniz. Bu işlem, veri setinizdeki mükerrer değerleri tespit etmenize yardımcı olur.

2. Tekrarlanan Değerleri Bulan VBA Kodu

VBA ile Tekrarlanan Değerleri Bulma

Kopyalandı

          Sub TekrarlananDegerleriBul()
Dim VeriAraligi As Range
Dim Cell As Range
Dim Deger As Variant

' Veri aralığını belirleyin
Set VeriAraligi = ActiveSheet.Range("A1:A100")

' Her hücreyi kontrol et
For Each Cell In VeriAraligi
    Deger = Cell.Value
    If Application.WorksheetFunction.CountIf(VeriAraligi, Deger) > 1 Then
        Cell.Interior.Color = RGB(255, 0, 0) ' Tekrarlanan değeri kırmızı ile işaretle
    End If
Next Cell
End Sub

3. Makroyu Çalıştırma

Kodu ilgili modüle yapıştırdıktan sonra F5 tuşuna basarak makroyu çalıştırabilirsiniz. Tekrarlanan değerler kırmızı renkte işaretlenecektir. Eğer farklı bir renk kodu kullanmak isterseniz bu makaleyi inceleyebilirsiniz.

Uyarı: Bu kod, belirtilen veri aralığındaki tekrarlanan değerleri bulur ve bunları işaretler. Aralığı doğru şekilde belirlediğinizden emin olun.

Excel VBA ile Tekrarlanan Değerleri Bulma Makrosu - Kod Açıklamaları

Yukarıdaki VBA kodunu adım adım açıklayalım:

• Makronun Başlangıcı: Sub TekrarlananDegerleriBul() makrosu başlatılır. Bu satır, VBA kodunun başlangıcını belirtir.
• Veri Aralığı Tanımlaması: Set VeriAraligi = ActiveSheet.Range("A1:A100") komutu, tekrarlanan değerlerin aranacağı hücre aralığını tanımlar.
• For Each Döngüsü: For Each Cell In VeriAraligi komutu, istenen aralıktaki her hücreyi kontrol eder.
• CountIf Fonksiyonu Kullanımı: Application.WorksheetFunction.CountIf(VeriAraligi, Deger) komutu, her değerin kaç kez tekrar ettiğini kontrol eder.
• İşaretleme: Tekrarlanan değerler kırmızı ile işaretlenir: Cell.Interior.Color = RGB(255, 0, 0).
• Makro Sonu: End Sub ile makro sonlandırılır.

Sonuç

Excel VBA ile tekrarlanan değerleri bulmak, veri doğruluğunu sağlamak ve analizi daha verimli hale getirmek için etkili bir yöntemdir. Bu makro sayesinde, veri setindeki tekrarları kolayca tespit edebilir ve işleme devam edebilirsiniz. Kendi ihtiyaçlarınıza göre VBA kodunu özelleştirerek farklı veri setlerinde kullanabilirsiniz.

Alakalı Makaleler