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

Question

我试图循环抛出行并说“如果此列中的单元格以 49 开头，则隐藏整行”。这是我的代码：

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

它一直停在最后一行并说“没有下一个”。看不到 FOR 行三行吗？这只是我喜欢的众多声明之一，但我认为修复这个将帮助我格式化其他声明。我究竟做错了什么？

Answer 1

您缺少 an End If（措辞是这样的，因为它Next在If没有匹配的块中看到 a For；这是非法的）

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