如何修复跳过某些值的 for 循环？

Question

我基本上在单元格 N3 中输入了一个日期和一个包含按日期排序的日期的列（列 I）。我正在尝试编写一个代码，要求用户首先输入一个日期。然后程序将在 I 列中查找该日期，并删除找到匹配项的行之后的所有行。

我的代码可以正常工作，但这是我的问题。只有所需行下的部分行被删除，而不是全部。我在想这可能是 for 循环或计数器的问题？如果您能提供帮助，请告诉我 :)

Sub DeleteAllRowsPaymentTooFar()

Worksheets("Master").Activate

Dim date_max As Date
date_max = InputBox("What is the maximum date to filter? ")



Range("N3").Value = date_max
Range("N3").NumberFormat = ("ddddd, mmmmmmmmm d, yyyy")


Dim i As Long
i = Range("A4").End(xlDown).Row
Dim result As Integer
Dim str1 As String, str2 As String
Dim counter As Long



str1 = Cells(3, 14).Text

counter = 4

Do While counter <= i

str2 = Cells(counter, 9).Text

result = StrComp(str1, str2, vbTextCompare)

  If result <> 0 Then
 MsgBox ("The date is not yet reached.")

  Else

        For K = counter To i
        Worksheets("Master").Rows(K).EntireRow.Delete
        Next


    End If

counter = counter + 1
Loop

End Sub

我希望删除找到匹配项的行下的所有行。

Answer 1

这可能对您有帮助：

For i=LastPoint To FirstPoint Step-1

    Worksheets("Master").Rows(i).EntireRow.Delete

Next i

如何修复跳过某些值的 for 循环？

How to fix a for loop that is skipping some values?

excel

vba

counter

for-loop

count