Bu yazımızda tüm satırda veri olmadığında satırların nasıl silineceğini öğreneceğiz.
Sahip olduğumuz verilerin anlık görüntüsü aşağıdadır:
Bu öğreticinin arkasındaki konsept, seçilen A1:E10 aralığında bulunan herhangi bir tam boş satır varsa, o zaman vba kodunun o satırı silmesi gerektiğidir.
Aşağıdaki adımları izlememiz gerekiyor:
- Geliştirici sekmesine tıklayın
- Kod grubundan Visual Basic'i seçin
- Geçerli çalışma sayfası modülüne aşağıdaki kodu girin
Alt DeleteEntireRow()
Dim kadar uzun
'Makroyu hızlandırmak için Hesaplama ve Ekran Güncelleme kapalı
Uygulama ile
.Hesaplama = xlHesaplamaManuel
.ScreenUpdating = Yanlış
i için = Selection.Rows.Count To 1 Adım -1
WorksheetFunction.CountA(Selection.Rows(i)) = 0 ise
Selection.Rows(i).EntireRow.Delete
Bitir
sonraki ben
.Hesaplama = xlHesaplamaOtomatik
.ScreenUpdating = Doğru
İle bitmek
Alt Bitiş
- Kodumuzu test etmek için önce bir satırdaki verileri manuel olarak silelim.
- Kodu kopyaladıktan sonra; A1:E10 aralığını seçin ve herhangi bir satırı manuel olarak silin
- Şimdi ALT + F8 tuşunu kullanarak makroyu çalıştırın ve DeleteEntireRow'u seçin
- Boş satır silindi ve aşağıdaki tüm satırlar yukarı kaydırıldı.
Bu şekilde Microsoft Excel'de vba kullanarak satırları silebiliriz.
VBA'da İndirme-Silme Satırları