Excel 宏/VBA - 如果一列中的单元格为空，如何删除整行？

Question

I want a macro code that (1) starts at Row 3, (2) and deletes any row where its cell in Column B is blank. I've tried...

Sub DelBlankRows()  
    Columns("B:B").Select  
    Selection.SpecialCells(xlCellTypeBlanks).Select  
    Selection.EntireRow.Delete  
End Sub

And

Sub delrows()  
     Range("B:B").SpecialCells(xlCellTypeBlanks).EntireRow.Delete  
End Sub

Answer 1

Better would be to define the worksheet as well:

Sub test()
    Worksheets("sheet1").Range("B:B").SpecialCells(xlCellTypeBlanks).EntireRow.Delete shift:=xlUp
End Sub

Will delete every row where column B is empty.

If you need to start at row 3 until the last row:

Sub test()
    Dim lr As Double
    lr = Worksheets("Sheet1").Range("B65536").End(xlUp).Row
    Worksheets("Sheet1").Range("B3:B" & lr).SpecialCells(xlCellTypeBlanks).EntireRow.Delete shift:=xlUp
End Sub

Answer 2

Chances are, you are going to be looping this in something... The concise answers given to you will not "update" the row index of your loop. I present a cleaner looking option that will likely fit into whatever you are doing:

pseudo CODE

For row = start To rowcount
    If cells(row,column).Value = "" Then
        Cells(row,column).EntireRow.Delete shift:=xlUp
        row = row-1  'this is because the xlUp shift changes index for all rows BELOW your loop
    End If
Next row