Question

我写了一个宏，它隐藏了我们有零个单元格的行，但是我想再添加一个代码来取消隐藏它。隐藏和取消隐藏。代码如下：

    Sub HideRows()
    Dim cell As Range
    For Each cell In Range("U9:U149")
        If Not IsEmpty(cell) Then
            If cell.Value = 0 Then
                cell.EntireRow.Hidden = True
            End If
        End If
    Next
End Sub

Answer 1

如果您的意思是希望相同的代码在隐藏/可见之间切换行，请将其更改为：

Sub ToggleHideRows()
    Dim c As Range
    For Each c In Range("U9:U149")
        If Not IsEmpty(c) And c.Value = 0 Then
            c.EntireRow.Hidden = Not c.EntireRow.Hidden
        End If
    Next
End Sub

我已将您的变量名称从cell更改为c - 将“特殊”字词用作变量名称是个坏主意。

Answer 2

是否要隐藏0行并显示没有0的行？

Sub HideRows()
    Dim c As Range
    For Each c In Range("U9:U149")
        If Not IsEmpty(c) Then
            c.EntireRow.Hidden = (c.Value = 0)
        End If
    Next
End Sub

Excel宏隐藏和取消隐藏行

2 个答案: