e-makro blog
EXCEL

Excel Boş Satırları Sil


SAYILAR

Okunma Sayı 4550
Beğenme Sayı 30
Yorum Sayı 4
ETİKET BULUTU

  • VBA EXCEL VBA EXCEL VBA AÇ VISUAL BASIC VISUAL BASIC EDITOR

Excel Boş Satırları Sil

Halil Yılmaz , 26.03.2019 18:18:31


Excel çalışma sayfamızda özellikle başka bir yerden kopyaladığımız veriler olduğunda boş satırlar oluşması kaçınılmaz.
Çalışma alanımız içinde bulunan tüm boş satırları tek bir tuş ile silmek için aşağıda ki kodu Vba içerisine yazıyoruz.
 

Bir önceki örneklerim de Vba nasıl açılır, Buton - Module nasıl eklenir anlattığım için sadece kod kısmını yazıyorum
 


Sub BosSatirlariSil()
Dim SonSatir As Long, r As Long
SonSatir = ActiveSheet.UsedRange.Rows.Count
SonSatir = SonSatir+ ActiveSheet.UsedRange.Row - 1
Application.ScreenUpdating = False
For i = SonSatir To 1 Step -1
If Application.CountA(Rows(i)) = 0 Then Rows(i).Delete 
Next i
End Sub

Örnek Excel çalışma sayfasını paylaşıyorum, dilediğiniz satırlarda ki verileri silerek test edebilirsiniz.

Boş satırları sil


30 kişi beğendi, ya sen?

Yorumlar

isa özdağ

27.05.2021


bakın bu daha kısa ve kesin ActiveSheet.UsedRange.Cells.Columns(1).SpecialCells(xlCellTypeBlanks).EntireRow.Delete xlUp


Halil Yılmaz

28.05.2021


Katkınız için teşekkürler İsa Bey.

HASAN

25.07.2020


Merhaba , satır silme örneğinizde şöyle bir uygulama yapabiliyormusunuz? sayfa aktif olunca 2 satırdan fazla boş olan tüm satırları silsin! yani sayfada en fazla 2 satır boş olarak kalabilecek.


Halil Yılmaz

25.07.2020


İsteğiniz ile ilgili Kod örneği paylaşıyorum


Sub BirdenFazlaSatir()
Dim SonSatir As Long, r As Long
Dim BosSatirSayi
BosSatirSayi = 0
SonSatir = ActiveSheet.UsedRange.Rows.Count
SonSatir = SonSatir+ ActiveSheet.UsedRange.Row - 1
Application.ScreenUpdating = False
For i = SonSatir To 1 Step -1
If Application.CountA(Rows(i)) = 0 Then 
BosSatirSayi = BosSatirSayi + 1
If BosSatirSayi > 2 And Application.CountA(Rows(i)) = 0 Then 
Rows(i).Delete 
ElseIf BosSatirSayi > 2 And Application.CountA(Rows(i)) > 0 Then 
BosSatirSayi = 0 
End If
Else
BosSatirSayi = 0 
End If
Next i
End Sub