如果上面的单元格为空，则自动过滤以隐藏行

Question

正如标题所示，我正在寻找一种方法来隐藏行，如果上面的行是空白的，否则不要隐藏该行。它似乎应该很简单，但我似乎无法做到。

经过研究，我确实遇到过这个代码，它看起来应该可行，但是我没有得到任何回应。

Range("A15:A21").AutoFilter 1, "<>", , , False

上述代码中的范围是正确的。

Answer 1

我相信这个宏应该可以解决问题

Sub hide_if_blank_above()
    Dim i As Integer

    For i = 21 To 15 Step -1
        Dim should_hide As Boolean
        should_hide = IsEmpty(Range("A" & i - 1))
        Range("A" & i).EntireRow.Hidden = should_hide
    Next
End Sub