如果你需要做的就是在列 A ，您不需要过滤，只需：

If all you need to do is to delete rows with blanks in column A , you don't need to filter, just:

Sub DeleteRows()
    Range("A:A").Cells.SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub