VBA Excel'de Yinelenenleri Kaldır
Özellikle benzersiz değerlerin sayılmasını istediğinizde, excel'de yinelenen değerler genellikle gerekli değildir. Genellikle üzerinde çalışacağımız farklı bir veri kümesine sahibiz ve içinde bir sürü yinelenen değer görüyoruz.
Endişelenecek bir şey olmasa bile, Excel çalışma sayfasındaki kopyaları kaldırmayı umarım. Size basit bir örnek göstereceğiz. VBA'da da yinelenenleri kaldırma yöntemini uygulayabiliriz.
Böylece, "Bölge" başlığının tüm yinelenen değerlerini kaldırmıştır. Benzer şekilde bu görevi VBA kodu yardımı ile de yapabiliriz.
VBA Kodlamasında Yinelenen Değerler Nasıl Kaldırılır?
Önce yinelenen değerleri kaldırmak için, bahsettiğimiz aralıktan bahsetmemiz gerekir. Ardından "Yinelemeleri Kaldır" yöntemine erişebiliriz. Yani sözdizimi aşağıdaki gibi olacaktır.
(Sütun): Yinelenenleri kaldırmak için seçimin hangi sütununa ihtiyacımız var? Seçilen aralığın sütun numarasından bahsetmemiz gerekiyor.
(Üstbilgi): Seçtiğiniz aralığın başlıkları var mı yok mu? Burada çalışmak için üç seçeneğimiz var.
- xlEvet: Verinin başlıkları varsa, bunu seçebilirsiniz.
- xlNo: Verinin başlıkları yoksa, bunu seçebilirsiniz.
- xlGuess: Bu seçenek, excel'in verilerin başlıklarını tahmin etmesine izin verecektir.
Dolayısıyla, bu parametreleri kullanarak, terimizi bozmadan sadece bir düğmeye tıklayarak kopyaları kaldırabiliriz.
Aşağıdaki bölümde, VBA'nın kopyaları kaldırması için bazı örnekler göstereceğim. Kodu kendi başınıza yazmak için adımları dikkatlice izleyin.
VBA Kodlamasında Yinelenen Değerleri Kaldırma Örnekleri
Aşağıda, Değerler VBA'sındaki Yinelemeyi Kaldır örnekleri verilmiştir.
VBA Yinelenenleri kaldırın - Örnek 1
Bu örnek için aşağıdaki verileri de düşünün.
Yukarıdaki verilerden "Bölge" sütun kopyalarını kaldırmamız gerekiyor, bu nedenle kodu yazmak için aşağıdaki adımları izleyin.
Adım 1: Bir makro koduna bir ad vererek alt prosedürü başlatın.
Adım 2: VBA Range nesnesini kullanarak veri aralığından bahsedin .
Kod:
Alt Kaldır_Çekilenler_Örnek1 () Aralık ("A1: C9"). Sub
Adım 3: Aralık erişimi VBA " RemoveDuplicates " yönteminden bahsettikten sonra .
Kod:
Sub Remove_Duplicates_Example1 () Range ("A1: C9"). RemoveÇiftleri Son Alt
Adım 4: Hangi sütunda yinelenen değerleri kaldırmamız gereken ilk argüman. Bu örnekte, ilk sütundan, kopyaları kaldırmamız gerekiyor.
Kod:
Sub Remove_Duplicates_Example1 () Range ("A1: C9"). RemoveDuplicates Columns: = 1, End Sub
Adım 5: Sonraki şey, verilerin başlıklara sahip olup olmadığıdır. Bu durumda, başlıklarımız var, bu nedenle "xlYes" seçeneğini seçin .
Kod:
Sub Remove_Duplicates_Example1 () Range ("A1: C9"). RemoveDuplicates Columns: = 1, Header: = xlEvet End Sub
Bu kodu çalıştırın. VBA, seçilen bölgeden kopyaları kaldıracaktır.
Bu, hücre aralığına atıfta bulunmanın açık bir yoludur. Aralığı kendi başımıza seçmek ve ardından yinelenenleri kaldırmak isterseniz, çalışmak için değişkeni kullanmamız gerekir. Aşağıdaki örnekte, değişkenleri VBA'da nasıl kullanacağınızı göstereceğim.
VBA Yinelenenleri kaldırın - Örnek 2
Yukarıdaki örnekte, özellikle hücre aralığını sağladık. Şimdi kendi hücrelerimizin seçimi ile nasıl çalışacağımızı göreceğiz.
Örneğin, aşağıdaki resimde gösterildiği gibi birkaç veri setim var.
Hücre aralığını her defasında açıkça belirtemediğim için seçimi aralık olarak atayacağız.
Adım 1: Değişkeni Aralık olarak bildirin .
Kod:
Sub Remove_Duplicates_Example2 () Aralık Sonu Alt Olarak Dim Aralığı
Adım 2: Menzil bir nesnedir. Biz edecektir aralığını ayarlamak bizim seçim olarak.
Kod:
Sub Remove_Duplicates_Example2() Dim Rng As Range Set Rng = Selection End Sub
Step 3: Now, instead of a range of cells, we can use the variable “rng.”
Code:
Sub Remove_Duplicates_Example2() Dim Rng As Range Set Rng = Selection Rng.RemoveDuplicates Columns:=1, Header:=xlYes End Sub
Before we run the code, we need to select the range of cells first. Then we can remove duplicates from the selected range of cells.
VBA Remove Duplicates from Multiple Columns - Example #3
We can also use VBA to remove duplicate values from excel columns as well. In order to remove multiple columns, we need to use Array and mention the column numbers.
For example, look at the example data image.
İlk sütunda ve dördüncü sütunda yinelenen değerlerimiz var. Bu yüzden bu sütunlardan kaldıracağız. Yinelenenleri kaldırmak için aşağıdaki kodu VBA için kullanın.
Kod:
Sub Remove_Duplicates_Example3 () Dim Rng As Range Set Aralığı = Range ("A1: D9") Rng.RemoveDuplicates Sütunlar: = Dizi (1, 4), Üst Bilgi: = xlEvet End Sub
Bu VBA Kaldır Yinelenen Excel'i buradan indirebilirsiniz. VBA Yinelenen Excel Şablonunu Kaldır
