为什么我必须运行两次循环才能使其工作VBA

Question

我有一个循环，该循环在运行时将删除K列中文本为“ No AF”的单元格。这是我的代码：

  If .Range("B7") = "N" Then
        For i = 1 To 100

            If (.Range("K" & i).Value) Like "*No AF*" Then
                .Range("K" & i).Delete

            End If

        Next
    End If

运行代码时，它会删除除包含文本“ No AF”的单元格以外的所有单元格。然后，我必须再次运行该代码，以消除最后一个包含“无AF”的单元格。为什么我必须运行两次代码，以及如何解决此问题。

谢谢

海湾合作委员会