自动过滤后删除空白行 [英] Delete Blank Rows after AutoFilter

问题描述

我的Excel表格中有以下代码：

I have the following code in my Excel sheet:

Sub DeleteRows
'Filter CMReport to delete (Blank) rows.
    With ActiveSheet
        .AutoFilterMode = False
        .Range("A1:G1").AutoFilter
        .Range("A1:G1").AutoFilter Field:=1, Criteria1:="="
        .Range("A1:G1").Offset(1, 0).SpecialCells(xlCellTypeVisible).EntireRow.Delete
    End With
End Sub

它将过滤空白行，但不会删除它们...它表示没有行被选中。我做错了什么。

It will filter the blank rows but will not delete them... it says that no rows are selected. What am I doing wrong.

推荐答案

如果你需要做的就是在列 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

这篇关于自动过滤后删除空白行的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！