Bu yazıda yinelenen değerleri vurgulamak için bir makro oluşturduk.
Ham veriler, farklı araba adlarından oluşur. Yinelenen girişleri vurgulamak istiyoruz.
Makroyu çalıştırmak ve yinelenen girişleri vurgulamak için "Çoğaltmayı vurgula" düğmesine basın.
Mantıksal açıklama
Yinelenen girişleri vurgulamak için “Check_Dups” makrosu oluşturduk. Kırmızı renkle vurgulanacaklar. Makroda, belirli bir girişin sayısını kontrol ederiz. 1'den büyükse, veriler vurgulanacaktır.
Lütfen kod için aşağıdan takip edin
Seçenek Explicit Sub Check_Dups() 'Değişkenleri Bildirme Dim Cell As Variant Dim Source As Range As 'Kaynak aralığını başlatıyor Set Source = Range("A9:A24") ' Source.Interior.Color = RGB(221, Kaynaktan önceki biçimlendirmeleri kaldırıyor) 235, 247) 'Kaynaktaki Her Hücre için Kaynak aralığındaki her hücrede döngü yapma 'Hücredeki değerin kaynak aralığında zaten var olup olmadığını kontrol etme Eğer Application.WorksheetFunction.CountIf(Source, Cell) > 1 Sonra 'Yinelenen değerleri kırmızı vurgulama color Cell.Interior.Color = RGB(255, 0, 0) End If Next End Sub
Bu blogu beğendiyseniz, Facebook'ta arkadaşlarınızla paylaşın. Ayrıca bizi Twitter ve Facebook'ta da takip edebilirsiniz.
Sizden haber almayı çok isteriz, işimizi nasıl geliştirebileceğimizi ve sizin için nasıl daha iyi hale getirebileceğimizi bize bildirin. E-posta sitesinde bize yazın