「アプリケーション定義またはオブジェクト定義のエラー」のメッセージ表示の解消

Question

前提・実現したいこと

はじめまして、マクロ初心者です。
現在マクロを用いて、添付画像のA列のような日付のうち、
本日以降の日付を削除するマクロを作成してます。
（具体的には本日を2020/3/10とすると、本日以降のセルを
削除するようなコードを組んでます）
ただエラーメッセージにより途中で進行が止まってしまい、
他サイト等調べましたが、解決に至らず、今回質問させて
いただくことにしました。

わかる方がいらっしゃいましたら助けていただけると非常にありがたいです。
どうぞよろしくお願いいたします。

発生している問題・エラーメッセージ

実行時エラー'1004'　アプリケーション定義またはオブジェクト定義のエラーです。

該当のソースコード

Sub 本日以降の日付削除マクロ()
'
Dim today As String
Dim ws As Worksheet
Dim i As Long
Dim buf As String
Dim MaxRow As String

MaxRow = Range("A" & Rows.Count).End(xlUp).Row　'A列の行数取得

today = Now　'本日の日付を代入
Set ws = ActiveSheet

    For i = 2 To MaxRow
L1:
       buf = ws.Cells(i, 1).Value　'←エラーメッセージ出現箇所
       If buf = "NULL" Then
            i = i + 1
            GoTo L1
       
       ElseIf buf < today Then
            i = i + 1
            GoTo L1

       Else
            Rows(i).Clear
            i = i + 1
            GoTo L1
       End If

Next i

End Sub

試したこと

cellsをrangeへ書き換えて処理しようとしてもエラーメッセージが表示されました。

補足情報（FW/ツールのバージョンなど）

エクセル2013を使用してます。

Comments

[m.ts10806]

Stringってループに使えましたっけ

[coco_bauer]

エラーが出た行の前に print("i=" + i) という行を加えて、エラーが発生した時の 変数iの値を確認してください。
質問のプログラムは、for文の中のif文の中で Goto文が使われていたり、forループのループ変数であるiが変更されたりしていて、動作が追跡できませんが、エラーが出る行で変化しうるのは変数iだけですから、ここに問題発生の原因があるはずです。

[watti38]

コメントありがとうございます。
これまでのプログラムでは何のエラーもなかったので使えるのかと思っているのですが、
間違っているのでしょうか。。。

ちなみにMaxRowを使用せず、ループ回数を1000としても、同様のエラーが出るので、
ここが原因ではないと思います。

Answer 1

For文の中でラベルを設定してGOTOで飛ばしているためFor文が終わらず、
Excelの行数の最大値をオーバー(1048577)したところでそのエラーとなっています。
For文は手動でやらなくてもインクリメントしてくれるのでそれを利用しましょう。
それとm.ts10806さんも書いてますが、カウンターと最大値の型は合わせた方がいいですね。
簡単に修正するとこうなりました。

Sub 本日以降の日付削除マクロ()
    '
    Dim today As String
    Dim ws As Worksheet
    Dim i As Long
    Dim buf As String
    Dim MaxRow As Long '←Long型に修正
    
    MaxRow = Range("A" & Rows.Count).End(xlUp).Row  'A列の行数取得
    
    today = Now '本日の日付を代入
    today = Left(today, InStr(today, " ") - 1) '日付の時間部分の切り捨て
    
    Set ws = ActiveSheet
    
    For i = 2 To MaxRow
        buf = ws.Cells(i, 1).Value  '←エラーメッセージ出現箇所
        '"NULL"でなく、本日以降である場合
        If buf <> "NULL" And buf >= today Then
            Rows(i).Clear
        End If
    Next i

End Sub

Comments

[ttyp03]

加えて修正するなら、wsへの代入を最初にやって、Range、Cells、Rowsの参照にはwsを付加する修正も必要と思います。
もっともシートを切り替えるような処理ではないので、そもそもwsを用意する必要もないですが、どっちつかずのままですね。

[watti38]

ご回答ありがとうございます。
coco_bauerさんも記載いただいてますが、私のプログラムでは最大値をオーバーしてることが原因でした。
記載いただいたプログラムで完璧に挙動いたしました。
フォローいただいた方も含めありがとうございました。
非常に勉強になりました。