没有下一个错误的错误，不知道为什么

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

结束时，如果缺少！
如果将下一条指令放在另一行上，这是必需的。