excel - 空の値をチェックするときの実行時エラー 1004

Question

以下のサブは機能していません:

Sub RemoveAllBelowStr()
    Dim SrchRng As Range, i As Integer
    Set SrchRng = ActiveSheet.Range("A1:A700")
    For i = 0 To SrchRng.rows.Count
        If IsEmpty(Cells(i, "A")) Then Exit For 'THIS LINE IS THROWING RUN TIME ERROR
    Next i
    rows(i & ":" & rows.Count).Delete
End Sub

「アプリケーション定義またはオブジェクト定義」の実行時エラー 1004 が発生します。

ご意見をお聞かせください。

Answer 1

ループは 0 ではなく 1 から開始する必要があります。