Bu yazımızda art arda gelen iki kolondan tekrarı kontrol etmek ve mükerrer değerleri kaldırmak için bir makro oluşturacağız.
Ham veriler, Ajan adı, Hedef model adı ve İstenen model adını içeren hedef ayrıntılarından oluşur.
Bu yazımızda Hedef model adı ve istenilen model adı benzer olan kayıtları silmek istiyoruz.
Kod açıklaması
LastRow = ActiveCell.SpecialCells(xlCellTypeLastCell).Row
Yukarıdaki kod, son hücrenin satır numarasını almak için kullanılır.
i için = Son Satırdan 12 Adım -1'e
Sonraki
Yukarıdaki For döngüsü, ters döngü için kullanılır. Son satırdan 12'ye kadar döngüye başlayacakNS sıra.
Hücreler(i, 2) = Hücreler(i, 3) ise
Yukarıdaki kodda, 2'nin hücrelerindeki değerleri karşılaştırdık.nd 3'lü sütunrd kolon.
Satırlar(i).Sil
Yukarıdaki kod satırın tamamını silmek için kullanılır.
Lütfen kod için aşağıdan takip edin
Seçenek Explicit Sub DeleteMatches() 'Dim LastRow, i As Long' değişkenlerini bildirme Son hücrenin satır numarasını alma LastRow = ActiveCell.SpecialCells(xlCellTypeLastCell).Row 'Son satırdan 12. satıra döngü For i = LastRow'dan 12'ye Adım -1 Eğer Hücreler(i, 2) = Hücreler(i, 3) Sonra Satırlar(i).Sil Sonu Sonraki Uçsa Alt
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