Excelde Tekrar Eden Verileri Silme

Excel’de Tekrar Eden Verileri Silme

Excel, verileri düzenlemek ve analiz etmek için kullanılan güçlü bir araçtır. Ancak, bazen verilerinizde tekrar eden kayıtlar olabilir. Bu, verilerinizi analiz etmeyi veya raporlamayı zorlaştırabilir. Neyse ki, Excel’de tekrar eden verileri silmek için birkaç kolay yol vardır.

Yöntem 1: Veri Temizleme Aracı

Excel’de tekrar eden verileri silmenin en kolay yollarından biri Veri Temizleme Aracı’nı kullanmaktır. Bu araç, verilerinizdeki hataları ve tutarsızlıkları bulmanıza ve düzeltmenize yardımcı olur. Tekrar eden verileri silmek için şu adımları izleyin:

Tekrar eden verileri içeren hücreleri seçin.
Veri sekmesine tıklayın.
Veri Temizleme grubunda, Veri Temizleme Aracı’na tıklayın.
Tekrarlananları Sil iletişim kutusunda, Silmek istediğiniz sütunları seçin.
Tamam’a tıklayın.

Yöntem 2: Formüller Kullanma

Tekrar eden verileri silmek için formüller de kullanabilirsiniz. Bu yöntem, Veri Temizleme Aracı’ndan daha esnektir, ancak biraz daha karmaşıktır. Tekrar eden verileri silmek için şu adımları izleyin:

Tekrar eden verileri içeren hücrelerin yanındaki boş bir hücreye tıklayın.
Aşağıdaki formülü girin:

=EĞER(SAYI(A2)=SAYI(A1),"",A2)

Bu formül, A2 hücresindeki değerin A1 hücresindeki değerle aynı olup olmadığını kontrol eder. Değerler aynıysa, formül boş bir dize döndürür. Değerler farklıysa, formül A2 hücresindeki değeri döndürür.
3. Formülü aşağıdaki hücrelere kopyalayın.
4. Tekrar eden verileri içeren hücreleri seçin.
5. Sil tuşuna basın.

Yöntem 3: VBA Kullanma

Tekrar eden verileri silmek için VBA (Visual Basic for Applications) da kullanabilirsiniz. Bu yöntem, formüllerden daha esnektir, ancak biraz daha karmaşıktır. Tekrar eden verileri silmek için şu adımları izleyin:

Geliştirici sekmesine tıklayın.
Kod grubunda, Visual Basic’e tıklayın.
VBE penceresinde, Ekle > Modül’e tıklayın.
Aşağıdaki kodu modüle yapıştırın:

“`
Sub SilTekrarEdenVeriler()
Dim i As Long, j As Long
Dim rng As Range

Set rng = Application.Selection
For i = 1 To rng.Rows.Count
    For j = i + 1 To rng.Rows.Count
        If rng.Cells(i, 1).Value = rng.Cells(j, 1).Value Then
            rng.Cells(j, 1).EntireRow.Delete
        End If
    Next j
Next i

End Sub
“`

Kodu çalıştırmak için F5 tuşuna basın.

Faydalı Siteler ve Dosyalar