Hi, I have blocks of blank rows in my excel sheet, to remove them i have used this code but it skips blank rows in between

Question

For n = 1 To 99
    If IsEmpty(Cells(n, 1)) Then
        Cells(n, 1).EntireRow.Delete
    End If
Next n

This is the code i have used, but it skips blank rows i have an idea about reverse loops to avoid this but haven't done myself. please help me i am a newbie in excel.

Thanks

possible duplicate of [For Each Next loop unexpectedly skipping some entries](http://stackoverflow.com/questions/24515692/for-each-next-loop-unexpectedly-skipping-some-entries) — Jean-François Corbett, Mar 17 '15 at 14:50
Related: http://stackoverflow.com/questions/10725068/some-items-get-skipped-when-looping-through-outlook-mailbox — Jean-François Corbett, Mar 17 '15 at 14:52

score 0 · Answer 1 · answered Mar 17 '15 at 16:19

0

Use this:

Sub ChkDis()

Dim rng As Range

Set rng = Sheet1.Range("B1:B99")
rng.SpecialCells(xlCellTypeBlanks).Cells.EntireRow.Delete

End Sub

answered Mar 17 '15 at 16:19

Arya

326
2
8

Hi, I have blocks of blank rows in my excel sheet, to remove them i have used this code but it skips blank rows in between

1 Answers1