删除符合条件单元格的整行数据

Sub mydel()

    Dim i As Double
    For i = Cells(Rows.Count, 1).End(3).Row To 2 Step -1
        If Range("B" & i) = "完成" Then Rows(i).Delete
    Next i
End Sub