Boş Satırları Silme içeriğinde, bu işleminin hızlı bir şekilde yapılmasını sağlayan hazır makro kodları yer almaktadır.
Makro ile Satır Silme
Kod:
Sub DeleteBlankRows()
Dim x As Long
With ActiveSheet
For x = .Cells.SpecialCells(xlCellTypeLastCell).Row To 1 Step -1
If WorksheetFunction.CountA(.Rows(x)) = 0 Then
ActiveSheet.Rows(x).Delete
End If
Next
End With
End Sub