Question

如果“c”栏和“d”栏中的数字为零，我需要能够隐藏一行。我下面的代码工作，但只循环通过4行数据后停止。数据之间没有什么不同，所以我不知道为什么它会停止。有人可以帮帮我吗？谢谢。

Sub Hide_Row_3()

' Hide_Row_3 Macro

Worksheets("Costs").Activate
Application.ScreenUpdating = False

Dim rCell As Range

For Each rCell In Range("c7:c18, d7:d18")
    If rCell = 0 And rCell(xright) = 0 Then
        rCell.EntireRow.Hidden = True
    Else
        rCell.EntireRow.Hidden = False
End If

Next rCell

Application.ScreenUpdating = True

End Sub

Answer 1

For Each rCell In Range("c7:c18")

就够了。

编辑＆gt;

以下循环适用于我“

For Each rCell In Range("c7:c18")
    If rCell = 0 And rCell.Offset(0, 1) = 0 Then
        rCell.EntireRow.Hidden = True
    Else
       rCell.EntireRow.Hidden = False
End If

HTH！

基于两个不同列的信息隐藏行

1 个答案: