If Range EntireRow.Hidden

Question

我真的很感谢你对我面临的以下问题的帮助。

我想要隐藏3行，除非有东西写在一个特定的单元格。如果在特定的单元格中写入了某些内容，我希望下一行不隐藏。所以它假设继续下两个单元格。

我已经在这个模块中写了以下代码，请指导我如何解决这个问题(我做错了什么？)

Sub InsertRow()
    If Range("U6") <> "" Then 
        Rows("7").EntireRow.Hidden = False
        Rows("8:9").EntireRow.Hidden = True 
    End If 
End Sub

Answer 1

我不确定这是否是你想要的，但这会遍历U列中所有使用过的单元格，并检查下面的行

Public Sub InsertRow()
    Dim targetCol As Range, itm As Range

    Set targetCol = Worksheets("Sheet1").UsedRange.Columns(21)  'UsedRange starts at A1

    Application.ScreenUpdating = False             'Update sheet name and column number

    For Each itm In targetCol.Cells
        itm.Offset(1).EntireRow.Hidden = (Len(itm.Value2) = 0)
    Next

    Application.ScreenUpdating = True
End Sub

Answer 2

尝试此解决方案：

Sub InsertRow()
    Rows("7").EntireRow.Hidden = Range("U6") = ""
    Rows("8:9").EntireRow.Hidden = True
End Sub