如何根据单元格值VBA自动隐藏/取消隐藏行

Question

我在Col A中有一个包含多个下拉列表的工作表。下拉列中的下拉列表将值更改为＆＃34; Skip＆＃34;或其他一些价值。我想用＆＃34; Skip＆＃34;隐藏行。在A列中，以及单元格下面的一行，其值为＆＃34; Skip＆＃34;。我已经将这个工作在另一张带有水平方向数据列的工作表上，但是已经卡在垂直方向的数据中（在一列中）。我已经能够隐藏行，但是当单元格值不再是＆＃34时，他们不会取消隐藏＃34;跳过＆＃34;。

这是我目前正在运行的代码：

`Sub Worksheet_Change_Hiding()
    Dim rng As Range
    Dim s As String
    s = "Skip"

    Application.EnableEvents = True
    For i = 1 To 50
        Set rng = Cells(i, 1)
        If rng.EntireRow.Hidden = 0 Then
            If rng.Value = s Then rng.EntireRow.Hidden = 1
        Else
            If rng.Value <> s Then rng.EntireRow.Hidden = 0
        End If
    Next i
End Sub`

Screen Shot