对于Next Loop Freezing

Question

我有以下代码来搜索日期列表并删除与两年前的日期相关联的任何行.当我跑步时,excel冻结.我是VBA的新手,并且认为我可能对使用这个特定的循环有一个概念上的误解:

Sub DeletePriorDates()
'Delete any dates before two years past
    Dim twoyrpast As Date
    Dim c As Range
    Dim DataRange As Range
    Set DataRange = Sheet6.Range("A:A")
    twoyrpast = DateAdd("yyyy", -2, Sheet1.[B].Value)

    For Each c In DataRange
        If c < twoyrpast Then c.EntireRow.Delete
    Next

End Sub

当我停止运行宏时,调试器突出显示"下一步".我尝试过Next的不同迭代,在线代码看起来几乎完全相同.我找不到我做错了什么.

Answer 1

继上面我的评论之后,请继续这样做

Public Sub DeletePriorDates()
'Delete any dates before two years past
    Dim twoyrpast As Date
    Dim i As Long

    With Sheet6
        twoyrpast = DateAdd("yyyy", -2, Sheet1.[B].Value)

        For i = .Cells(.Rows.Count, "A").End(xlUp).Row To 1 Step -1
            If .Cells(i, 1) < twoyrpast Then .Rows(i).EntireRow.Delete
        Next i
    End With
End Sub