VBA-根据日期删除行

Question

我正在尝试创建一个Excel宏，该宏会根据行的日期删除行。例如，如果日期<02/15/18-则删除整个行。我想先从删除单元格开始，然后再向外扩展以删除行，因此，如果您也可以提供删除行的方法，那将非常有帮助。

当我运行以下代码并在A1-A10列中包含以下日期时 02/08 / 18、02 / 09 / 18、02 / 10 / 18、02 / 11 / 18、02 / 12 / 18、02 / 13 / 18、02 / 14 / 18、02 / 15 / 18、02 / 16 / 18、02 / 17/18，

它删除了一些内容，但是留下了02/09 / 18、02 / 11 / 2018、02 / 13/2018，这些都应该删除。

它正确离开了02/15/18-02/17/18

Private Sub CommandButton2_Click()

Dim i As Integer

For i = 1 To 10

If Cells(i,1).Value < DateValue("February 15,2018") Then Cells(i,1).Delete

Next i

End Sub

有人知道为什么会这样吗？