Vba 如何基于值隐藏行和列

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

这两个代码似乎是独立工作的，但当所有东西都被解组时，它们就不能一起工作了

我想让他们一起工作，并首先将所有内容取消分组，因为当所有内容都分组时，会遗漏一些“0”

Sub-Hiderandc（）
'此代码隐藏单元格值为“0”的所有行'
BeginRow=1
EndRow=100
ChkCol=1
对于RowCnt=BeginRow到EndRow
如果单元格（RowCnt，ChkCol）.Text=“0”则
单元格（RowCnt，ChkCol）.EntireRow.Hidden=True
其他的
单元格（RowCnt，ChkCol）.EntireRow.Hidden=False
如果结束
下一行
'说明：此宏将循环通过一行和
'如果列的第1行中的单元格
'的值为0。
调光范围
对于行中的每个c（“1:1”）。单元格
如果c.Value=“0”，则
c、 EntireColumn.Hidden=True
'您可以将上面的属性更改为False
'以取消隐藏列。
如果结束
下一个c
端接头

看起来您是在检查第1行而不是第3行？很好，Nathan。还忘了添加/注意到我需要从P到EA的列检查开始，从12到大约100的行检查开始。只是我注意到它似乎在检查我的行，所有的0和1都通过。

。usedrange.entirerow.hidden=false

对不起，以前没有使用usedrange，看起来很有用。我会查看它的，谢谢Nathan！：）看起来你是在检查第一排而不是第三排？说得好，内森。还忘了添加/注意到我需要从P到EA的列检查开始，从12到大约100的行检查开始。只是我注意到它似乎在检查我的行，所有的0和1都通过。

。usedrange.entirerow.hidden=false

对不起，以前没有使用usedrange，看起来很有用。我会查看它的，谢谢Nathan！：）