excel - VBA 自动筛选条件 : apply if ALL cells in current range/row is blank

Question

如何应用仅当范围内的每个单元格(例如一行 10 个单元格)为空白时才适用的自动筛选条件。

我尝试了下面的方法，但自动过滤器没有以这种方式应用。

With range
     .AutoFilter Field:=1, Criteria1:=Application.WorksheetFunction.CountA(Range("A5:J5")) = 0
End with

目的是隐藏所有单元格为空白的范围内的行。要求所有单元格都是空白的，而不仅仅是 9/10 或 1/10。

我很惊讶我无法在任何地方找到类似的问题，我想知道我的搜索是否完全错误 - 但这并不能改变我找不到类似问题或答案的事实。所以提前，对不起，如果这已经被问到了。

Answer 1

如果您不介意使用“帮助”列，您可以避免使用 AutoFilter() :

With myRange
    With .Resize(, .Columns.Count + 1) ' enlarge referenced range by one "helper" column and reference this latter
        .Offset(, .Columns.Count - 1).Resize(, 1).FormulaR1C1 = "=IF(COUNTA(RC1:RC[-1])=0,1, """")" ' fill referenced "helper" range with a formula outputting a number if condition is met
        .SpecialCells(xlCellTypeFormulas, xlNumbers).EntireRow.Hidden = True ' hide referenced range rows with a numeric value
        .Offset(, .Columns.Count - 1).Resize(, 1).ClearContents ' clear helper column formula
    End With
End With

在此示例中，“帮助”列只是引用范围右侧的一列

但可以调整代码以使用任何“帮助”列