excel vba

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

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