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

如果列“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

够了

编辑>

以下循环适用于我“

嗯

够了

编辑>

以下循环适用于我“

---

嗯

嗨，Belisarius，我将代码限制在C列，但现在代码不是逐行运行的。它是连续运行的，因此只有当三个连续单元格的值为零时，它才隐藏行。例如c7、d7和c8。你能告诉我怎么修吗？“谢谢你！”邦妮听到这个消息很高兴。你应该接受答案以表明。。。大家好，Belisarius，我把代码限制在C列，但现在代码不是逐行运行的。它是连续运行的，因此只有当三个连续单元格的值为零时，它才隐藏行。例如c7、d7和c8。你能告诉我怎么修吗？“谢谢你！”邦妮听到这个消息很高兴。你应该接受答案以表明。。。最终也会投票支持它。

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

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