如何根据值隐藏行和列

Question

我根据单元格值将行和列隐藏起来有点困难。我想隐藏A列中任何一行，单元格值为“0”，并隐藏第3行中单元格值为“0”的所有列。使用行进行多次分组的附加扭曲。

这两个代码似乎是独立工作的，但是当一切都没有组合时，它们不会在一起工作。

我想让他们一起工作并先解开所有内容，因为当所有内容都被分组时，它会错过一些“0”。

Sub Hiderandc()

    'this code hides all rows with cell value "0"
    BeginRow = 1
    EndRow = 100
    ChkCol = 1

    For RowCnt = BeginRow To EndRow
        If Cells(RowCnt, ChkCol).Text = "0" Then
            Cells(RowCnt, ChkCol).EntireRow.Hidden = True
        Else
            Cells(RowCnt, ChkCol).EntireRow.Hidden = False
        End If
    Next RowCnt

    'Description: This macro will loop through a row and
    'hide the column if the cell in row 1 of the column
    'has the value of 0.

    Dim c As Range

    For Each c In Rows("1:1").Cells
        If c.Value = "0" Then
            c.EntireColumn.Hidden = True
            'You can change the property above to False
            'to unhide the columns.
        End If
    Next c
End Sub