Excel'deki en önemli etkinliklerden biri kopyaları kaldırın Bugün Excel'de yalnızca VBA kullanarak kopyaların nasıl kaldırılacağını göstereceğim.

Alıştırma Çalışma Kitabını İndirin

Yinelemeleri Kaldırmak için Excel'de VBA Kullanmanın 3 Hızlı Yöntemi

Burada bir veri setimiz var İsimler, kimlikler, İşaretler, ve Notlar Ayçiçeği Anaokulu adlı bir okulun bazı öğrencilerinin sınavında.

Dikkatle bakarsanız, bazı isimlerin yanlışlıkla tekrarlandığını göreceksiniz.

Bugün amacımız Excel VBA kullanarak yinelenen değerleri kaldırmaktır.

1. Sabit Hücre Aralığından Yinelenenleri Kaldırmak için VBA Kullanın

Her şeyden önce şunu yapmaya çalışacağız çift isimleri kaldırın içinde sabit bir hücre aralığı kullanarak VBA Kod.

Burada veri setimiz şu aralıktadır B3:E15 çalışma kitabında (Çalışma kitabındaki Sütun Başlıkları ).

Buradaki kodda bu sabit hücre aralığını kullanacağız.

Adım 1:

Yeni bir ➤ Aç VBA penceresini açın ve yeni bir modül ekleyin (görmek için buraya tıklayın Excel'de yeni bir VBA modülü nasıl açılır ve eklenir).

➤ Bu kodu modüle yerleştirin:

Kod:

 Sub Remove_Duplicates() Range("A3:E14").RemoveDuplicates Columns:=1, Header:=xlYes End Sub 

Adı verilen bir Makro üretir Remove_Duplicates . A3:E14 veri setimin aralığıdır ve ben yinelenen satırları kaldırın dayalı Sütun 1 Birini kullan.

Adım 2:

➤ Çalışma sayfanıza geri dönün ve bu Makroyu çalıştırın (Makroyu nasıl çalıştıracağınızı görmek için buraya tıklayın).

➤ Sütun 1'de yinelenen satırları kaldıracaktır ( Öğrenci Adı).

Daha fazlasını okuyun: Excel'de Yinelenenler Silinir Ama Biri Saklanır (7 Yöntem)

2. Seçili Hücre Aralığından Yinelemeleri Kaldırmak için VBA Kodları Ekleme

Şimdi çalışma sayfasındaki herhangi bir seçili hücre aralığından kopyaları kaldırabilen bir makro oluşturmaya çalışacağız.

Adım 1:

Yeni bir ➤ Aç VBA penceresini tekrar açın ve başka bir yeni modül ekleyin.

➤ Bu kodu modüle yerleştirin:

Kod:

 Sub Remove_Duplicates() Dim Rng As Range Set Rng = Selection Rng.RemoveDuplicates Columns:=1, Header:=xlYes End Sub 

Adı verilen bir Makro üretir Remove_Duplicates . yinelenen satırları aşağıdakilere göre kaldırmak istiyorum Sütun 1 Birini kullan.

Adım 2:

➤ Çalışma sayfanıza geri dönün.

➤ Veri setinizi seçin ve bu makroyu çalıştırın.

➤ Yukarıda yapılan işlemin aynısını gerçekleştirir. 1. sütunda yinelenen satırları kaldırın ( Öğrenci Adı).

Daha fazlasını okuyun: Excel'de Yinelenen Satırlar Nasıl Kaldırılır (3 Yol)

Benzer Okumalar

• Excel'de Sütunlardaki Yinelemeler Nasıl Kaldırılır (3 Yöntem)
• Excel VBA: Bir Diziden Yinelenenleri Kaldırma (2 Örnek)
• Excel'de Yinelemeler Nasıl Kaldırılır ve İlk Değer Nasıl Korunur (5 Yöntem)
• Excel'de 1. Oluşum Dışındaki Yinelenen Satırları Kaldırma (7 Yol)
• Excel'de Her İki Yineleme Nasıl Kaldırılır (5 Kolay Yol)

3. Birden Fazla Sütundaki Yinelemeleri Kaldırmak için Bir VBA Makrosu Yerleştirin

Şimdiye kadar Sütun 1'de yinelenen satırları kaldırdık ( Öğrenci Adı ).

Ama aslında iki öğrencinin ismi aynı olabilir, iki ismin aynı olması her zaman yanlışlıkla eklendiği anlamına gelmez.

Ancak iki öğrencinin kimlikleri de aynıysa, o zaman aynı öğrencidirler. O zaman satır kaldırılmalıdır.

Bu kez, iki satırın hem adı hem de kimliği aynıysa satırı kaldıracak bir Makro geliştireceğiz.

Adım 1:

Yeni bir ➤ Aç VBA penceresini tekrar açın ve başka bir yeni modül ekleyin.

➤ Bu kodu modüle yerleştirin:

Kod:

 Sub Remove_Duplicates() Dim Rng As Range Set Rng = Selection Rng.RemoveDuplicates Columns:=Array(1, 2), Header:=xlYes End Sub 

Adı verilen bir Makro üretir Remove_Duplicates . yinelenen satırları aşağıdakilere göre kaldırmak istiyorum Sütun 1 ve 2 (İsim ve Kimlik) Birini kullan.

Adım 2:

➤ Çalışma sayfanıza geri dönün.

➤ Veri setinizi seçin ve bu makroyu çalıştırın.

Bu kez, yalnızca hem ad hem de öğrenci kimliği aynıysa satırları kaldıracaktır.

Not: Burada Jennifer Marlo'yu kaldırmamıştır çünkü iki öğrencinin kimlikleri farklıdır, yani iki farklı öğrencidirler.

Daha fazlasını okuyun: Excel VBA: Birden Çok Sütunu Karşılaştırarak Yinelemeleri Kaldırma (3 Örnek)

Sonuç

Bu yöntemleri kullanarak, VBA kullanarak Excel'deki bir veri kümesinden yinelenenleri kaldırabilirsiniz. Herhangi bir sorununuz var mı? Bize sormaktan çekinmeyin.