基於兩列不同列中的信息隱藏行

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

來源

2010-09-16 Bonnie

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

HTH！

來源

2010-09-16 17:54:55

嗨貝利薩留，我限制了代碼C列，但現在的代碼沒有運行一行行。它是連續運行的，所以如果三個連續單元格的值爲零，它只是隱藏行。例如c7，d7和c8。你能告訴我如何解決這個問題嗎？謝謝。 – Bonnie 2010-09-16 20:02:52

@Bonnie查看我的更新回答 – 2010-09-16 22:19:48

非常感謝Belisarius，代碼工作完善！ – Bonnie 2010-09-16 22:32:08

基於兩列不同列中的信息隱藏行

回答

相關問題