这个宏为什么不能一次执行到位？求教了~！

Sub ecvf()
Dim i As Integer
For i = 1 To 55
If Cells(i, 2) <> "431121" Then
Rows(i).Delete
End If
Next i
End Sub

小弟我写了一个Excel表的VBA宏是为了批量删除第二列中数值不等于"431121"的行，但是发现宏不能一次执行到位，要执行很多次才能达到目的，请高手指点，跪谢~！