Kullanılan Alanda Boş Satırları Sil - Microsoft Excel

Kullanılan alandaki boş satırları silmeye yarayan VBA kodudur.

Kod


Option Explicit

Sub KullanilanAlandaBosSatirlariSil()
    Dim sonSatir As Long
    Dim i        As Long
    
    sonSatir = ActiveSheet.UsedRange.Rows.Count
    Application.ScreenUpdating = False
    
    For i = sonSatir To 1 Step -1
        If Application.CountA(Rows(i)) = 0 Then Rows(i).Delete
    Next
    
    Application.ScreenUpdating = True
End Sub

Etiketler

microsoft excel microsoft excel vba microsoft excel vba boş satır işlemleri microsoft excel vba satır sütun işlemleri