Vba: yinelenen değerler nasıl kaldırılır

VBA’da yinelenen değerleri kaldırmak için aşağıdaki yöntemleri kullanabilirsiniz:

Yöntem 1: Bir sütuna dayalı yinelenen değerleri kaldırın

 Sub RemoveDuplicates()
    Range(" A1:C11 ").RemoveDuplicates Columns:=1, Header:=xlYes
End Sub

Bu özel örnek, aralığın ilk sütunundaki yinelenen değerlere göre A1:C11 aralığındaki yinelenen satırları kaldırır.

Header:=xlYes bağımsız değişkeni, aralıktaki ilk satırın bir başlık satırı olduğunu ve kopyalar kontrol edilirken dikkate alınmaması gerektiğini belirtir.

Yöntem 2: Birden çok sütuna dayalı yinelenen değerleri kaldırın

 Sub RemoveDuplicates()
    Range(" A1:C11 ").RemoveDuplicates Columns:=Array(1, 2), Header:=xlYes
End Sub

Bu özel örnek, aralığın ilk iki sütunundaki yinelenen değerlere göre A1:C11 aralığındaki yinelenen satırları kaldırır.

Aşağıdaki örnekler, Excel’deki aşağıdaki veri kümesiyle bu yöntemlerin her birinin pratikte nasıl kullanılacağını gösterir:

Örnek 1: Bir sütuna dayalı yinelenen değerleri kaldırın

İlk sütunda yinelenen değerlere sahip satırları kaldırmak için aşağıdaki makroyu oluşturabiliriz:

 Sub RemoveDuplicates()
    Range(" A1:C11 ").RemoveDuplicates Columns:=1, Header:=xlYes
End Sub

Bu makroyu çalıştırdığımızda aşağıdaki çıktıyı alıyoruz:

Veri kümesinin ilk sütununda yinelenen değere sahip her satırın kaldırıldığını unutmayın.

Örnek 2: Birden fazla sütuna dayalı olarak yinelenen değerleri kaldırın

İlk iki sütununda yinelenen değerlere sahip satırları kaldırmak için aşağıdaki makroyu oluşturabiliriz:

 Sub RemoveDuplicates()
    Range(" A1:C11 ").RemoveDuplicates Columns:=Array(1, 2), Header:=xlYes
End Sub

Bu makroyu çalıştırdığımızda aşağıdaki çıktıyı alıyoruz:

Veri kümesinin ilk iki sütununda yinelenen değerler içeren her satırın kaldırıldığını unutmayın.

Not : VBA RemoveDuplicates yöntemine ilişkin tüm belgeleri burada bulabilirsiniz.

Ek kaynaklar

Aşağıdaki eğitimlerde VBA’da diğer ortak görevlerin nasıl gerçekleştirileceği açıklanmaktadır:

VBA: Bir aralıktaki değerler nasıl eklenir?
VBA: Aralığın ortalama değeri nasıl hesaplanır
VBA: Aralıktaki benzersiz değerler nasıl sayılır?