隐藏C列中的单元格为＆＃39; 0＆＃39;

Question

我需要一个VBA代码来隐藏C列中包含密码0的所有行。 我目前正在使用过滤器选项，但想要在没有过滤器选项的情况下隐藏它们。这是我的工作表的图片，例如：

Answer 1

这是怎么回事：

Sub hideCells()
Dim lastRow&
Dim cel As Range, rng As Range

lastRow = Cells(Rows.Count, 3).End(xlUp).Row
Set rng = Range(Cells(6, 3), Cells(lastRow, 3))

For Each cel In rng
    If cel.Value = "0" Then
        cel.EntireRow.Hidden = True
    End If
Next cel

End Sub

快速思考 - 使用宏隐藏这些可能不是你想要的方式。你为什么不想使用Filter？我这样说是因为宏a）无法撤消，b）实际上不是动态的（而过滤器很容易取消隐藏），以及c）你将拥有一个非常必要的宏工作簿。只是一个想法。

当然，要反转它（取消隐藏单元格），只需使用相同的宏，但更改为cel.EntireRow.Hidden = False。