☰

如果行的所有单元格中都有数据，则隐藏行

tag-icon • tag-icon microsoft-excel microsoft-excel-2010 vba
如果行的所有单元格中都有数据，则隐藏行

我找遍了所有地方，但还是找不到适合我问题的答案。我想知道是否有人可以帮我找出代码。

如果某一行中的所有单元格都包含数据，则隐藏该行；如果该行中有空白单元格，则不要隐藏它。对整个命名范围重复此操作。

我希望这是有道理的！

谢谢！

答案1

像这样：

Sub hideFullRow()

Dim rng As Range
Dim rw As Range
Dim c As Range
Dim hide As Boolean

hide = True

Set rng = Range("Name")
For Each rw In rng.Rows
    For Each c In rw.Cells
        If IsEmpty(c) Then 
            hide = False
            exit For
        End If
    Next
    rw.EntireRow.Hidden = hide
Next

End Sub

相关内容