使用Excel VBA删除SpecialType空白单元格

Question

This script "works", but only if I run it twice. Anyone have an idea of why this is happening? Dealing with the special types has been somewhat of a nightmare, I'm not sure if that's just me or known issues. Using Excel 2010 on Windows 7. I've tried repeating the code twice as well to no avail. I tried putting this in a Do Until and ALWAYS get stuck in a forever loop the first time I execute. I'm not sure why executing it the second time seems to work

'Remove all Blank Cells

    On Error Resume Next
    For i = Cells.SpecialCells(xlCellTypeBlanks).Count To 1 Step -1
    Cells.SpecialCells(xlCellTypeBlanks).EntireRow.Delete
    Next i

  If Cells.SpecialCells(xlCellTypeBlanks).Count = 0 Then 
     ActiveWorkbook.Close (True)

Answer 1

EDIT : Updated answer to show how deleting a "specialcells" range doesn't reset the sheet's UsedRange property, and how that can lead to problems.

Try running this sub multiple times on a sheet with or without the call to Activesheet.UsedRange commented out...

Sub Tester()
    Dim rng As Range

    On Error Resume Next
    Set rng = ActiveSheet.Cells.SpecialCells(xlCellTypeBlanks)
    On Error GoTo 0

    If Not rng Is Nothing Then
        Debug.Print "have empty cells"
        rng.EntireRow.Delete
        ActiveSheet.UsedRange
    Else
        Debug.Print "no empty cells"
    End If

End Sub

Saving and re-opening seems to also reset UsedRange...

EDIT2 you should be very careful using this! It deletes whole rows even if there are non-blank cells in that row . It will be OK for certain types of data layout, but not for others. Under certain circumstances you may also see an error "Cannot use that command on overlapping selection" when calling "delete".

Answer 2

I'll caveat this by saying that @TimWilliams's answer is more elegant, but you can try this:

Sub Deletes()

Dim rng As Range
Set rng = ActiveSheet.UsedRange

' Check each cell in the range and if its value is empty, delete the row
For Each Cell In rng
  If Cell.Value = "" Then
    Cell.EntireRow.Delete
  End If
Next Cell

' Close
ActiveWorkbook.Close

End Sub