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"的行，但是发现宏不能一次执行到位，要执行很多次才能达到目的，请高手指点，跪谢~！

能否请楼上的兄台，写个正确的代码给我呢？ 跪谢~！