셀 값을 기반으로 행 범위를 숨기는 방법

Question

K3에서 K17까지 자동으로 0 행을 숨기려고합니다. 나는이 코드를 사용하여 작동 시키려고했지만 항상 컬럼의 모든 빈 셀을 숨기고 특정 범위를 숨기는 것으로 보인다.

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")