Bu yazımızda boş hücreler içeren eksik kayıtları silmek için bir makro oluşturacağız.
Ham veriler, Ad, Yaş ve Cinsiyeti içeren bazı örnek verilerden oluşur. Ayrıca bazı boş hücreler içerir.
Boş hücreler içeren kayıtları kaldırmak istiyoruz.
Mantıksal açıklama
Eksik kayıtları silmek için “BlankRowDeletion” makrosu oluşturduk. Boş hücreleri arar ve seçer ve ardından boş bir hücre içeren tüm satırı siler.
Kod açıklaması
Set Rng = Aralık("A9:C" & LastRow)
Yukarıdaki kod, verilen veriler için bir aralık nesnesi oluşturmak için kullanılır.
Rng.SpecialCells(xlCellTypeBlanks).Seç
Yukarıdaki kod, belirtilen aralıktaki boş hücreleri seçmek için kullanılır.
Selection.EntireRow.Delete
Yukarıdaki kod, seçilen hücre için tüm satırı silmek için kullanılır.
Lütfen kod için aşağıdan takip edin
Seçenek Explicit Sub BlankRowDeletion() 'Dim LastRow As Long Dim Rng As Range As 'Son hücrenin satır numarasını alma LastRow = Range("A1").SpecialCells(xlCellTypeLastCell).Row 'Tüm verileri seçme Set Rng = Range("A9 :C" & LastRow) 'Boş hücreleri seçme Rng.SpecialCells(xlCellTypeBlanks). 'Tam satırı silme Selection.EntireRow.Delete Range("A9").Select 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