MS Excel VBA隐藏/取消隐藏行

Question

我是VBA /宏的新手。我需要一些帮助来确定如何根据给定场景隐藏/取消隐藏行。

这是场景。

我在工作表中创建了多个表。

C3：O14和C16：O27等。

它们都具有相同的尺寸：12行x 13列

根据单元格（下拉列表）刷新这些表上的数据。

这是问题所在：尽管“列”始终为13，但数据并不总是填充全部12行。

所以我需要将具有空数据的行自动隐藏。

如果有帮助，我在B列中创建了一个返回0/1的公式，以便在每种情况下都知道应隐藏哪些行。

任何建议/帮助将不胜感激。

预先感谢

Answer 1

是的，您可以使用以下代码隐藏行：

Sub HideRowsInRange()

Dim c As Range

For Each c In Range("B3:B27") 'Define your range which should look for 1/0, then loop through that range.
    If c.Value = 0 Then Rows(c.Row).Hidden = True 'If my range has 0 then it will hide the row.
    Next c

End Sub

隐藏之前：

隐藏后（将所有0隐藏在B列中）：