Standart Microsoft Excel araçları arasında, kopyaları renkle vurgulamanın birçok farklı yolu vardır. En kolay ve en hızlı yol koşullu biçimlendirmedir. Bunu yapmak için, sadece bir hücre aralığı seçin ve sekmede seçin Ana Sayfa — Koşullu Biçimlendirme — Hücre Seçim Kuralları — Yinelenen Değerler (Ana Sayfa — Koşullu Biçimlendirme — Hücre Kurallarını Vurgula — Yinelenen Değerler):
Bununla birlikte, bu durumda, tüm hücrelerin dolgu rengi aynı olacaktır, yani, öğenin aralıkta başka bir yerde kopyaları olduğunu bildirir, ancak onları bulmaya yardımcı olmak için hiçbir şey yapmaz. Durumu, tekrarlanan kopyaların her bir çiftini (veya daha fazlasını) kendi rengiyle dolduracak küçük bir makro ile düzeltebilirsiniz:
Çok daha net, değil mi? Tabii ki, çok sayıda yinelenen hücre ile gölgeleri ayırt etmek zor olacaktır, ancak nispeten az sayıda kopya ile bu yöntem mükemmel bir şekilde çalışacaktır.
Bu makroyu kullanmak için klavye kısayoluna basın Alt + F11 veya düğmesi Visual Basic çıkıntı Geliştirici, menü aracılığıyla yeni bir boş modül ekleyin Ekle – Modül ve bu makronun kodunu buraya kopyalayın:
Sub DuplicatesColoring() Dim Dupes() 'Yinelenenleri depolamak için bir dizi bildir ReDim Dupes(1'den Selection.Cells.Count, 1'e 2) Selection.Interior.ColorIndex = -4142 'i = 3 ise dolguyu kaldır Her hücre için Seçim If WorksheetFunction.CountIf(Selection, cell.Value) > 1 Then For k = LBound(Dupes) To UBound(Dupes) 'hücre zaten yinelenen dizideyse, doldurun If Dupes(k, 1) = cell Sonra hücre.İç. ColorIndex = Dupes(k, 2) Sonraki k 'hücre bir kopya içeriyorsa, ancak henüz dizide değilse, onu diziye ekleyin ve doldurun Eğer cell.Interior.ColorIndex = -4142 Sonra cell.Interior.ColorIndex = i Dupes(i, 1 ) = cell.Value Dupes(i, 2) = ii = i + 1 End If End If Sonraki hücre End Sub
Artık sayfadaki verilerle herhangi bir aralığı seçebilir ve klavye kısayolunu kullanarak makromuzu çalıştırabilirsiniz. Alt + F8 veya buton aracılığıyla Makrolar (Makrolar) çıkıntı geliştirici (Geliştirici).
- Yinelenenleri renkle vurgulayın
- Makro nedir, Visual Basic'te makro kodu nereye eklenir, nasıl çalıştırılır
- Belirli bir hücre aralığındaki benzersiz değerlerin sayısı nasıl sayılır?