Excel Boş Satırları Silme

Bu dosya, bir çalışma sayfasındaki tamamen boş satırları tek makro çalıştırarak silmek için hazırlanmış bir kod örneğidir. Aynı makro boş sütunları da temizler. Dosya xlsm biçimindedir.

Dosyanın içeriği​

• Sheet1: Veri alanı olarak kullanılan sayfadır. Formül, tablo, grafik veya veri doğrulama içermez.
• Module1: İçinde Bos_Satir_Sil adlı makro bulunan VBA modülüdür.

Makrolar​

Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir. Kodda dosya silme veya dışarıya bağlantı gibi zararlı bir işlem yoktur; yalnızca çalışma sayfasındaki satır ve sütunlar silinir.

• Bos_Satir_Sil: Önce sayfadaki son kullanılan hücrenin sütun numarasını SpecialCells(xlCellTypeLastCell) ile belirler. Ardından satırları sondan başa doğru tek tek kontrol eder; CountA sonucu 0 olan, yani hiçbir hücresinde veri bulunmayan satırı siler. Aynı işlemi sütunlar için de uygular ve tamamen boş sütunları siler. Tarama sondan başa yapıldığı için silme işlemi sonraki satır ve sütunların numaralarını kaydırmaz.

Kodda sayfa adını tutan a değişkeni ile son satır numarasını tutan sat değişkeni makro içinde tanımlanmaz. Makronun çalışması için bu iki değişkene, işlem yapılacak sayfa adı ve son satır numarası değerlerinin atanması gerekir.

Nasıl kullanılır​

1. Dosyayı açın ve güvenlik uyarısında makroları etkinleştirin.
2. Temizlenecek veriyi Sheet1 sayfasına yapıştırın veya kendi çalışma kitabınıza makroyu taşıyın.
3. Alt + F8 tuşlarıyla makro listesini açın, Bos_Satir_Sil makrosunu seçip Çalıştır düğmesine basın.
4. Sayfadaki tamamen boş satırların ve sütunların silindiğini kontrol edin.

Makro silinen satır ve sütunları geri getirmez; işlemden önce dosyanın bir kopyasını almanız önerilir.