次のエラーが出ないようにする理由、わからない理由

Question

私はループを起こして "この列のセルが49で始まり、行全体を非表示にする"と言います。ここに私のコードです：

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

それは最後の行で停止し、 "次はなし"と言っています。それは、3行のFOR行が見えないのですか？これは私がこれのように持っている多くの声明のほんの1つですが、私はこれを修正することが他のフォーマットに役立つでしょう。私は間違って何をしていますか？

Answer 1

あなたの行方不明End If（それはForに一致せずIfブロック内Nextを見ているので、言葉遣いはそのようなものです。違法である）

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

エンド欠落している場合！
次の命令を別の行に置く必要があります。