如何隐藏基于单元格值的行的范围

Question

我试图自动隐藏在K3中自动隐藏K17到K17的行。我发现这个代码，我一直在试图篡改工作，但它似乎总是隐藏列中的每个空单元格，而不是特定的范围。

Private Sub Worksheet_Calculate() 
Dim LastRow As Long, c As Range 
Application.EnableEvents = False 
LastRow = Cells(Cells.Rows.Count, ""K"").End(xlUp).Row 
On Error Resume Next 
For Each c In Range(""K3:K17"" & LastRow) 
If c.Value = 0 Then 
    c.EntireRow.Hidden = True 
ElseIf c.Value > 0 Then 
    c.EntireRow.Hidden = False 
End If 
Next 
On Error GoTo 0 
Application.EnableEvents = True 
End Sub" 

Answer 1

假设你有一个双引号中的字符串，你遍历很多线路：

For Each c In Range("K3:K17" & LastRow) 

LastRow是最后一个非空行（列K），所以如果它17例如，你在做什么是

For Each c In Range("K3:K1717") 

解决方法是显而易见的，我希望但在这里它是无论如何

For Each c In Range("K3:K17")