沒有下一個錯誤的錯誤，不知道爲什麼

Question

我想循環拋出行並說「如果該列中的單元格以49開頭，隱藏整個行」。這裏是我的代碼：

For i = 2 To LastRow 
    If Rows("AK" & i).Value Like "49*" Then 
     Rows("AK" & i).EntireRow.Hidden = True 
Next i 

它停留在最後一行，並說「For without next」。它能否看到FOR行三行？這只是我有這樣的許多陳述之一，但我認爲修復這一個將幫助我格式化其他人。我究竟做錯了什麼？

Answer 1

你缺少End If（用詞就是這樣，因爲它看到了Next的If塊中沒有一個匹配For;這是違法的）

For i = 2 To LastRow 
    If Range("AK" & i).Value Like "49*" Then 
     Range("AK" & i).EntireRow.Hidden = True 
    End If 
Next i 

Answer 2

結束時，如果缺少！
如果將下一條指令放在另一行上，這是必需的。