Excel Visual Basic'te çiftleri bulmak nasıl

Microsoft Excel 2010'daki kopyaları bulun.

1. Adım

Kopyaları kontrol etmek istediğiniz verileri içeren Microsoft Excel 2010 dosyasını açın. Elektronik sayfa açıldığında, VBA konsolunu yüklemek için "Alt" ve "F11" tuşlarına basın.

2. Adım

VBA ekranının sol tarafındaki elektronik tabloya tıklayın. Fareyi "Ekle" nin üzerine getirin ve "Modül" seçeneğini seçin. Elektronik tablonun altında birkaç satır görünen yeni modülü çift tıklayın.

3. adım

İmleci ekranın sağ tarafındaki boş alana yerleştirin. "Alt Dupecheck ()" yazıp Enter tuşuna basın. VBA sizin için otomatik olarak "End Sub" komutunu girecektir.

4. Adım

İmleci, "Sub" ve "End Sub" komutları arasındaki hatta yerleştirin. Aşağıdaki kod satırlarını girin:

Uzun xDen Uzun Bekleme Gibi Olarak Uzun x = Uzun Endrow = Menzil ("A50000"). (XlUp) .Row

Bu kod, "EndRow" ve "x" olmak üzere iki değişken oluşturur ve "EndRow" değerini ayarlar. Bu kod, tek bir sütunda 50 bin satırdan arama yapacaktır, ancak daha fazla satır aramanız gerekiyorsa, ihtiyaç duyduğunuz herhangi bir sayıya 50 bin arasında artar. Bu kod ayrıca "A" sütununa bakmak üzere tasarlanmıştır, ancak ihtiyacınız olan sütundaki herhangi bir harfi "A" olarak değiştirmeniz yeterlidir.

Adım 5

İmleci aşağıdaki satıra yerleştirin ve aşağıdaki kodu yazın:

X = endrow için 1 Adım -1 için ise Application.WorksheetFunction.CountIf (Aralık ("A1: A" & x), Aralık ("A" & x) .Text)> 1 Ardından Aralık ("A" & x). Interior.Color = RGB (200, 160, 35) Sona Erdi Sonraki x

Bu, her bir hücreyi arayacak ve üzerinde aynı bir hücre olup olmadığını belirleyecek kodun kalbi. Bir kopyası bulursa, hücrenin altını sarı bir renge çevirir. Farklı bir sütunda çalışıyorsanız, "A" nın tüm örneklerini değiştirebilirsiniz. Hücrenin dönüştürüleceği rengi değiştirmek için "Interior.color" dan sonra üç sayıyı da değiştirebilirsiniz.

6. Adım

VBA konsolunu kapatmak için ekranın sağ üst köşesindeki "x" düğmesine tıklayın. Ekranın üstündeki "Geliştirici" sekmesini tıklayın. Şeritin sol tarafındaki "Makro" düğmesini bulun ve üzerine tıklayın. Kullanılabilir makrolar listesinden "Dupecheck" i seçin ve "Çalıştır" ı tıklayın. Excel artık veri sütununda her bir kopyayı vurgulayacaktır.